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