CA-1 Tape Management - How to list the DSNB records of scratched/unused DSNBs

book

Article ID: 191993

calendar_today

Updated On:

Products

CA 1 Tape Management CA 1 Tape Management - Copycat Utility CA 1 Tape Management - Add-On Options

Issue/Introduction

TMSGRW does not list UNUSED DSNBs / Scratched DSNB records. The goal is to  build a daily report to find the unused DSNBs that were freed up the previous day

Environment

Release : 14.0

Component : CA 1 Tape Management

Resolution

ACTIND is the CA1 keyword to run the compare against.  CA EARL or CA Easytrieve can be used to build the report.

Additional Information

See  below for a sample CA EARL report to achieve this 

 COPY EARLDEFS                                                     
                                                                   
 SET TYPRUN = R_SEQUENTIAL                                         
                                                                   
 GET TAPEDB                                                        
 GOTO EOJ TAPEDB = 'E'                                             
                                                                   
 IF ACTIND = 'Y' OR SCRATCH_IND = 'Y' OR SCRATCH_IND = 'N'         
     GOTO START                                                    
 ENDIF                                                             
                                                                   
 CONTINUE:                                                         
                                                                   
 REPORT TITLE 'UNUSED DSNB REPORT AND CHAINING'                    
                                                                   
 CONTROL NEXT CURDSNB                                              
                                                                   
 PRINT CURDSNB NEXT                                                
!PRINT ACTIND CURDSNB NEXT PREV DSN                                
END