Example 10: Returning volumes to scratch status

Retain data sets created by an application as long as they are cataloged. When created normally, the data sets have an expiration date based on the parmlib RETPD default retention and are cataloged.

Define a second retention policy for those data sets that are created by jobs that abnormally end. Retain the data sets for 2 days to allow the application data to be validated. When the data set is no longer retained by this vital record specification, the volume expiration date is to be ignored and the volume moved to pending release, unless some other data set on the volume is unexpired. Then the volume can be returned to scratch immediately during the next run of inventory management vital record processing.

RMM ADDVRS DSN('A.**')      -             /* Data set VRS                  */

RMM ADDVRS DSNAME('ABEND')           -    /* Data set vrs                  */
           DAYS                      -    /* Retain by elapsed days        */
           COUNT(2)                  -    /* Number of days                */
           LOCATION(HOME)            -    /* Where to retain               */
           RELEASE(EXPIRYDATEIGNORE SCRATCHIMMEDIATE)
                                          /* Release actions               */
RMM ADDVRS DSNAME('APPL1.**')        -    /* Data set vrs                  */
           WHILECATALOG                  /* Retain while cataloged        */