Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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

Active User


Joined: 29 Jun 2005
Posts: 118

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

Senior Member


Joined: 08 May 2006
Posts: 1004
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: 10396
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 attchmvs from rexx subroutine that re... harisukumaran CLIST & REXX 1 Fri Jan 19, 2018 5:29 am
No new posts Can we create REXX ouput in an Excel ... upendrasri CLIST & REXX 3 Wed Jan 17, 2018 8:19 pm
No new posts Need to obtain VTOC information via R... djeffbland CLIST & REXX 10 Thu Jan 11, 2018 4:13 am
No new posts REXX contest sergeyken CLIST & REXX 2 Tue Jan 09, 2018 1:55 am
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us