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