Copying ABARs aggregates to another device type

If you wish to copy individual aggregates from one device type, for example from a 3490 to a 3590, use the following procedure.

Note that the current design of the aggregate backup function allows you to use the STACK parameter on the ABACKUP command to back up only one aggregate, to a minimum of one tape.

ABARs uses the prefix to define the aggregate. It identifies the output data sets created by aggregate backup. These output data sets are created with the following naming conventions:

outputdatasetprefix.D.CnnVnnnn and outputdatasetprefix.O.CnnVnnnn for the data file
outputdatasetprefix.C.CnnVnnnn for the control file
outputdatasetprefix.I.CnnVnnnn for the instruction/activity log file

The sequence of files associated with ABACKUP:

Data (D)
Other Data (O)
Instruction and Activity Log (I)
Control (C)

When copying individual aggregates from one device type to another, you should review your tape management retention rules to ensure that the newly copied aggregates are retained permanently. You may also have to expire the old tapes manually.

Before copying a file from existing tape to a new scratch tape, delete the ABR record by issuing the command:

 EXPIREBV ABARSVERSIONS(AGNAME(agname) RETAINVERSIONS(0))  EXECUTE

As a result, the original versions of the C-, D-, I-, and O-files will be uncataloged.

Aggregate backup may be performed in NOSTACK or STACK mode. The following sample JCL shows how to copy a C-, D-, I-, and O-file from an existing tape to a new scratch tape and a new device type, assuming that ABACKUP NOSTACK has been issued:

Figure 1. Sample JCL to copy files from an existing tape to a new scratch tape and new device type, NOSTACK mode

//***************************************************************      
//* COPY THE D FILE FROM EXISTING TAPE TO A NEW SCRATCH TAPE           
//* FILE SEQUENCE IS 1.                                                
//* IF THE COPY IS SUCCESSFUL, THE D FILE NEW VERSION
//* WILL BE CATALOGED 
//***************************************************************      
//STEP1 EXEC PGM=IEBGENER,REGION=0M                                    
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD DSN=AGM1.D.C01V0001,DISP=(OLD,KEEP,KEEP),                
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(1,SL)                     
//SYSUT2   DD DSN=AGM1.D.C01V0001,                                     
//         UNIT=3480,                                                  
//         DCB=*.SYSUT1,LABEL=(1,SL,,EXPDT=99365),                     
//         DISP=(,CATLG,DELETE)                                        
//SYSIN    DD DUMMY                                                    
//***************************************************************      
//* COPY THE O FILE FROM EXISTING TAPE AND STACK TO NEW TAPE           
//* CREATED IN STEP 1.  FILE SEQUENCE IS 2,                            
///* IF THE COPY IS SUCCESSFUL, THE O FILE NEW VERSION
//* WILL BE CATALOGED                        
//**************************************************************     
//STEP2 EXEC PGM=IEBGENER,TIME=1439                                  
//SYSPRINT DD SYSOUT=*                                               
//SYSUT1   DD DSN=AGM1.O.C01V0001,DISP=(OLD,KEEP,KEEP),              
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(2,SL)                   
//SYSUT2   DD DSN=AGM1.O.C01V0001,                                   
//         UNIT=3480,                                                
//         VOL=(,RETAIN,,9,REF=*.STEP1.SYSUT2),                      
//         DCB=*.SYSUT1,LABEL=(2,SL,,EXPDT=99365),                   
//         DISP=(,CATLG,DELETE)                                      
//SYSIN    DD DUMMY                                                  
//***************************************************************    
//* COPY THE I FILE FROM EXISTING TAPE TO NEW TAPE
//* IF THE COPY IS SUCCESSFUL, THE I FILE NEW VERSION
//* WILL BE CATALOGED                       
//***************************************************************    
//STEP3 EXEC PGM=IEBGENER,REGION=0M                                  
//SYSPRINT DD SYSOUT=*                                               
//SYSUT1   DD DSN=AGM1.I.C01V0001,DISP=(OLD,KEEP,KEEP),               
//         UNIT=3590-1,VOL=SER=A22998,LABEL=(1,SL)                    
//SYSUT2   DD DSN=AGM1.I.C01V0001,                                    
//         UNIT=3480,                                                 
//         DCB=*.SYSUT1,LABEL=(1,SL,,EXPDT=99365),                    
//         DISP=(,CATLG,DELETE)                                       
//SYSIN    DD DUMMY                                                   
//*        VOL=(,RETAIN,,9,REF=*.STEP2.SYSUT2),                       
//***************************************************************     
//* COPY THE C FILE FROM EXISTING TAPE TO NEW TAPE
//* IF THE COPY IS SUCCESSFUL, THE C FILE NEW VERSION
//* WILL BE CATALOGED                        
//***************************************************************     
//STEP4 EXEC PGM=IEBGENER,TIME=1439                                   
//SYSPRINT DD SYSOUT=*                                                
//SYSUT1   DD DSN=AGM1.C.C01V0001,DISP=(OLD,KEEP,KEEP),               
//         UNIT=3590-1,VOL=SER=A22997,LABEL=(1,SL)                    
//SYSUT2   DD DSN=AGM1.C.C01V0001,                                    
//         UNIT=3480,                                    
//*        VOL=(,RETAIN,,9,REF=*.STEP3.SYSUT2),          
//         DCB=*.SYSUT1,LABEL=(1,SL,,EXPDT=99365),       
//         DISP=(,CATLG,DELETE)                          
//SYSIN    DD DUMMY                                      
//*

