Super, klappt! Besten Dank !

Zitat Zitat von Dufti
keine IF-Abfrage, sondern MONMSG, ggf. etwa so:

PGM
DCL [...]

RTVMBRD FILE(MYLIB/MYFILE) MBR(*FIRSTMBR) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

TOP:
RTVMBRD FILE(MYLIB/MYFILE) MBR(&MBR *NEXT) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

GOTO TOP

ENDE: ENDPGM


' Ich würde immer mit FIRSTMBR arbeiten, weil *NEXT auch nach Namen sortiert arbeitet.