CATERL19 - print TLMS ALTLOG transactions

Products

• TLMS Tape Management

Issue/Introduction

Hi ,

I'm looking for a way to use CATERL19 to print EXPDT/RETPD fields in Alternate Log backup - I already have a job that prints a report as-is (i.e. Broadcom CATERL19 as found in CTAPPROC) . However, it does not display the RETPD given to a Tape dataset. Can CATERL19 be tailored to print this data ? 

Environment

Release : 14.0

Component : CA TLMS Tape Management

Resolution

Find the following code in the CTAPEARL(TLERPT19) member:

IF RECORD_TYPE = '1' AND SCRATCH_SOURCE NOT= '#' 
   SET C1 = C1 + 1                               
   SET CTOT = CTOT + 1                           

Add the following:

SET FUNCTION = 'TO_EXTERNAL'                            
CALL CTSEDATE USING FUNCTION P_EXPDT EXPDT  DATE_FMT    

New block of code should look like this:

IF RECORD_TYPE = '1' AND SCRATCH_SOURCE NOT= '#'        
   SET C1 = C1 + 1                                      
   SET CTOT = CTOT + 1                                  
   SET FUNCTION = 'TO_EXTERNAL'                         
   CALL CTSEDATE USING FUNCTION P_EXPDT EXPDT  DATE_FMT 
ENDIF                                                   

*

Locate the following code in the PRINT statement:

SELECT  RECORD_TYPE = '1' AND SCRATCH_SOURCE NOT= '#'        
                                                             
CONTROL SMF_DATE SMF_TIME                                    
                                                             
PRINT DSN FILESEQ VOLSER.............

Add the field name of P_EXPDT to the PRINT statement to print of the EXPDT/RETPD within the TLMS close transaction.