Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Tapes Expiring Over the Thanksgiving Holiday › Example 3 - Tapes with Less Than 100 Blocks of Data

Example 3 - Tapes with Less Than 100 Blocks of Data

The following control statements will provide a report of all nonscratch single file volumes that are using less than 100 blocks of data on a volume. This may be helpful in determining whether data sets should be moved to DASD to improve processing throughput.

The page layout is 55 lines by 86 columns, and a page break is generated if the first four characters of the data set name change. The NEWPAGE keyword and the keyword used to specify the major SORT field are the same. The report will provide the following information on each record selected for output: data set name, record length, block size and data set block count.

According to the delivery instructions, the report is sent to the runtime improvement group.

CONTROL-SECTION
*
SORT DSN
TITLE 'TAPES WITH LESS THAN 100 BLOCKS OF DATA'
FOOTER 'DELIVER TO RUN TIME IMPROVEMENT GROUP'
ALTER PRINTIMAGE=55X086
DEFINE BLOCKS HX '00000064'
DEFINE SCRBIT HX '04'
DEFINE FIRST  CH '000000'
DEFINE NODSNB BI '0000'
*
PROCESS-SECTION
*
WHEN FLAG1  OFF SCRBIT
 AND 1STVOL LT  FIRST
 AND NUMDSNB EQ  NODSNB
 AND BLKCNT LE  BLOCKS
LIST
*
REPORT-SECTION
*
NEWPAGE DSN ON-FIRST 004
PRINT DSN     'DATA SET NAME'
PRINT LRECL   'RECORD,LENGTH'
PRINT BLKSIZE 'BLOCK,SIZE'
PRINT BLKCNT  'BLOCK,COUNT'