//DUMPSIPL JOB (9999,IPO,10,10), // 'CORNERSTONE', // CLASS=I, // MSGCLASS=X, // MSGLEVEL=(1,1), // TIME=1440 //* //DUMP1 EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //BC2MCC DD DISP=OLD,VOL=SER=BC2MCC,UNIT=3390 //BCK1 DD DISP=(,PASS),DSN=BACKUP.WBC2MCC, // VOL=SER=CB0970,UNIT=301, // LABEL=(1,SL),DCB=(BLKSIZE=64000) //BC2RIC DD DISP=OLD,VOL=SER=BC2RIC,UNIT=3390 //BCK2 DD DSN=BACKUP.WBC2RIC, // DISP=(,KEEP),VOL=REF=*.BCK1, // UNIT=AFF=BCK1, // LABEL=(2,SL),DCB=(BLKSIZE=64000) //BC1MC3 DD DISP=OLD,VOL=SER=BC1MC3,UNIT=3390 //BCK3 DD DSN=BACKUP.WBC1MC3, // DISP=(,KEEP),VOL=REF=*.BCK1, // UNIT=AFF=BCK1, // LABEL=(3,SL),DCB=(BLKSIZE=64000) //BC1RI3 DD DISP=OLD,VOL=SER=BC1RI3,UNIT=3390 //BCK4 DD DSN=BACKUP.WBC1RI3, // DISP=(,KEEP),VOL=REF=*.BCK1, // UNIT=AFF=BCK1, // LABEL=(4,SL),DCB=(BLKSIZE=64000) //SYSIN DD * DUMP INDDNAME(BC2MCC) - OUTDDNAME(BCK1) OPT(4) FULL COM RESET - ALLDATA(*) ALLEXCP DUMP INDDNAME(BC2RIC) - OUTDDNAME(BCK2) OPT(4) FULL COM RESET - ALLDATA(*) ALLEXCP DUMP INDDNAME(BC1MC3) - OUTDDNAME(BCK3) OPT(4) FULL COM RESET - ALLDATA(*) ALLEXCP DUMP INDDNAME(BC1RI3) - OUTDDNAME(BCK4) OPT(4) FULL COM RESET - ALLDATA(*) ALLEXCP IF LASTCC = 0 - THEN WTO 'DUMP OF BC2MCC TO TAPE COMPLETED SUCCESSFULLY' ELSE WTO 'DUMP OF BC2MCC TO TAPE WAS UNSUCCESSFUL'