//ROOTSIZE JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID   
//DEFINE   EXEC   PGM=IDCAMS                                      
//SYSPRINT DD     SYSOUT=H                                        
//SYSIN    DD     *                                               
     DEFINE CLUSTER (NAME(ZFS.ADCDPL.ROOT.NEW) -                  
            LINEAR CYL(800 5) SHAREOPTIONS(3) -                   
            VOLUMES(C4USS2))                                      
/*                                                                
//LCAT1    EXEC PGM=IDCAMS                                        
//SYSPRINT DD  SYSOUT=*                                           
//* This step should show a HI-U-RBA of 0                         
//* for ZFS.ADCDPL.ROOT.NEW                                       
//SYSIN    DD  *                                                  
          LISTCAT ENTRIES(ZFS.ADCDPL.ROOT) -                      
                  ALL                                             
          LISTCAT ENTRIES(ZFS.ADCDPL.ROOT.NEW) -                  
                  ALL                                             
/*                                                                
//REPRO1   EXEC PGM=IDCAMS                                        
//SYSPRINT DD SYSOUT=H                                           
//* The next line guarantees that the file system is not mounted 
//IN1   DD DSN=ZFS.ADCDPL.ROOT,DISP=OLD                          
//SYSIN DD *                                                     
  REPRO -                                                        
     INFILE(IN1) -                                               
     OUTDATASET(ZFS.ADCDPL.ROOT.NEW)                             
/*                                                               
//LCAT2    EXEC PGM=IDCAMS                                       
//SYSPRINT DD  SYSOUT=*                                          
//* This step should show the HI-U-RBA of                        
//* ZFS.ADCDPL.ROOT.NEW equal to the HI-U-RBA                    
//* of ZFS.ADCDPL.ROOT                                
//SYSIN    DD  *                                                 
          LISTCAT ENTRIES(ZFS.ADCDPL.ROOT) -                     
                  ALL                                            
          LISTCAT ENTRIES(ZFS.ADCDPL.ROOT.NEW) -                 
                  ALL                                            
/*