IBM Mainframe Forum

//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

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