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
 

 

Restart JCL with an IF condition

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

New User


Joined: 30 Mar 2007
Posts: 22
Location: United States of america

PostPosted: Wed Jan 02, 2008 9:08 pm    Post subject: Restart JCL with an IF condition
Reply with quote

I have a job that has abended in step 3 and the step 2 has an IF condition. Can anybody tell me on how to restart the JCL from step 3?
The jcl is given below:-

Code:
                                       
//TTIL253V EXEC PGM=IDCAMS                                                 
//***                                                             
//IN1      DD  DSN=&PREFIX.TTIL.P.TRN48002(0),   REALIGNED DATA   
//             DISP=SHR                                           
//SYSIN    DD  DSN=&CDLIB(TTIL253S),             SORT PARAMETER   
//             DISP=SHR                                           
//OU1      DD  DSN=&&TEMP,                       TEMP COPIED FILE
//             DISP=(,PASS,DELETE),                               
//             UNIT=DISK,                                         
//             DCB=Z.FB0010,                                     
//             SPACE=(10,(33,3),RLSE),AVGREC=U                   
//SYSPRINT DD  SYSOUT=*                                           
//SYSUDUMP DD  SYSOUT=&A                                         
//*                                                               
//IFTEST1 IF TTIL253V.RC=0 THEN                                   
//TTIL261  EXEC PGM=&TTIL261                                                       
//*---------------------------------------------------------------
//*             RESTART PROCEDURE                                 
//*                                                               
//*   A.  BE SURE TO CHECK FOR THE 'DB ENDED' MESSAGE.           
//*   B.  INSURE THAT IF 'DB BACKOUT' STARTED THAT IT COMPLETED   
//*       SUCCESSFULLY!!                                         
//*   C.  ADD  ,RESTART=JOBSTEP.PROCSTEP TO THE JOB CARD             
//*   D.  RESUBMIT THE JOB.                                           
//*                                                                   
//*   NOTE:  IF BACKOUT UNSUCCESSFUL, CONTACT DATA BASE ADMINISTRATOR.
//***                                                                 
//I1IL259  DD  DSN=&PREFIX.TTIL.P.TRN48002(0),   SRTD REALIGNED DPT   
//             DISP=SHR                                               
//R1IL259  DD  DSN=&PREFIX.TTIL.P.RPT26101(+1),  RPT W/UPDTED DETAILS
//             DISP=(,CATLG,DELETE),             (10,000 RECS)       
//             UNIT=DISK,                                             
//             DCB=Z.FB0160,                                         
//             SPACE=(160,(&PRIME1,&EXT1),RLSE),AVGREC=K             
// INCLUDE MEMBER=SYSOUT                                             
//*                                                                   
//TTIL253  EXEC PGM=&TTIL253                                         
//***                                                                 
//*   CREATES THE RESTATED CALENDAR SIL                               
//*------------------------------------------------------------------- 
//*             RESTART PROCEDURE                                       
//*                                                                     
//*   A.  BE SURE TO CHECK FOR THE 'DB ENDED' MESSAGE.                 
//*   B.  INSURE THAT IF 'DB BACKOUT' STARTED THAT IT COMPLETED         
//*       SUCCESSFULLY!!                                               
//*   C.  ADD  ,RESTART=JOBSTEP.PROCSTEP TO THE JOB CARD               
//*   D.  RESUBMIT THE JOB.                                             
//*                                                                     
//*   NOTE:  IF BACKOUT UNSUCCESSFUL, CONTACT DATA BASE ADMINISTRATOR. 
//***                                                                   
//I1IL253  DD  DSN=&PREFIX.TTIL.B.TRN35201(0),   BKUP FL OF SIC TABLE   
//             DISP=SHR                                                 
//O1IL253  DD  DSN=&PREFIX.TTIL.P.TRN25301(+1),  INTRNL RESTATED SIL FL
//             DISP=(,CATLG,DELETE),             (50,000 RECS)         
//             UNIT=DISK,                                               
//             DCB=Z.FB0300,                                           
//             SPACE=(300,(&PRIME2,&EXT2),RLSE),AVGREC=K               
//O2IL253  DD  DSN=&PREFIX.TTIL.P.TRN25302(+1),  INTRNL RESTATED SIL FL
//             DISP=(,CATLG,DELETE),             (50,000 RECS)         
//             UNIT=DISK,                                             
//             DCB=Z.FB0350,                                           
//             SPACE=(350,(&PRIME3,&EXT3),RLSE),AVGREC=K               
//SYSIN    DD  DUMMY                                                   
// INCLUDE MEMBER=SYSOUT                                               
//*                                                                   
//TTIL262  EXEC PGM=&TTIL262                                           
//***                                                                 
//*   COMPARES SIL/IMW AND GENERATES CONTROL REPORT                   
//*-------------------------------------------------------------------
//*             RESTART PROCEDURE                                     
//*                                                                   
//*   A.  BE SURE TO CHECK FOR THE 'DB ENDED' MESSAGE.                 
//*   B.  INSURE THAT IF 'DB BACKOUT' STARTED THAT IT COMPLETED       
//*       SUCCESSFULLY!!                                               
//*   C.  ADD  ,RESTART=JOBSTEP.PROCSTEP TO THE JOB CARD               
//*   D.  RESUBMIT THE JOB.                                           
//*                                                                   
//*   NOTE:  IF BACKOUT UNSUCCESSFUL, CONTACT DATA BASE ADMINISTRATOR.
//***                                                                 
//I1IL269  DD  DSN=&PREFIX.TTIL.P.TRN25301(&RSTLVL), INTL SIL FILE     
//             DISP=SHR                                               
//R1IL269  DD  DSN=&PREFIX.TTIL.P.RPT26201(+1),  ERR RPT IPW/SILI FD   
//             DISP=(,CATLG,DELETE),             (10,000 RECS)         
//             UNIT=DISK,                                             
//             DCB=Z.FB0133,                                           
//             SPACE=(133,(&PRIME4,&EXT4),RLSE),AVGREC=K               
//R2IL269  DD  DSN=&PREFIX.TTIL.P.RPT26202(+1),  END UNITS/RTL STRS   
//             DISP=(,CATLG,DELETE),             (10,000 RECS)         
//             UNIT=DISK,                                             
//             DCB=Z.FB0133,                                           
//             SPACE=(133,(&PRIME5,&EXT5),RLSE),AVGREC=K         
//SYSIN    DD  DUMMY                                             
// INCLUDE MEMBER=SYSOUT                                         
//ENDTEST1 ENDIF                                                 
//*
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Wed Jan 02, 2008 9:17 pm    Post subject: Reply to: Restart JCL with an IF condition
Reply with quote

