|
C CALL 'QCMDEXC' 13
C PARM ZIPCMD
C PARM ZIPCMDL
C IF *IN13
C SETON H1LR
C RETURN
C ENDIF
54 DO_REZIP: DEL OBJLNK(&ZIPPATH)
55 MONMSG MSGID(CPF0000)
56 CALL WTFIXATT
57 CALL WTREZIP PARM(&ZIPPATH)
58 MONMSG MSGID(CPF0000) EXEC(DO)
59 DLYJOB DLY(1)
60 CHGJOB LOGCLPGM(*YES)
61 DSPLNK OBJ(&TMPDIRCONT) OUTPUT(*PRINT) +
62 DETAIL(*EXTENDED) DSPOPT(*ALL)
63 DSPJOBLOG OUTPUT(*PRINT)
64 SNDMSG MSG('The glitch has returned. Retry is ' +
65 *CAT &RETRY *CAT '. Check for problems.') +
66 TOUSR(FOO)
67 IF COND(&RETRY *EQ 'Y') THEN(SNDPGMMSG +
68 MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
69 MSGDTA('WTREZIP problem. Please inspect +
70 spool files for this job.') MSGTYPE(*ESCAPE))
71 CHGVAR VAR(&RETRY) VALUE('Y')
72 GOTO CMDLBL(DO_REZIP)
73 ENDDO
74 {processing continues}
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.