Retreive return code(Maxcc) of job thru Rexx

Go down

Retreive return code(Maxcc) of job thru Rexx Empty Retreive return code(Maxcc) of job thru Rexx

Post  kasthuri on Sun Jan 27, 2013 7:02 pm

Hi All ,

I have written rexx to capture JOBID JOBNAME and unable to capture JES messages .

Code:

Code:
ADDRESS TSO
X=OUTTRAP('A.')
ADDRESS TSO
"SUBMIT 'TEST.SUBMIT.JCLS(TAPED)'"
ADDRESS TSO
X= OUTTRAP('OFF')
JOBID = A.1
SAY JOBID
PARSE VAR JOBID 'JOB' VAR1 '(' JOBIDD ')' BRR JUNK
DO UNTIL L2 = "ON OUTPUT QUEUE"
SAY JOBIDD
X = OUTTRAP(OUT.)
ADDRESS TSO "STATUS "VAR1"("JOBIDD")"
PARSE VAR OUT.1 L1 ")" L2
X = OUTTRAP(OFF)
END
ADDRESS TSO "OUTPUT" VAR1"("JOBIDD")"
EXIT


Rexx capture the below message thru OUTTRAP:

Code:
Code:

IKJ56250I JOB TESTX(JOB02128) SUBMITTED

JES MESSAGE is not captured ( below message):

Code:

Code:
10.39.58 JOB02128 $HASP165 TESTX ENDED AT CPAC MAXCC=12 CN(INTERNAL)

is there any way to capturing the above message in to variable?


I am also trying from my side and refering the similar posts , if any one can help me out on this ?

kasthuri

Posts : 212
Join date : 2013-01-27

View user profile

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum