We have a program that purges old files from a library. The program uses DSPOBJD and outputs the result to a file in QTEMP. After checking for CPF2123 the next command is RCVF RCDFMT(QLIDOBJD).
The program encounters CPF0859 during the RCVF but I don't understand why. he system automatically Dumps the job when the error is encoutnered.
The program encounters CPF0859 during the RCVF but I don't understand why. he system automatically Dumps the job when the error is encoutnered.
Code:
CHKOBJ OBJ(QTEMP/FILE_PURGE) OBJTYPE(*FILE) MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(LIST)) DLTF FILE(QTEMP/FILE_PURGE) DSPOBJD OBJ(REPORTS/&DLTOBJ) OBJTYPE(*FILE) + OUTPUT(*OUTFILE) OUTFILE(QTEMP/FILE_PURGE) MONMSG MSGID(CPF2123) EXEC(DO) CHGVAR VAR(&MSG) VALUE('No Files on Library + REPORTSTK') GOTO CMDLBL(SNDMSG) ENDDO RCVF RCDFMT(QLIDOBJD)
Comment