Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Retreive return code(Maxcc) of job thru Rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
balaji81_k

New User


Joined: 29 Jun 2005
Posts: 89

PostPosted: Fri Dec 28, 2012 1:29 pm    Post subject: Retreive return code(Maxcc) of job thru Rexx
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

Active Member


Joined: 08 May 2006
Posts: 995
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Fri Dec 28, 2012 1:34 pm    Post subject:
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

Senior Member


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

PostPosted: Fri Dec 28, 2012 3:03 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Fri Dec 28, 2012 3:10 pm    Post subject: Reply to: Retreive return code(Maxcc) of job thru Rexx
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us