AnsweredAssumed Answered

question on how to trace job status without using REXX

Question asked by pr0525 on Sep 30, 2013
Latest reply on Oct 1, 2013 by pr0525
Hi, need your expertise on this. I have an appl that is in applhold i will release it after sometime but i want the two jobs in it to be bypassed. How can i code it without using REXX?

JOB CHECKJOB1 TASK
RUN DAILY
REXXON
TRACE N
N=JOBONCSF('JOBZ','Z')
N=JOBONCSF('JOBX','X')
F=0
DO J = 1 TO N
IF ZPNODE.J = 'PREDWAIT' THEN F=1
END
DO J = 1 TO N
IF XPNODE.J = 'PREDWAIT' THEN F=1
END
"X="F
REXXOFF
IF %X=1 THEN DO
ESP AJ CHECKJOB1 COMPLETE APPL(%ESPAPPL..%ESPAPGEN)
ESP AJ JOBZ BYPASS APPL(APPL1)
ESP AJ JOBX BYPASS APPL(APPL1)
ENDDO
ELSE DO
IF %X=0 THEN DO
ESP AJ CHECKJOB1 COMPLETE APPL(%ESPAPPL..%ESPAPGEN)
ENDDO
ENDDO
ENDDO
ENDDO
ENDJOB

Outcomes