Answer / joshna

//jobname positional parms,keyword parms,.... Restart=step3
//..
//..
//..
//step3 exec=xxxx
//...
//step4 exec=yyyy,cond=(0,eq,step3)
//..
//step5 exec=zzzz

Answer / sreelatha

//jobname positional parms,keyword parms,.... Restart=step3
//..
//..
//..
//step3 exec=xxxx
//...
//step4 exec=yyyy,cond=(0,Le,step3)
//..
//step5 exec=zzzz

Restart =step 3 executes step3.Step 3 gives some return
code.In step 4,the test is passed as 0 is less than step
3.So step 4 is bypassed and is not executed. and the
program is responsible for issuing the return code that
was not even loaded in the main storage.
The result: no return code can exist
In the steps that follow any test of COND parameter tat
attempts to interrogate this non-existent return
code will be ignored . Step 5 will be e executed.

Answer / syntel

Sorry,my previous solution was wrong.Infact it is correct
if you don't want to skip step 4th step

The correct solution for this is
to use COND paramater.

Answer / pradeep

The below given code provides the exact solution,

//STEP001 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXX.GENERAL.STUDY(TEST001),DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSIN DD *
EDIT TYPE=EXCLUDE,STEPNAME=(STEP003,STEP005)
/*

Answer / rudolf

This jcl is the correct answer, this is used to run a batch
job in production environment.
*** if the JCL will run step3 and step5 condcode is 0
while step4 condcode is flush means it will not run.

//jobname jobcardxx
// xxxxx
// xxxxx
// xxxxx
//..
//..
//step3 exec pgm=xxx,cond=(4,lt)
//....
//....
//step4 exec pgm=xxx,cond=(0,le)
//....
//....
//step5 exec pgm=xxx,cond=(4,lt)
//....
//....


RUDOLF M. AQUINO
SYSTEM PROGRAMMER(MAINFRAME)
UNITED COCONUT PLANTERS BANK
MAKATI CITY

Answer / raj

//STEP001 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXX.GENERAL.STUDY(TEST001),DISP=SHR
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSIN DD *
EDIT TYPE=EXCLUDE,STEPNAME=(STEP003,STEP005)
/*

Answer / sivakumar sekharannair

1)Give restart=step03 in job card
2)in step04 give cond=(0,le)
3)step05 no condition neeeded

sample jcl is given below



//AAUT001D JOB ,'TEST',MSGLEVEL=(1,1),CLASS=C,MSGCLASS=H,
// NOTIFY=&SYSUID,RESTART=STEP003

//STEP001 EXEC PGM=AUT0EMP
//EMPLOY1 DD DSN=PROGMR.SBPD.EMP.DATA.SAMPLE1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

//STEP002 EXEC
PGM=AUT0EMP
//EMPLOY1 DD
DSN=PROGMR.SBPD.EMP.DATA.SAMPLE1,DISP=SHR
//SYSPRINT DD
SYSOUT=*
//SYSOUT DD
SYSOUT=*

//STEP003 EXEC PGM=AUT0EMP
//EMPLOY1 DD DSN=PROGMR.SBPD.EMP.DATA.SAMPLE1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

//STEP004 EXEC PGM=AUT0EMP,COND=
(0,LE)
//EMPLOY1 DD
DSN=PROGMR.SBPD.EMP.DATA.SAMPLE1,DISP=SHR
//SYSPRINT DD
SYSOUT=*
//SYSOUT DD
SYSOUT=*

//STEP005 EXEC PGM=AUT0EMP
//EMPLOY1 DD DSN=PROGMR.SBPD.EMP.DATA.SAMPLE1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

Answer / rahul singh

//jobname jobcardxx
// xxxxx
// xxxxx
// xxxxx
//..
//..
//step3 exec pgm=xxx,cond=(0,gt)
//....
//....
//step4 exec pgm=xxx,cond=(0,le)
//....
//....
//step5 exec pgm=xxx,cond=(0,gt)
//....
//....

Answer / rajesh

We use the COND Parameter for By pass the 5th step &
RESTART=Step Name in the job Card.
// Jobname Job Acc.info,Programmer
name,..............,Restart=Step3
//Step4 EXEC PGM=Program Name,COND=(0,LE,Step3)
//Step5 EXEC PGM=Program Name
//

Answer / name

It depends on the situation. I recommend against using
IEBEDIT to alter the JCL. Use of IF ... THEN is more
perspicuous than use of the COND parm.

i want to store 20 digits . how will u do it in cobol ?

0 Answers  

WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375

0 Answers  

How to execute 300 steps in a Job?

15 Answers   Accenture, Zensar,

How do you submit JCL via a Cobol program?

2 Answers   Cap Gemini,

What is the error code SOC01 indicate ?

5 Answers   Microsoft,

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

2 Answers  

What is the difference between run mode and addressing mode?

0 Answers  

Which COND paramter will u use to execute the step only if the previous step does not execute

3 Answers   BoA, HSBC,

How system will identify whether user wants to create PS or PDS? If answer is SPACE parameter then why we need to pass ps or po as dataset organisation while creation

1 Answers  

We are using 2 files , file one has data, file two is empty.Using jcl how can we find the other file is empty?

9 Answers   CSC, IBM,

Explain the purpose of dd dummy statement?

0 Answers  

How is a new GDG coded?

2 Answers