http://www.rpgpgm.com/2013/12/easies...embers-in.html

Für den gelegentlichen Gebrauch (als Tool oder zur Recherche) habe ich noch eine CL-Variante:

PGM
DCL VAR(&MEMBR) TYPE(*CHAR) LEN(10)

RTVMBRD FILE(MYLIB/MYFILE) MBR(*FIRSTMBR) RTNMBR(&MEMBR)

WORK:
OVRDBF...
CALL PGM(MySqlRpg) oder RUNQRY QRY(MyQuery)
DLTOVR...

NEXT:
RTVMBRD FILE(MYLIB/MYFILE) MBR(&MEMBR *NEXT) RTNMBR(&MEMBR)
MONMSG MSGID(CPF3049) EXEC(GOTO CMDLBL(DONE))

GOTO CMDLBL(WORK)

DONE:
ENDPGM