Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Nonscratch Tapes with No Data › Example 5 - Nonresident Tape Processing for Yesterday

Example 5 - Nonresident Tape Processing for Yesterday

The following control statements will provide a report of all nonresident tape processing that occurred on the previous day. The Audit data set is used as input. Because the input ddname in the control statement is Audit, no DD statement is needed in the TMSGRW JCL. The active Audit is dynamically allocated and used as input.

The page layout is 55 lines by 90 columns, and the output is sorted by volume serial number, user ID and data set name. The report will provide the following information on each record selected for output: volume serial number, user ID, data set name, CPU ID and exception code.

According to the delivery instructions, the report is sent to the security administrator.

CONTROL-SECTION
*
SORT VOLSER USERID DSN
TITLE 'NONRESIDENT TAPE PROCESSING FOR YESTERDAY'
FOOTER 'DELIVER TO SECURITY ADMINISTRATOR'
ALTER INPUT=AUDIT PRINTIMAGE=55X090
DEFINE FTCODE  BI '03'
DEFINE FTEXCP1 CH '003'
DEFINE FTEXCP2 CH '007'
*
PROCESS-SECTION
*
WHEN FTCODE EQ AUCODE
 AND Y-DATE EQ LDATE
 AND AUBLKCO GE FTEXCP1
 AND AUBLKCO LE FTEXCP2
LIST
*
REPORT-SECTION
*
PRINT VOLSER  'VOLUME,SERIAL'
PRINT USERID  'USER,ID'
PRINT DSN     'DATA SET NAME'
PRINT CPUID   'CPU,ID'
PRINT AUBLKCO 'EXCEPTION,CODE'