Retreive return code(Maxcc) of job thru Rexx

Go down

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