When viewing a dump captured by CA Symdump for CICS the source code for the abend program is not available.
search cancel

When viewing a dump captured by CA Symdump for CICS the source code for the abend program is not available.

book

Article ID: 6380

calendar_today

Updated On:

Products

SymDump for CICS SymDump Batch

Issue/Introduction

A user is trying to view a dump captured by CA Symdump for CICS. But the dump captured indicates that the dump does not have the corresponding source code. The PROTSYM file does contain source code that matches the abending load module MAINMOD with the same date and time stamp. 

Environment

Z/OSCICS

Cause

The product is working as designed. When a program abends the PROGRAM ID is used to find the matching PROTSYM file source code member. If a PROTSYM member does not exist with the same name as the program ID then no program source level support will be available when viewing the dump.

Resolution

As a work around you can make a copy of the source code that corresponds to the load module name by using the JCL outlined below. In the example below the Load module name is called MAINCOM but the PROGRAM ID is call MAANCOM

 

//* LOAD MODULE NAME  MAINCOM                                          

//*                                                                     

//* PROGRAM-ID.       MAANCOM                                          

//*                                                                    

//*                                                                     

//* CLEANUP DELETE THE   PROGRAM-ID. MAANCOM.    DELETE FROM PROTSYM   

//*                                                                    

//CLEANUP  EXEC PGM=IN25UTIL,REGION=4000K                              

//PROTSYM  DD DISP=SHR,DSN=CICS.COMPOSIT.PROTSYM                       

//MESSAGE  DD SYSOUT=*                                                 

//SYSPRINT DD SYSOUT=*                                                 

//CARDS    DD *                                                         

PASSWORD=12345678                                                      

DELETE=MAANCOM                                                         

/*                                                                     

//*                                                                    

//*UNLOAD THE PROTSYM MEMBER   LOAD MODULE NAME    MAINCOM             

//*                                                                    

//*                                                                     

//UNLOAD   EXEC PGM=IN25UTIL,REGION=4000K                              

//PROTSYM  DD DISP=SHR,DSN=CICS.COMPOSIT.PROTSYM                       

//UNLOAD   DD  DSN=&&PROTSYM,UNIT=SYSDA,DISP=(NEW,PASS),               

//       DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420),                      

//       SPACE=(CYL,(5,5))                                             

//MESSAGE  DD SYSOUT=*                                                 

//SYSPRINT DD SYSOUT=*                                                  

//CARDS    DD *                                                        

PASSWORD=12345678                                                      

UNLOAD=MAINCOM                                                         

/*                                                                      

//*                                                                    

//*RELOAD THE LOAD MOD NAME MAINCOM AS THE PROGRAM ID NAME MAANCOM     

//*                                                                     

//RELOAD  EXEC PGM=IN25UTIL,REGION=4000K                               

//RELOAD   DD  DSN=&&PROTSYM,DISP=(OLD,DELETE)                         

//PROTSYM  DD DISP=SHR,DSN=CICS.COMPOSIT.PROTSYM                       

//MESSAGE  DD SYSOUT=*                                                 

//SYSPRINT DD SYSOUT=*                                                 

//CARDS    DD *                                                        

PASSWORD=12345678                                                      

RELOAD=MAINCOM,MAANCOM                                                 

REPORT                                                                 

 

/*