Run TMSGRW using the following sample control statements to list all active Tape Data Sets, for which no catalog entry exists.
The control statements check the OSC bit, which represents the catalog status. For Volume Records the OSC bit is in FLAG4 and for DSNB records it is in FLAG1.
For this reason two WHEN statements are required, which use the NUMDSNB field to distinguish between TMC Volume and DSNB records.
NOTE: DSNB=YES is required to have the NUMDSNB field to contain the file sequence number and not the number of secondary data sets.
//TMSGRW.SYSIN DD *
CONTROL-SECTION
TITLE 'ACTIVE TAPES/DSNBS WITH OSC BIT OFF'
ALTER DSNB=YES
DEFINE ONE BI '0001'
DEFINE SCRBIT HX '04'
DEFINE OSCBIT HX '08'
*
PROCESS-SECTION
WHEN NUMDSNB LE ONE AND FLAG1 OFF SCRBIT AND FLAG4 OFF OSCBIT
LIST
WHEN NUMDSNB GT ONE AND FLAG1 OFF SCRBIT AND FLAG1 OFF OSCBIT
LIST
*
REPORT-SECTION
PRINT VOLSER
PRINT DSN
PRINT NUMDSNB 'FILESEQ'
PRINT CDATE
PRINT EXPDT
PRINT FLAG1
PRINT FLAG4
/*
For details on the TMSGRW Utility please see TMSGRW Utility -- Produce Customized Reports on TMC and Audit Records