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: 10274
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
No new posts EXIT or RETURN cvnlynn CLIST & REXX 16 Wed Jul 19, 2017 2:50 am
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm


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