Sms Archive Examples - Documentation for Bmc Compuware Fdr 5.04

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

ABR Archive and Superscratch on SMS-managed volumes can be done in the same ABR step as non-SMS volumes. Selection of data sets from SMS-managed volumes can be done by normal ABR control statements (if SMSMANAGE=NO is specified or defaulted), or by SMS management class criteria (SMSMANAGE=YES must be specified). See System Managed Storage (SMS) for more details. The examples below process only SMS-managed volumes so that SMS processing can be clarified.

Scratch and archive based on management class example

Since some of the characteristics of the SMS management class relate to scratching data sets, and some to archiving, a complete implementation of the SMS management class requires that an ABR Superscratch step be run right before an ABR Archive step. This is explained in detail in System Managed Storage (SMS). In this example, only the management class criteria is used to select data sets for scratch and Archive.

//SCRATCH EXEC PGM=FDRABR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //TAPE1 DD DUMMY //SYSIN DD * DUMP TYPE=SCR,SMSMANAGE=YES,DSNENQ=USE,EXPIRED,SELTERR=NO MOUNT STORGRP=TSO1 MOUNT STORGRP=TSO2 /*
//ARCHIVE EXEC PGM=FDRABR,REGION=0M,COND=(0,NE,SCRATCH) //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //TAPE1 DD DSN=FDRABR.POOLDISK.SMS1,UNIT=SYSALLDA, // VOL=SER=(ARC001,ARC002,ARC003),DISP=OLD,RETPD=30 //TAPE11 DD DSN=SMS2,UNIT=TAPE,DISP=(,KEEP),RETPD=730 //SYSIN DD * DUMP TYPE=ARC,SMSMANAGE=YES,RECALL=YES,MIGRAT=YES, DSNENQ=USE,DYNARC MOUNT STORGRP=TSO1 MOUNT STORGRP=TSO2 /*

Archive based on SMS thresholds example

Archive data sets from SMS-managed volumes based on their SMS management class criteria, but only from SMS-managed volumes whose percentage of tracks allocated exceeds the high threshold associated with the volume’s SMS storage group.

//ARCHIVE EXEC PGM=FDRABR,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //TAPE1 DD DSN=SMS1,UNIT=TAPE,DISP=(,KEEP),RETPD=60 //TAPE11 DD DSN=SMS2,UNIT=TAPE,DISP=(,KEEP),RETPD=365 //SYSIN DD * DUMP TYPE=ARC,SMSMANAGE=YES,RECALL=YES,MIGRAT=YES, DSNENQ=USE,THRESHOLD=HIGH,DYNARC,RTC=YES MOUNT STORGRP=PROD1 /*