//WBC2RIC JOB (9999,IPO,10,10), // 'CORNERSTONE', // CLASS=I, // MSGCLASS=X, // MSGLEVEL=(1,1), // TIME=30 //DUMP1 EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //DASD1 DD DISP=OLD,UNIT=3390,VOL=SER=BC2RIC //BACKUP DD DSN=BACKUP.WBC2RIC, // DISP=(,KEEP),VOL=SER=CB0390, // UNIT=301, // LABEL=(1,SL),DCB=(BLKSIZE=32000) //SYSIN DD * DUMP INDDNAME(DASD1) - OUTDDNAME(BACKUP) OPT(4) FULL COM RESET - ALLDATA(*) ALLEXCP IF LASTCC = 0 - THEN WTO 'DUMP OF BC2RIC TO TAPE COMPLETED SUCCESSFULLY' ELSE WTO 'DUMP OF BC2RIC TO TAPE WAS UNSUCCESSFUL'