Archive Backup Examples

All examples in this section are found in the JCL library installed with FDR. The member names are EX5120x.

Archive on last reference date for Auto-Recall example

Archive data sets that have not been opened in the last 30 days from two DASD volumes, but only if they are not currently enqueued to any other task. Any data set on those volumes that was marked for archiving by the DISKUPDATE=YES option of the remote queue utility FDRABRUT is also selected. The archived data sets are recataloged for Auto-Recall with MIGRAT as the first or only volume serial. The backup tapes are to be kept for 180 days. A duplicate tape copy (TAPE11) is to be created. DYNARC dynamically allocates the Archive Control File named in the FDR Global Options. At the end of the run, the Archive Control File is backed up as an ABR incremental Volume Backup.

//ARCHIVE EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSSUMM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISK1    DD UNIT=SYSALLDA,VOL=SER=TSO123,DISP=OLD
//DISK2    DD UNIT=SYSALLDA,VOL=SER=TSO124,DISP=OLD
//TAPE1    DD DSN=ARC1,DISP=(,KEEP),UNIT=TAPE
//TAPE11   DD DSN=ARC11,DISP=(,KEEP),UNIT=TAPE
//SYSIN    DD *
DUMP     TYPE=ARC,ADAYS=30,RETPD=180,DYNARC,DSNENQ=USE,
  RECALL=YES,MIGRAT=YES,RTC=YES
/*

Archive on all online volumes example

Archive data sets on any online DASD volume that has not been referenced in 60 days or that are not cataloged. Any archive requests that were added to the ABRARDQ remote queue data set by the DISKUPDATE=NO option of remote queue is also selected. Any cataloged data sets that are selected by ADAYS=60 or the remote queue are recataloged for Auto-Recall. The ABR Last Tape Option is used; if a previous ABR run used the same LASTAPE DSNAME, ABR mounts the last tape it used and add backup files to it. The backup files are kept for two years (730 days). The backup of the Archive Control File is done by DSF, creating file FDRABR.ARCBKUP at the end of the backup tape.

Important

Uncataloged data sets are not eligible for Auto-Recall. However, if you have installed the ABR Data Set Not Found exit, and JCL refers to the data set by UNIT= and VOL=SER=, that exit recalls the data set.

//ARCHIVE EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSSUMM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ARCHIVE DD DSN=FDRABR.ARCHIVE,DISP=SHR
//TAPE1    DD DSN=FDRABR.LASTAPE.ARC1,
//            UNIT=TAPE,DISP=(MOD,KEEP)
//ABRARDQ DD DSN=FDRABR.ABRARDQ.DATA,DISP=SHR
//SYSIN    DD *
DUMP     TYPE=ARC,ONLINE,ADAYS=60,IFNOTCAT,RETPD=730,
          ARCBACKUP=DSF,DSNENQ=USE,RECALL=YES,MIGRAT=YES,
          RTC=YES
/*

Archive specified data sets using zEDC compression example

A group of data sets beginning with “ABC” is to be unconditionally archived from DASD volume “TSO123”. However, a subset of the data sets starting with “ABC.DATA” is not to be archived. The ONLVOL option allows ABR to dynamically allocate the DASD volume. All tracks of the data sets including the unused tracks are to be dumped. Two backup copies are created using the Last Tape Option for each; COPY 1 is retained for 120 days while COPY 2 is kept for 365 days (during restore, if COPY 1 has expired, COPY 2 is automatically used). The Archive Control File is not backed up. The archived data sets are not recataloged for Auto-Recall unless you have set ARCRECALL to “YES” in the FDR Global Options (ABR-Options). When creating the backup file, compress it using zEDC (COMPRESS=ALL and ZEDC=YES required).

//ARCHIVE EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSSUMM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ARCHIVE DD DSN=FDRABR.ARCHIVE.MASTER,DISP=SHR
//TAPE1    DD DSN=FDRABR.LASTAPE.ARC1,UNIT=TAPE,
//            DISP=(MOD,KEEP),RETPD=120
//TAPE11   DD DSN=FDRABR.LASTAPE.ARC11,UNIT=TAPE,
//            DISP=(MOD,KEEP),RETPD=365
//SYSIN    DD *
DUMP     TYPE=ARC,DATA=ALL,ONLVOL,ARCBACKUP=NONE,
          DSNENQ=USE,COMPRESS=ALL,ZEDC=YES
EXCLUDE DSN=ABC.DATA**
SELECT   DSN=ABC**,VOL=TSO123
/*

Simulation example

SIMULATE an archive procedure on a group of DASD volumes whose serials start with “MAST”, to verify that the proper data sets are selected when the Archive is actually run. All data sets larger than 1000 tracks are selected if they are not referenced in 10 days, data sets with 500 to 1000 tracks in 30 days, and all others if they have not been referenced in 60 days.

//SIM      EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSSUMM DD SYSOUT=*
//TAPE1    DD DUMMY
//SYSIN    DD *
SIM      TYPE=ARC,RTC=YES
SELECT   ALLDSN,SIZE=1001,ADAYS=10
SELECT   ALLDSN,SIZE=500,ADAYS=30
SELECT   ALLDSN,ADAYS=60
MOUNT    VOLG=MAST
/*

Archive based on thresholds example

Archive data sets that have not been used in the last 30 days, but only from volumes where the percentage of tracks allocated exceeds a “low threshold” for the volume stored in the ABR Model DSCB or, for SMS-managed volumes, in the SMS storage group. The backup is compressed by tape hardware compression (for example, IDRC). The backup tape files are retained for 365 days, by default.

//THRESHLD EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSSUMM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1    DD DSN=FDR,DISP=(,KEEP),UNIT=TAPE,DCB=TRTCH=COMP
//SYSIN    DD *
DUMP     TYPE=ARC,ADAYS=30,THRESHOLD=LOW,DYNARC,
          DSNENQ=USE,RTC=YES
MOUNT    VOLG=TST
/*