Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Active Data Sets for Jobs XP700000 Through XP799999 › Example 2 - Tapes Expiring Over the Thanksgiving Holiday

Example 2 - Tapes Expiring Over the Thanksgiving Holiday

The following control statements will provide a list of volumes that will expire during the four day Thanksgiving holiday weekend. The output is sorted by volume serial, data set name, expiration date, and volume sequence number.

The report will provide the following information on each record selected for output: expiration date, volume serial number, volume sequence number and data set name. Dates are printed in the format YYYY/MM/DD.

CONTROL-SECTION
*
SORT VOLSER DSN EXPDT VOLSEQ
TITLE 'TAPES EXPIRING OVER THE THANKSGIVING HOLIDAY'
DEFINE LOWDATE DT 'YYYY/MM/DD'
DEFINE HIDATE DT 'YYYY/MM/DD'
*
PROCESS-SECTION
*
WHEN EXPDT GE LOWDATE
  AND EXPDT LE HIDATE
LIST
*
REPORT-SECTION
*
PRINT EXPDT  'EXPIRATION,DATE' AS 'YYYY/MM/DD'
PRINT VOLSER 'VOLUME,SERIAL'
PRINT VOLSEQ 'VOLUME,SEQUENCE'
PRINT DSN    'DATA SET NAME'