Schau doch, was Du so raus bekommst:
Code:PGM DCL VAR(&PTH) TYPE(*CHAR) LEN(50) DCLF FILE(yourFile) READ: RCVF MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE)) CHGVAR VAR(&PTH) VALUE(&VZ) SNDUSRMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&PTH) + MSGTYPE(*INFO) GOTO CMDLBL(READ) ENDE: ENDPGM
Bookmarks