TMSBLDVR RC12

Document ID : KB000109804
Last Modified Date : 17/08/2018
Show Technical Document Details
Question:
what is the best way to Identify whats not on delete status? This is an output from TMSBLDVR: INPUT PARAMETERS *** REMVOL 000000-099999 ONE OR MORE VOLUMES ARE NOT IN DELETE STATUS REMDSNB 1000 NUMBER OF VSNS ALLOCATED IN CURRENT TMC: 02605001 NUMBER OF DSNBS ALLOCATED IN CURRENT TMC: 01000000 NUMBER OF FREE DSNBS: 00798649 NUMBER OF FREE DSNBS THAT CAN BE REMOVED: 00288992 TMSBLDVR COMPLETED WITH ERRORS
Answer:
Here is a TMSGRW program that can be used to list out tapes within a range and do not have the DEL bit on in FLAG1. 
CONTROL-SECTION 
DEFINE DELFLG HX '02' 
DEFINE LOWVOL CH '000000' 
DEFINE HIVOL CH '099999 
PROCESS-SECTION 
WHEN FLAG1 ON DELFLG 
REJECT 
WHEN VOLSER LT LOWVOL 
REJECT 
WHEN VOLSER LE HIVOL 
LIST 
REPORT-SECTION 
PRINT VOLSER 
PRINT FLAG1 
PRINT EXPDT 

You can change the LOWVOL and HIVOL values to meet your needs.

The JCL to run this can be found in the CTAPJCL library in a member called TMSGRW. The above code would be put in the SYSIN DD.