Hallo Jenne,

PGM

DCLF FILE(DATEINAME)

LOOP: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE))

IF COND(&FELD *EQ 'X') THEN(DO)
ENDDO

GOTO CMDLBL(LOOP)

ENDE: ENDPGM

P.S. Durch das Übersetzen stehen automatisch alle Dateifelder zur Verfügung, aus FELD wird &FELD, d.h. es braucht keine DCL.

Viel Erfolg,

Robert