Hi Daniel, On quick look, I don't see a problem. Have you sent this problem to us at Innovation? We haven't seen it yet. Please submit the job and output to the support email for us to review at your convenience.
Thanks, Joseph Butz [email protected] -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Daniel McLaughlin Sent: Monday, September 14, 2009 10:48 AM To: [email protected] Subject: Re: Use of RETAIN 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 ---------------------------------------------------------------------- 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
