Jatin saraf
New User
.jpg)
Joined: 30 Mar 2007
Posts: 22
Location: United States of america
|
|
|
|
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
//*
|
|
|
