IN MY JCL I VE 8 STEPS I WANT TO EXCUTE STEP 8 FIRST THEN
EXCUTE STEP 4 ,HOW WILL EXCUTE STEP 8 BEFORE STEP 4?
Answers were Sorted based on User's Feedback
Answer / ravikumar. r
You can IEBEDIT utility for your requirement. The syntax as
follows.
Syntax:
//JOBCARD
//PS010 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=path of your JCL,DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(PS008,PS004)
/*
| Is This Answer Correct ? | 26 Yes | 5 No |
Answer / manish_cics
through DPRTY w'll excute step 8 before step 4 ,if u
provide step 8 higher prty compared to the step 4,then it
is possible to execute step 8 first.
Guys if I am wrong plz correct me
| Is This Answer Correct ? | 10 Yes | 2 No |
Answer / pradip
I propose a syntax below to meet the requirement,
excute first STEP008 then excute STEP004
//JOBCARD
//STEP001 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=path of your JCL,DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(STEP008)
/*
//*
//STEP002 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=path of your JCL,DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(STEP004)
/*
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / pradeep
Hi RaviKumar,
Your above solution is not working. It just executes both
the steps in the sequence with which it is defined in the
JCL.
I propose a syntax below to meet the requirement,
//JOBCARD
//PS010 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=path of your JCL,DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(PS008)
/*
//PS020 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=path of your JCL,DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(PS004)
/*
Here I have given a separate IEBEDIT to execute the same
JCL but different step exec seqeunce. As simple as that.
I would really wish if there is a much better solution to
the one that I have given here. :)
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / muttaiah
@ Loga: If we use your option then we have to restart the
same job Twice to achieve this.
@ Pradip: Generally we won't be having that much time to
write a JCl with 2 steps and check the execution
If anyone can provide a simple solution that would be
better.
Sorry if you guys feel hurt but it's true!!!
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / loga
code restart parameter in jobcard as below.
JOBNAME JOB ,,MSGCLASS=***,NOTIFY=***,
RESTART=STEP8,COND(0,LE)
- only step 8 will execute
then change the jobcard with RESTART=STEP4,COND(0,LE)
- only step 4 wil be executed.
| Is This Answer Correct ? | 3 Yes | 6 No |
My Question is 1. How to cound no. of records in JCL. Please explain with an example. 2. How to execute only odd steps in JCL? I know EDIT TYPE = Inculde, Step Name = 1,3,5 and COND code for all even step. Anyone knows other than this.
What are the differences between JES2 & JES3 ?
How to get the last but one duplicate record of the file using Sort?
if we have a job consist of two steps and each step calling a proc having 10 steps each then how many steps are counted only 2 or 22(10+10+1+1)? can we have more than 255 steps in a single job?
What is maximum length of block size?
5 Answers Cap Gemini, Kanbay, TCS,
Is there any command to check wether the ps file is in sorted order?
How to Enter The Spool Area In Real Time?
We are aware of eliminating the duplicate records from outyput fiel using sort utility. Can we get the duplicate records in to another file in the Same sort utility?
What does IEBGENER do?
What will happen if you attempt to restart a job in the middle of a JCL // IF .... // ENDIF?
Must tape dataset definitions include vol=ser specifications?
Hi, Say I have 10 flat files and I want to copy all these 10 flat files to a GDG versions flat files (I have GDG base: FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot using a JCL. May be by using IEBGENER. It's a bit urgent. So anyone's fast rely would be appreciated.. Thanks in advance.. 10 flat files ----------------------------------- FDWS01.SUB.RESTORE1 FDWS01.SUB.RESTORE2 FDWS01.SUB.RESTORE3 ; ; FDWS01.SUB.RESTORE10 TO GDG versions ----------------------- FDWS01.TEST.RESTORE.G0001V00 FDWS01.TEST.RESTORE.G0002V00 FDWS01.TEST.RESTORE.G0003V00 ; ; FDWS01.TEST.RESTORE.G0010V00