Retreive return code(Maxcc) of job thru Rexx

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 ?