Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Tapes Not Read for Input Over One Year (and Not Vaulted) › Example 8 - Tapes Not Read for Input for Over One Year (and Not Vaulted)

Example 8 - Tapes Not Read for Input for Over One Year (and Not Vaulted)

This example will provide a list of volumes that have not been read for input for at least a year and are not marked out-of-area to 'LIB', 'LIBR', 'DRA1', 'SAFE', or 'PERM', which are the off-site storage locations owned by the CA 1 Vault Management System (VMS).

The report will provide the following information on each record selected for output: volume serial number, data set name, last used date, and expiration date. Dates are printed in the format DDMMMYYYY. According to the delivery instructions, the report is sent to the tape library administrator.

CONTROL-SECTION
*
TITLE 'TAPES NOT READ FOR INPUT OVER ONE YEAR (AND NOT VAULTED)'
FOOTER 'DELIVER TO TAPE LIBRARY ADMINISTRATOR'
DEFINE OUT1 CH  ' LIB'
DEFINE OUT2 CH  'LIBR'
DEFINE OUT3 CH  'DRA1'
DEFINE OUT4 CH  'SAFE'
DEFINE OUT5 CH  'PERM'
DEFINE DATE DT  'DDMMMYYYY'
DEFINE ZERO DT  'ZEROS'
*
PROCESS-SECTION
*
WHEN OUT1 NE OUTCODE
 AND OUT2 NE OUTCODE
 AND OUT3 NE OUTCODE
 AND OUT4 NE OUTCODE
 AND OUT5 NE OUTCODE
 AND LDATE LE DATE
 AND LDATE GT ZERO
LIST
*
REPORT-SECTION
*
PRINT VOLSER 'VOLUME,SERIAL'
PRINT DSN    'DATA SET NAME'
PRINT LDATE  'DATE LAST,USED' AS 'DDMMMYYYY'
PRINT EXPDT  'EXPIRE,DATE' AS 'DDMMMYYYY'