FDRTSEL ARCHIVE Examples

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

Expired DASD to tape example

Select the COPY 1 ARCHIVE backups on DASD “COPY=1,BKDEVTYP=DISK” that have expired or will expire within three days “EXPIRE=YES,XDAYS=3” and move them to tape. Copy the selected ARCHIVE backups creating two tape copies (COPY 1 and COPY 2) that are retained for two years, then scratch the archive backup from DASD. The CONTROL statement indicates that a maximum of 10 files are created on COPY 1 “TAPEOUT” before requesting a new tape, but up to 255 files are stacked on COPY 2 “TAPE2OUT” and a maximum of 50 archive backups are copied in this run. The CONTROL statement can be omitted to remove these restrictions.

//FDRTSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //ARCHIVE DD DISP=SHR,DSN=FDRABR.ARCHIVE //TAPEOUT DD DISP=(,KEEP),DSN=DUMMY1,UNIT=(TAPE,2), // VOL=(,,,255),RETPD=730 //TAPE2OUT DD DISP=(,KEEP),DSN=DUMMY2,UNIT=(TAPE,2), // VOL=(,,,255),RETPD=730 //SYSIN DD * MOVE ABRCOPY2=2 SELECT ARCHIVE,COPY=1,BKDEVTYP=DISK,EXPIRE=YES,XDAYS=3 CONTROL STACK=10,STACK2=YES,MAXFILES=50 /*

Create tape copy of DASD archives example

Select the archive backups on DASD (BKDEVTYP=DISK is the default) for which a second copy does not exist “IFONLYCOPY=1”. Create a COPY 2 on tape with 1-year retention. This allows you to do archiving to DASD only for quicker execution, and create the second copy on tape at a later time.

Un-Restored DASD to tape example

Select the COPY 1 ARCHIVE backups on DASD (BKDEVTYP=DISK is the default) created more than 60 days ago “PDAYS=60” and create a COPY 2 on tape, retaining only the archived DASD data sets that have not been recalled “ARCEDIT” and “RESTORED=NO”. Archived data sets that have been removed from the Archive Control File by the FDRARCH utility are also omitted from the copy.

Tape consolidation example

Select the COPY 1 ARCHIVE backups on tape for a full year (2011 in this example) and create new COPY 1 tapes, copying only the archived DASD data sets that are still recorded in the Archive Control File. Any tape files that no longer have any recorded data sets in the Archive Control File are completely dropped (not copied), while the use of ARCEDIT ensures that the copies of the remaining files contain only the recorded data sets. This results in a much smaller set of tapes. The original tapes need to be manually expired in your tape management system. The use of the TSELCKPT data set allows the FDRTSEL job to be resubmitted and restarted if it fails or must be prematurely terminated (the second step deletes the checkpoint data set only if the FDRTSEL step completes normally).

//FDRTSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TSELCKPT DD DSN=TECH.FDRTSEL.CKPT,DISP=(MOD,CATLG), // UNIT=SYSALLDA,SPACE=(CYL,(2,1)) //TAPEOUT DD DSN=DUMMY1,DISP=(,KEEP),UNIT=TAPE,RETPD=365 //SYSIN DD * COPY DYNARC SELECT ARCEDIT,COPY=1,BKDEVTYP=TAPE, SDATE=2011000,PDATE=2012000 /* //DELCKPT EXEC PGM=IEFBR14,COND=(0,NE,FDRTSEL) //TSELCKPT DD DSN=TECH.FDRTSEL.CKPT,DISP=(OLD,DELETE)

Report on archive tapes example

Generate a report of all of the COPY 1 Archive backup tapes, to identify the tape volume serial, data set name, and file number for all archive files created before 2009. This might be used as a library pull list, to pre-pull the tape volumes required for an FDRTSEL COPY run. To execute the copy, omit the SIM operand and supply a TAPEOUT DD statement. Use of SIM to generate the pull list is highly recommended for large FDRTSEL runs unless the tapes are in an Automated Tape Library (ATL).

//SELLIST EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //ARCHIVE DD DISP=SHR,DSN=FDRABR.ARCHIVE //TAPEOUT DD DUMMY //SYSIN DD * COPY SELECT ARCHIVE,COPY=1,BKDEVTYP=TAPE,PDATE=2009000 CONTROL SIM /*

Move archives to new DASD example

Select the archive backups on 3380 DASD volume “ARCH01” and move them to a new pool of two 3390 DASD volumes “ABR100” and “ABR200”. This job allocates the files on the new volume serial numbers with the appropriate size, copies the files from “ARCH01”, updates the Archive Control File appropriately, and scratches the input files on “ARCH01”.

//FDRTSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //ARCHIVE DD DISP=SHR,DSN=FDRABR.ARCHIVE //TAPEOUT DD UNIT=3390,VOL=SER=(ABR100,ABR200),DISP=OLD //SYSIN DD * MOVE SELECT ARCHIVE,COPY=1,BKVOL=(ARCH01) /*

Reduce the size of DASD archives example

Select the archive backups on DASD older than 30 days and copy them to new files in the same DASD pool. Use the ARCEDIT feature to drop all data sets that are marked as RESTORED; this also drops all archived data sets that are no longer in the Archive Control File. It may result in considerably smaller archive files on DASD.

//FDRTSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TAPEOUT DD UNIT=SYSALLDA,VOL=SER=(ARC001,ARC002),DISP=OLD //SYSIN DD * COPY DYNARC SELECT ARCEDIT,COPY=1,RESTORED=NO,PDAYS=30 /*

Copy application backup example

A backup tape created with Application Backup (DUMP TYPE=APPL) can be copied with FDRTSEL as long as the Application Control File where the backup is recorded is still on DASD. Application Backup, described in FDRAPPL-Application-Backup, usually involves putting a DSF backup of the Application Control File that describes the backups on the tape, at the end of the tape, but the most recent copy of the Application Control File is usually still on DASD. FDRTSEL can update the DASD Application Control File and put a fresh backup of it at the end of the output tape created. In this example, a COPY 2 backup is created from all of the COPY 1 payroll backups recorded in the Application Control File pointed to by the ARCHIVE DD statement. A DSF backup of the Application Control File is created as the last file on the tape using GDG name “PAYROLL.CONTROL.BACKUP2”.

//COPYSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //ARCHIVE DD DSN=PAYROLL.ARCHIVE.DAILY(0),DISP=OLD //TAPEOUT DD DSN=PAYROLL.APPL.BACKUP2,UNIT=3590,DISP=(,KEEP) //SYSIN DD * SELECT ARCHIVE,COPY=1,BKDEVTYP=TAPE COPY COPYDSN=YES,ABRCOPY=FLIP, ABRINDEX=PAYROLL CONTROL ARCBACKUP=DSF,ARCB1DSN=PAYROLL.CONTROL.BACKUP2(+1) /*

Copy selected archive tapes to new media example

Select the archive backups on tape volumes “TP0010” and “TP0020” and move them to a Virtual Tape System (VTS). This job allocates the files on the new volume serial numbers with the appropriate size, copies the files from source tapes, and updates the Archive Control File appropriately.

//FDRTSEL EXEC PGM=FDRTSEL,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //ARCHIVE DD DSN=FDRABR.ARCHIVE,DISP=SHR //TAPEOUT DD DSN=FDRABR.NEWTAPE,DISP=(NEW,KEEP),UNIT=VTAPE //SYSIN DD * COPY SELECT ARCHIVE,COPY=1,BKDEVTYP=TAPE,BKVOL=(TP0010,TP0020) /*