PGM &FILLIB
DCL &FILLIB *CHAR 10
DCLF QADSPOBJ
CHKOBJ &FILLIB/HOGEJRN *JRN
MONMSG CPF9800 *N GOTO CRTJRN
ENDJRNPF *ALL &FILLIB/HOGEJRN
DLYJOB 10
DLTJRN &FILLIB/HOGEJRN
CRTJRN:
DLTJRNRCV JRNRCV(&FILLIB/HOGERC*) DLTOPT(*IGNINQMSG)
MONMSG CPF0000
CRTJRNRCV JRNRCV(&FILLIB/HOGERC0000) THRESHOLD(50000)
CRTJRN JRN(&FILLIB/HOGEJRN) +
JRNRCV(&FILLIB/HOGERC0000) +
MNGRCV(*SYSTEM) DLTRCV(*YES)
DSPOBJD OBJ(&FILLIB/*ALL) OBJTYPE(*FILE) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)
OVRDBF QADSPOBJ QTEMP/DSPOBJD
READ:
RCVF *N QLIDOBJD
MONMSG CPF0000 *N GOTO EOF
IF (&ODOBAT ='PF ') DO
STRJRNPF FILE(&ODLBNM/&ODOBNM) JRN(&FILLIB/HOGEJRN) +
IMAGES(*BOTH) OMTJRNE(*OPNCLO)
ENDDO
GOTO READ
EOF:
DLTOVR QADSPOBJ
RETURN
ENDPGM
|
