Override DD-statements of an in-stream procedure

[aldencarr123]

I received a JCL error after submitting this job can anyone explain why?

Code: Select all

//TSOZA48 JOB 3ES10G10000012,'TSOZA48',MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=TSOZA48,CLASS=A,REGION=2M
//********************************************************************
//* JOB SUBMITTED FROM userid.ES10.CNTL(LAB5#31) ***
//* DOC: Override DD-Statements on an Instream Procedure ***
//********************************************************************
//COMP PROC
//**********************************************************
//********* MAKE BACKUP
//**********************************************************
//S1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=userid.ES10.CNTL
//SYSUT2 DD DISP=(,CATLG),DSN=userid.ES10.BACK,
// LIKE=userid.ES10.CNTL
//SYSIN DD DUMMY
//IFOK1 IF (S1.RC=0) THEN
//**********************************************************
//********* COMPRESS DATA SET
//**********************************************************
//S2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=userid.ES10.CNTL
//SYSUT2 DD DISP=OLD,DSN=userid.ES10.CNTL
//SYSIN DD DUMMY
//IFOKEND1 ENDIF
//IFOK2 IF (S2.RC=0) THEN
//**********************************************************
//********* COMPRESS SUCCESSFUL, DELETE BACKUP
//**********************************************************
//S3 EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE),DSN=userid.ES10.BACK
//IFOKEND2 ENDIF
// PEND
//FINAL EXEC COMP
//S1.SYSUT1 DD DISP=SHR,DSN=TSOZA60.COPY.CNTL
//S1.SYSUT2 DD DISP=(,CATLG),DSN=TSOZA60.ES10.BACK,
// LIKE=TSOZA60.COPY.CNTL
//S2.SYSUT1 DD DISP=SHR,DSN=TSOZA60.COPY.CNTL
//S2.SYSUT2 DD DISP=OLD,DSN=TSOZA60.COPY.CNTL

Coded for you - last time

[prino]

And we have to guess the error?

And

Code: Select all

//IFOK2 IF (S2.RC=0) THEN

will very obviously be not very useful if S2 is not executed when S1 falls over.

[sergeyken]

My car doesn’t drive after I press Start button can anyone explain why?

[NicC]

In other words: What was the JCL error? Show us the messages. Make it easy for us - some of us are busy and do not have much time to spare to help. Using the code tags when presenting code, data, control statements and reports helps people see the problem quicker so use them!

[willy jensen]

the datasetnames in the instream proc are in lowercase. they are checked even though they are overridden.