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