//CPY#BC2A JOB   (9999,IPO,10,10),                           
//         'CORNERSTONE',                                    
//         CLASS=B,                                          
//         MSGCLASS=X,                                       
//         MSGLEVEL=(1,1),                                   
//         NOTIFY=,                                          
//         TIME=1440,                                        
//         USER=                                             
//CRESYSIN EXEC PGM=IEBGENER                                 
//SYSPRINT DD SYSOUT=*                                       
//SYSIN    DD DUMMY                                          
//SYSUT2   DD DISP=(,PASS),SPACE=(TRK,1),RECFM=F,LRECL=80    
//SYSUT1   DD *,LRECL=80                                     
  COPY FULL INDDNAME(IPACK) OUTDDNAME(OPACK) COPYVOLID       
/*                                                    
//COPYPACK PROC IVOL=IIIIII,OVOL=OOOOOO               
//DFDSS    EXEC PGM=ADRDSSU,REGION=0M,TIME=1440       
//SYSIN    DD  DISP=(OLD,PASS),DSN=*.CRESYSIN.SYSUT2  
//IPACK    DD  DISP=OLD,UNIT=3390,VOL=SER=&IVOL       
//OPACK    DD  DISP=OLD,UNIT=3390,VOL=SER=&OVOL       
//SYSPRINT DD  SYSOUT=*                               
//   PEND                                             
//BC2SP2   EXEC COPYPACK,IVOL=BC2SP2,OVOL=SP190B      
//CTSC01   EXEC COPYPACK,IVOL=CTSC01,OVOL=SP190C      
//CTSC02   EXEC COPYPACK,IVOL=CTSC02,OVOL=SP190D      
//LOGR1C   EXEC COPYPACK,IVOL=LOGR1C,OVOL=SP190E      
//LOGR2C   EXEC COPYPACK,IVOL=LOGR2C,OVOL=SP190F      
//OAMC01   EXEC COPYPACK,IVOL=OAMC01,OVOL=SP1910      
//TSOC01   EXEC COPYPACK,IVOL=TSOC01,OVOL=SP1911      
//TSOC02   EXEC COPYPACK,IVOL=TSOC02,OVOL=SP1912      
//TSOC03   EXEC COPYPACK,IVOL=TSOC03,OVOL=SP1913