How to add scratch logic to the EARL TLMS report?

Products

• TLMS Tape Management

Issue/Introduction

Need to add scratch logic to an EARL TLMS  report.

Environment

Release : 14.0

Component : TLMS Tape Management

Resolution

Find the following code in your EARL/TLMS program:

SET TYPRUN = R_VOLUME
GETTAG:              
 GET TAPEDB          
 IF TAPEDB = 'E'     
    GOTO EOJ         
 ENDIF               

*

Insert the following code after that:

IF SCRATCH_IND = 'N'        
   GOTO GETTAG              
ENDIF                       
                             
 Logic breakdown:

1). IF SCRATCH_IND = 'N' . Check if the volume is a non-scratch/active volume. 

2). If the volume is still active, skip this volume and get the next volume in the VMF.

3). Close out 'IF' statement.