Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Instruction Report

TMS Report 49 - Instruction Report

 TUESDAY, SEPTEMBER 27, 2005.268                  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 DSN CJOB CDATE
   TITLE 'NONSCRATCH TAPES WITH NO DATA'
   FOOTER 'DELIVER TO PRODUCTION CONTROL MANAGER'
   DEFINE SCRBIT HX '04'
   DEFINE CLOBIT HX '40'
   DEFINE BLOCKS HX '00000000'
   DEFINE VSEQ   HX '0001'
   DEFINE NODSNB HX '0000'
   *
   PROCESS-SECTION
   *
   WHEN FLAG1   OFF SCRBIT
    AND FLAG1   ON  CLOBIT
    AND VSEQ    EQ  VOLSEQ
    AND NUMDSNB EQ  NODSNB
    AND BLOCKS  EQ  BLKCNT
   LIST
   *
   REPORT-SECTION
   *
   PRINT DSN(10) 'DATA SET NAME'
   PRINT BLKCNT  'BLOCK,COUNT'
   PRINT VOLSER  'VOLUME,SERIAL'
   PRINT CJOB    'CREATING,JOBNAME'
   PRINT CSTEP   'CREATING,STEPNAME'
   PRINT CDATE   'CREATE,DATE' AS 'MM/DD/YYYY'
   PRINT EXPDT   'EXPIRE,DATE' AS 'MM/DD/YYYY'
   *