The following sample JCL shows how to copy a C-, D-, I-, and O-file from an existing tape to a new scratch tape and a new device type, assuming that ABACKUP STACK has been issued (note the file sequence number in the LABEL= statement):

Figure 2. Sample JCL to copy files from an existing tape to a new scratch tape and new device type, after ABACKUP STACK

//***************************************************************      
//* COPY THE D FILE FROM EXISTING TAPE TO A NEW SCRATCH TAPE           
//* FILE SEQUENCE IS 1.                                                
//* IF THE COPY IS SUCCESSFUL, THE D FILE NEW VERSION
//* WILL BE CATALOGED                            
//***************************************************************      
//STEP1 EXEC PGM=IEBGENER,REGION=0M                                    
//SYSPRINT DD SYSOUT=H                                                 
//SYSUT1   DD DSN=AGM1.D.C01V0001,DISP=(OLD,KEEP,KEEP),                
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(1,SL)                     
//SYSUT2   DD DSN=AGM1.D.C01V0001,                                     
//         UNIT=3480,                                                  
//         DCB=*.SYSUT1,LABEL=(1,SL,,EXPDT=99365),                     
//         DISP=(,CATLG,DELETE)                                        
//SYSIN    DD DUMMY                                                    
//***************************************************************      
//* COPY THE O FILE FROM EXISTING TAPE AND STACK TO NEW TAPE           
//* CREATED IN STEP 1.  FILE SEQUENCE IS 2,                            
///* IF THE COPY IS SUCCESSFUL, THE O FILE NEW VERSION
//* WILL BE CATALOGED                    
//**************************************************************       
//STEP2 EXEC PGM=IEBGENER,REGION=0M                                    
//SYSPRINT DD SYSOUT=H                                                 
//SYSUT1   DD DSN=AGM1.O.C01V0001,DISP=(OLD,KEEP,KEEP),                
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(2,SL)                     
//SYSUT2   DD DSN=AGM1.O.C01V0001,                                     
//         UNIT=3480,                                                  
//         VOL=(,RETAIN,,9,REF=*.STEP1.SYSUT2),                        
//         DCB=*.SYSUT1,LABEL=(2,SL,,EXPDT=99365),                     
//         DISP=(,CATLG,DELETE)                                        
//SYSIN    DD DUMMY                                                    
//***************************************************************      
//* COPY THE I FILE FROM EXISTING TAPE AND STACK TO NEW TAPE           
//* CREATED IN STEP 1.  FILE SEQUENCE IS 3,                            
//* IF THE COPY IS SUCCESSFUL, THE I FILE NEW VERSION
//* WILL BE CATALOGED                            
//***************************************************************      
//STEP3 EXEC PGM=IEBGENER,REGION=0M                                    
//SYSPRINT DD SYSOUT=H                                              
//SYSUT1   DD DSN=AGM1.I.C01V0001,DISP=(OLD,KEEP,KEEP),             
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(3,SL)                  
//SYSUT2   DD DSN=AGM1.I.C01V0001,                                  
//         VOL=(,RETAIN,,9,REF=*.STEP2.SYSUT2),                     
//         UNIT=3480,                                               
//         DCB=*.SYSUT1,LABEL=(3,SL,,EXPDT=99365),                  
//         DISP=(,CATLG,DELETE)                                     
//SYSIN    DD DUMMY                                                 
//***************************************************************   
//* COPY THE C FILE FROM EXISTING TAPE AND STACK TO NEW TAPE        
//* CREATED IN STEP 1.  FILE SEQUENCE IS 4,                         
//* IF THE COPY IS SUCCESSFUL, THE C FILE NEW VERSION
//* WILL BE CATALOGED                       
//***************************************************************   
//STEP4 EXEC PGM=IEBGENER,REGION=0M                                 
//SYSPRINT DD SYSOUT=H                                              
//SYSUT1   DD DSN=AGM1.C.C01V0001,DISP=(OLD,KEEP,KEEP),             
//         UNIT=3590-1,VOL=SER=A22999,LABEL=(4,SL)                  
//SYSUT2   DD DSN=AGM1.C.C01V0001,                        
//         UNIT=3480,                                     
//         VOL=(,RETAIN,,9,REF=*.STEP3.SYSUT2),           
//         DCB=*.SYSUT1,LABEL=(4,SL,,EXPDT=99365),        
//         DISP=(,CATLG,DELETE)                           
//SYSIN    DD DUMMY                                       
//*

If you are at a disaster recovery site and the BCDS does not have the ABR record, and you want to instruct DFSMShsm not to use the volser and unit information in the control file to drive the recovery, then use the XMIT parameter with your ARECOVER command:

ARECOVER DSNAME(AGM1.C.C01V0001) XMIT PREPARE

ARECOVER will search the catalog for the control and data files and, if found, use the unit and volser from the catalog when allocating these data sets. Note that UNIT and VOLUMES are invalid if the XMIT parameter is used. If specified, you will receive an ARC6002E error message.

After ARECOVER PREPARE has successfully completed, you may perform aggregate recovery of data sets. Note that user tape data sets listed in the ACCOMPANY list will be recovered to the new device type.