Here is a short version of the job...and it croaks trying to open up the tape in the second part of the second step. We thought maybe it was a DD name conflict and changed the scheme for a test, same results...opened with IBM and will do the same with FDR folks. This job will be all generated by REXX to be dynamic.
//TAPE1 DD DSN=PDR.TSTBKP.AIG002(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=(TAPE92,,DEFER),
// DCB=(IPOBAK.PATTERN.DSCB,BUFNO=10),
// LABEL=(1,SL,EXPDT=99000),
// VOL=(,RETAIN)
//DISK2 DD UNIT=3390,DISP=SHR,VOL=SER=DBPK23
//TAPE2 DD DSN=PDR.TSTBKP.DBPK23(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=(TAPE92,,DEFER),
// LABEL=(2,SL,EXPDT=99000),
// DCB=(IPOBAK.PATTERN.DSCB,BUFNO=10),
// VOL=(PRIVATE,RETAIN,REF=*.TAPE1)
//SYSIN DD DSN=PROD.PARMLIB(DR100),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//* End of Step
//DUMP2 EXEC PGM=FDR,REGION=8M
//DISKA DD UNIT=3390,DISP=SHR,VOL=SER=DB0034
//TAPEA DD DSN=PDR.TSTBKP.DB0034(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(IPOBAK.PATTERN.DSCB,BUFNO=10),
// UNIT=(TAPE92,,DEFER),
// LABEL=(3,SL,EXPDT=99000),
// VOL=(,RETAIN,,,REF=*.DUMP1.TAPE1)
//DISKB DD UNIT=3390,DISP=SHR,VOL=SER=DB0035
//TAPEB DD DSN=PDR.TSTBKP.DB0035(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=(TAPE92,,DEFER),
// LABEL=(4,SL,EXPDT=99000),
// DCB=(IPOBAK.PATTERN.DSCB,BUFNO=10),
// VOL=(,RETAIN,,,REF=*.DUMP1.TAPE1)
//SYSIN DD DSN=PROD.PARMLIB(DR100),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//NOTIFY EXEC PGM=WTOPGM,COND=((3,GT),EVEN),
// PARM='JOB DRAIG001 BACKUP FAILED ON MVS'
//NOTIFY EXEC PGM=WTOPGM,COND=(1,LT),
// PARM='JOB DRAIG001 BACKUP SUCCESSFUL ON MVS'
//*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
