Example of auto refresh of 5250 screen in rpgle.
CRTLIB LIB(GMATRIX)
CHGCURLIB CURLIB(GMATRIX)
RUNSQLSTM SRCSTMF('./GMatrix/qsqlsrc/bigLetters.sql') COMMIT(*NONE) NAMING(*SYS)
RUNSQLSTM SRCSTMF('./GMatrix/qsqlsrc/dftLetters.sql') COMMIT(*NONE) NAMING(*SYS)
CRTSRCPF FILE(QTEMP/QDDSSRC) RCDLEN(112)
CPYFRMSTMF FROMSTMF('./GMatrix/qddssrc/gmatrix.dspf') TOMBR('/qsys.lib/qtemp.lib/qddssrc.file/gmatrix.mbr') MBROPT(*REPLACE)
CRTDSPF FILE(GMATRIX) SRCFILE(QDDSSRC) SRCMBR(GMATRIX) WAITRCD(*IMMED)
CRTSQLRPGI OBJ(GMATRIX) SRCSTMF('./GMatrix/qrpglesrc/gmatrix.sqlrpgle') RPGPPOPT(*LVL2) REPLACE(*YES) CVTCCSID(*JOB) COMPILEOPT('TGTCCSID(*JOB)')
CRTCMD CMD(GMATRIX) PGM(GMATRIX) SRCSTMF('./GMatrix/qcmdsrc/gmatrix.cmd') PRDLIB(GMATRIX) REPLACE(*YES)
GMATRIX/GMATRIX