Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Tapes with EXPDT=CATALOG Control that are Active in TMC › Example 9 - Tapes with EXPDT=CATALOG Control and are Active in TMC

Example 9 - Tapes with EXPDT=CATALOG Control and are Active in TMC

This example provides a list of tapes with the EXPDT=CATALOG control that are active in the TMC.

TMS REPORT-49          INSTRUCTION REPORT
*
   CONTROL-SECTION
*
   SORT A-DSN A-VOLSEQ A-CDATE
   TITLE 'TAPES WITH EXPIRATION DATE OF CATALOG'
   DEFINE CATDATE DT 'CATALOG'
*
   PROCESS-SECTION
*
   WHEN EXPDT EQ CATDATE
   LIST
*
   REPORT-SECTION
*
   PRINT VOLSER
   PRINT EXPDT
   PRINT DSN
   PRINT CDATE