CA Telon: Received catalog error running ADPACTLC

Products

• Telon Application Generator

Issue/Introduction

The following step is in a nightly Telon job

XXLISTCAT2 EXEC PGM=ADPACTLC,COND=(0,LT),                                                                           
XX         PARM=(IDCAMS,,,'" LISTCAT LVL(&GDGNAME) ALL"')                                                           
IEFC653I SUBSTITUTION JCL - PGM=ADPACTLC,COND=(0,LT),PARM=(IDCAMS,,,'" LISTCAT LVL(XXXX.XXX.XXXXX.XXX) ALL"')       
XXSTEPLIB  INCLUDE MEMBER=XXXXXXXX                                                                                  
XXSTEPLIB  DD DISP=SHR,DSN=SYS1.TELON.LOAD                                                                          
XXSYSIN    DD DCB=BLKSIZE=800,DISP=(,PASS),SPACE=(TRK,(1)),                                                         
XX            UNIT=&SCRUNIT                                                                                         
IEFC653I SUBSTITUTION JCL - DCB=BLKSIZE=800,DISP=(,PASS),SPACE=(TRK,(1)),UNIT=SYSDA                                 
XXSYSPRINT DD SYSOUT=*                                                                                              
XX*                                                                                                                 

Receive an RC08 - 
 LISTCAT LVL(XXXX.XXX.XXXXX.XX) ALL                                           
IDC3014I CATALOG ERROR                                                         
IDC3009I ** VSAM CATALOG RETURN CODE IS 246 - REASON CODE IS IGG0CLHA-4        
IDC1566I ** SUPPRESSED ENTRY NOT LISTED                                        

Environment

Release : 5.1

Component : CA Telon Application Generator

Resolution

The VSAM error is valid.

  LISTCAT LVL(CHGD.DBK.TELON.TDF) ALL                                           
 IDC3014I CATALOG ERROR                                                         
 IDC3009I ** VSAM CATALOG RETURN CODE IS 246 - REASON CODE IS IGG0CLHA-4        
 IDC1566I ** SUPPRESSED ENTRY NOT LISTED                                        
1IDCAMS  SYSTEM SERVICES                                           TIME: 00:10:1
0         THE NUMBER OF ENTRIES PROCESSED WAS:                                  
0                   AIX -------------------0                                    
                    ALIAS -----------------0                                    
                    CLUSTER ---------------0                                    
                    DATA ------------------0                                    
                    GDG -------------------0                                    
                    INDEX -----------------0                                    
                    NONVSAM ---------------0                                    
                    PAGESPACE -------------0                                    
                    PATH ------------------0                                    
                    SPACE -----------------0                                    
                    USERCATALOG -----------0                                    
                    TAPELIBRARY -----------0                                    
                    TAPEVOLUME ------------0                                    
                    TOTAL -----------------0                                    
         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0        
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8        
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8

The next daily run did not produce any errors.  So it appears to have been a timing issue.

Additional Information

They are using ADPACTLC in a home grown proc.
This program does not really do anything more than transfer control to - for example - IDCAMS.

When used within Telon, ADPACTLC simply formats a control card to call another job; For example, our Import proc has;
//*********************************************************************  
//*       SET IMPORT PARMS FROM PROC                                  *  
//*********************************************************************  
//*                                                                      
//SETPARM EXEC PGM=ADPACTLC,                                             
//         PARM=(IEFBR14,,D,'"&RUNTYPE &MAXSEVR"')                       
//STEPLIB  DD DSN=&TLNLOAD,DISP=SHR      

But we do supply the source, for customers to use.
FUNCTION -                                               
    ADPACTLC GENERATES UTILITY CONTROL CARDS FROM        
    INFORMATION SUPPLIED IN ITS EXEC CARD 'PARM' FIELD.  
    OPTIONALLY, IT CAN ALSO INVOKE A UTILITY PROGRAM     
    AND PASS IT A PARM FIELD.  WHEN THIS OPTION IS USED  
    ADPACTLC USES THE UTILITY PROGRAM'S RETURN CODE AS   
    ITS RETURN CODE.