IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Retreive return code(Maxcc) of job thru Rexx


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Fri Dec 28, 2012 1:29 pm
Reply with quote

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 ?

Thanks
Balaji K
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Fri Dec 28, 2012 1:34 pm
Reply with quote

Quote:
JES MESSAGE is not captured ( below message):

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 ?



Your REXX code can only see the JES message by reading the spool - usually by interfacing with SDSF - after the job has ended. However, submitting a job from REXX code which then waits for the job output is not recommended.

Also, you are not applying 'code' tags correctly - use the buttons shown rather than keying what you think might work.

Garry.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Dec 28, 2012 3:03 pm
Reply with quote

There are couple of examples on this board, already, which give the hint to accomplish what you are trying to do. Suggest you also search the REXX & CLIST part of the Forum.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Dec 28, 2012 3:10 pm
Reply with quote

Looks like the TS wants to write a home grown scheduler
and have the TSO session waiting for a job to complete

probably time to invoke the "topics not eligible for discussion" filter
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top