Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Tapes with Less than 100 Blocks of Data › Example 4 - Nonscratch Tapes with No Data

Example 4 - Nonscratch Tapes with No Data

The following control statements will report all nonscratch volumes that are single file and contain no data. This will enable you to identify those programs that are not checking to see if they have data to write before opening the tape for output.

The output is sorted by data set name, creating job name and creation date. The report will provide the following information on each record selected for output: first 10 characters of the data set name, data set block count, volume serial number, creating job name, creating step name, creation date and expiration date. Dates are printed in the format MM/DD/YYYY.

According to the delivery instructions, the report is sent to the production control manager.

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 BI '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'
*
/*