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

Document ID : KB000006380
Last Modified Date : 14/02/2018
Show Technical Document Details
Issue:

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                                                                 

 

/*