Example 11: Retaining data sets using expiration date

Data sets with a high-level qualifier of 'A' are created and cataloged. Retain the data sets for a maximum of 10 days in the home location but only until the data set expires. The data set expiration date is specified in the JCL using EXPDT=nnnnn. Use the EDG_EXIT100 exit to assign a management value of MVnnnnn to the data set. When data sets have reached their expiration date or after 10 days, the data sets are moved to the storage location MAINZ for 5 more days.

RMM ADDVRS DSN('A.**')      -             /* Data set VRS                  */
           UNTILEXPIRED     -             /* Retain until expired          */
           DAYS             -             /* Retain by elapsed days        */
           COUNT(10)        -             /* Number of days                */
           LOCATION(MAINZ)  -             /* Where to retain               */
           NEXTVRS(D2)                    /* Name of the next VRS          */
RMM ADDVRS NAME(D2)         -             /* Name VRS                      */
           EXTRADAYS        -             /* Retain for extra days         */
           COUNT(5)         -             /* Number of days                */
           LOCATION(MAINZ)                /* Where to retain               */
RMM ADDVRS DSN('MV*')       -             /* Data set VRS MV               */
           WHILECATALOG     -             /* Retained while cataloged      */
           LOCATION(WARWICK)              /* Where to retain               */

If a data set remains cataloged, it is retained 10 days in HOME location. Then the data set is retained for 5 days in storage location MAINZ and finally moves to the storage location WARWICK where it remains until it is no longer cataloged. The data set returns to the home location when it is no longer cataloged.

If a data set is uncataloged before the 10 days specified in the vital record specification, then the data set is retained for example 7 days in HOME location. Then the data set move to the storage location MAINZ where the data sets are retained for 5 days. After 5 days, the data sets will return to the home location.