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
 

 

JES2 job Return code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
ykishore

New User


Joined: 12 Aug 2005
Posts: 53
Location: USA

PostPosted: Fri Aug 12, 2005 6:10 pm    Post subject: JES2 job Return code
Reply with quote

Hi

Say Step1 and Step2 are there in a job in a sequence. We can validate Step1 return code with COND parameter in Step2.

Now Say I have JOB1 and JOB2;

I am submitting JOB2 from JOB1 with INTRDR.

I would like catch the return code of job1 in job2.

I can control the flow in JOB1 it self but, is there a way to get the return code of JOB1 in JOB2?
Back to top
View user's profile Send private message

shivashunmugam Muthu

Active User


Joined: 22 Jul 2005
Posts: 114
Location: Chennai

PostPosted: Fri Aug 12, 2005 6:28 pm    Post subject: Re: JES2 job Return code
Reply with quote

hey..

when u r submitting a JOB thru INTRDR, job1 gets completed only when JOB2 finishes..

Experts

Correct me if am wrong!
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Aug 12, 2005 11:59 pm    Post subject: Re: JES2 job Return code
Reply with quote

This worked for me:
JOB1
Code:

//JOB1     JOB (...),CLASS=T,MSGCLASS=X           
//*                                               
//STEP0001 EXEC PGM=IDCAMS                       
//SYSPRINT DD   SYSOUT=*                         
//SYSIN    DD   *                                 
 SET MAXCC=8                                     
/*                                               
//*                                               
//STEP0002 EXEC PGM=ICEGENER                     
//SYSUT1   DD   DISP=SHR,DSN=&SYSUID..JCL(JOB2)   
//SYSUT2   DD   SYSOUT=(*,INTRDR)                 
//SYSPRINT DD   SYSOUT=*                         
//SYSIN    DD   DUMMY                             
//*                                               


JOB2
Code:

//JOB2     JOB (...),CLASS=T,MSGCLASS=X               
//*                                                   
//STEP0001 EXEC PGM=IDCAMS                             
//SYSPRINT DD   SYSOUT=*                               
//SYSIN    DD   *                                     
 SET MAXCC=0                                           
/*                                                     
//*                                                   
//STEP0002 EXEC PGM=IKJEFT01,PARM='%CHKRC JOB1'       
//SYSPROC  DD   DISP=SHR,DSN=&SYSUID..REXX             
//SYSTSPRT DD   SYSOUT=*                               
//SYSTSIN  DD   DUMMY                                 
//*                                                   


REXX Exec CHKRC
Code:

/* REXX */                                                           
Parse Upper Arg thejob .                                             
cntr = 0                                                             
Top:                                                                 
cntr = cntr + 1                                                       
rc = Time(R)                                                         
Do Forever                                                           
  n = Time(E)                                                         
  If n >= 10 Then Leave /* Wait 10 seconds */                         
End                                                                   
If cntr >= 6 Then Exit 4 /* Job Not showing on output queue */       
Drop out.                                                             
x = outtrap(out.)                                                     
"STATUS ("thejob")"                                                   
x = outtrap('OFF')                                                   
/* ************************************************ */                 
/* Message Format From the TSO STATUS command       */                 
/* IKJ56192I JOB JOBNAME#(JOBnnnnn) ON OUTPUT QUEUE */                 
/* ************************************************ */                 
Do i = 1 To out.0                                                     
  Parse Var out.i msgid 'JOB' jobname '(' jobid ')' stat               
  If Strip(stat) <> 'ON OUTPUT QUEUE' Then Signal Top                 
End                                                                   
dsname = jobname'.'jobid                                               
"OUTPUT "jobname"("jobid") PRINT("dsname") BEGIN HOLD KEEP"           
filename = dsname'.OUTLIST'                                           
"ALLOC DD(output) DA("filename") SHR REU DELETE"                       
"EXECIO * DISKR output (STEM jobstat. FINIS"                           
"FREE DD(output)"                                                     
Do i = 1 To jobstat.0                                                 
  Parse Var jobstat.i 2 themsg therest                                 
  If themsg = 'IEF142I' Then Say Strip(therest)                       
End                                                                   
Exit 0                                                                 
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 -> JCL & VSAM 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. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts EXIT or RETURN cvnlynn CLIST & REXX 18 Wed Jul 19, 2017 2:50 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm


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