Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Nonresident Tape Processing for Yesterday › Example 6 - Invalid Use of Permanent Retention

Example 6 - Invalid Use of Permanent Retention

For this example, assume that your data center does not allow permanent retention unless the data set names begin with 'ASM2.ARCHIVE', 'BACKUP.IRS', or BACKUP.FULLVOL. The control statements below will identify the invalid use of permanent retention. The report will list any volumes using permanent retention which do not store data set names beginning with 'ASM2.ARCHIVE', 'BACKUP.IRS' or 'BACKUP.FULLVOL'.

The page layout is 60 lines by 85 columns, and the output is sorted by data set name and user ID. The report will provide the following information on each record selected for output: data set name, volume serial number, user ID and expiration date. Dates are printed in the format MMMDD,YYYY. According to the delivery instructions, the report is sent to the manager of storage resources.

CONTROL-SECTION
*
SORT DSN USERID
TITLE 'INVALID USE OF PERMANENT RETENTION'
FOOTER 'DELIVER TO MANAGER OF STORAGE RESOURCES'
ALTER PRINTIMAGE=60X085
DEFINE DSN1 CH   'ASM2.ARCHIVE'
DEFINE DSN2 CH   'BACKUP.IRS'
DEFINE DSN3 CH   'BACKUP.FULLVOL'
DEFINE PERM1 DT  'PERMANENT'
DEFINE PERMLO DT 'STATS/001'
DEFINE PERMHI DT 'STATS/999'
*
PROCESS-SECTION
*
WHEN DSN1 EQ DSN
  OR DSN2 EQ DSN
  OR DSN3 EQ DSN
REJECT
*
WHEN EXPDT EQ PERM1
  OR EXPDT GE PERMLO
 AND EXPDT LE PERMHI
LIST
*
REPORT-SECTION
*
PRINT DSN    'DATA SET NAME'
PRINT VOLSER 'VOLUME,SERIAL'
PRINT USERID 'USER,ID'
PRINT EXPDT  'EXPIRE,DATE' AS 'MMMDD,YYYY'