Hallo.

Im CL ein RUNSQLSTM. Vorher die Datei defenieren
DCLF FILE(lib/file) RCDFMT(*ALL) OPNID(yyy)

Datei lesen und wenn ende (0864) dann raus
READ: RCVF RCDFMT(xxx) OPNID(yyy)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE99))
Jetzt kann auf die Felder zugegriffen werden. Hier Beispiel mit chgvar
CHGVAR VAR(&whatever) VALUE(%SUBSTRING(&yyy_fieldname +
2 8))

etc etc etc...
Hier kann dann ja auch ein If stehen und bei entsprechenden True dann ein
sndbrkmsg...

Um wieder den nächsten Satz zu lesen ein
GOTO READ

Gruß,
Ralf