As always, and has been mentioned many times before, you have to edit-out the IF/THEN/ENDIF logic, then re-submit the job per your site's standards.
Back to top
View user's profile Send private message
Jatin saraf

New User


Joined: 30 Mar 2007
Posts: 22
Location: United States of america

PostPosted: Wed Jan 02, 2008 9:43 pm    Post subject:
Reply with quote

So this means I have to remove the IF statement and get a special run for this JCL from step 3, right?
Back to top
View user's profile Send private message
rajaherein

New User


Joined: 11 Jan 2007
Posts: 23
Location: chennai

PostPosted: Thu Jan 03, 2008 2:24 pm    Post subject: Reply to: Restart JCL with an IF condition
Reply with quote

Yep, What SuperK suggested is the right way to do the things.
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
No new posts Joinkeys with condition scdinesh DFSORT/ICETOOL 10 Tue Feb 14, 2017 12:20 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
No new posts INCLUDE condition questions van bui DFSORT/ICETOOL 1 Thu Jun 30, 2016 9:52 am
No new posts 2 vsam file compare and update a fiel... ABINAYATHULASI DFSORT/ICETOOL 6 Sun May 29, 2016 11:15 am
No new posts File matching using specific condition mf_karthik DFSORT/ICETOOL 3 Fri Nov 20, 2015 11:04 pm


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