Naja, und die Schleife geht ganz einfach:

Lesen:
RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))

ADDDIRE
goto Lesen

Ende:
ENDPGM