Alle Member durchsuchen

[malzusrex]

Ich habe das bei mir mal getestet.
Bei 256 Member ist er abgebrochen, da wohl 256 dann doch die Höchstgrenze ist

[RobertMack]

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