Previous Topic: Example 5 - Nonresident Tape Processing for YesterdayNext Topic: Example 6 - Invalid Use of Permanent Retention


TMS Report 49 - Nonresident Tape Processing for Yesterday

FRIDAY, JULY 22, 2005.208 Y O U R C O M P A N Y N A M E ROxxxxx PAGE=00001 TMS REPORT-49 INSTRUCTION REPORT 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'

FRIDAY, JULY 22, 2005.208                        Y O U R   C O M P A N Y   N A M E                                   PAGE=00002 TMS REPORT-49                                 NONRESIDENT TAPE PROCESSING FOR YESTERDAY   VOLUME   USER       DATA SET NAME                                  CPU    EXCEPTION   SERIAL   ID                                                        ID     CODE   AAAAAA   CAIUSER    TEST.DATA                                      XE90   004

FRIDAY, JULY 22, 2005.208 Y O U R C O M P A N Y N A M E PAGE=00003 TMS REPORT-49 NONRESIDENT TAPE PROCESSING FOR YESTERDAY 0000000 RECORDS READ BY INCLUDE(S) 0000020 RECORDS READ BY SYSIN 0011305 RECORDS READ INTO SORT 0000001 RECORDS SELECTED FOR OUTPUT

FRIDAY, JULY 22, 2005.208 Y O U R C O M P A N Y N A M E PAGE=00004 TMS REPORT-49 NONRESIDENT TAPE PROCESSING FOR YESTERDAY DELIVER TO SECURITY ADMINISTRATOR