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
Release: Component: 1
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.