Example of a 5250 screen with mouse action, based on the implementation of the deminer, fully managed in CLLE.
CRTLIB LIB(GDEMINER)
CHGCURLIB CURLIB(GDEMINER)
CRTSRCPF FILE(QTEMP/QDDSSRC) RCDLEN(112)
CPYFRMSTMF FROMSTMF('./GDeminer/qddssrc/gdeminer.dspf') TOMBR('/qsys.lib/qtemp.lib/qddssrc.file/gdeminer.mbr') MBROPT(*REPLACE)
CRTDSPF FILE(GDEMINER) SRCFILE(QDDSSRC) SRCMBR(GDEMINER)
CRTBNDCL PGM(GDEMINER) SRCSTMF('./GDeminer/qclsrc/gdeminer.clle') REPLACE(*YES)
CALL PGM(GDEMINER)