Monday, February 6, 2012

Abend-aid: No source available/formatted abend-aid dump


When Abend-aid is not able to locate the DDIO member of the abending program, it displays the following screen when an abend-aid entry is selected in a CICS region.

If we setup abend-aid with proper DDIO file, then it will automatically locate the abending COBOL statement from the program listing using the offset of the abending statement and it will also map the values of working-storage and linkage section fields using the program listing from the dump.


  Abend-AID ---------------- No Source Available ----------------------------- 
  COMMAND ===>                                                                 
  MSDSD5500I There is no Compuware source listing available for this program   
  There is no Compuware Source Listing available to provide source support     
  for this program name. To provide source support you can either convert an   
  existing compiler listing into a Compuware Source Listing or you can create  
  a Compuware Source Listing by compiling the program.                         
                                                                               
  Program Information                                                          
     Program Name................. TESTPGM                                     
     Compile Date................. 31JAN2012                                   
     Compile Time................. 12:38:02                                    
     Program Language............. COB Z/OS                                     
     Language Release............. V4R2                                        
                                                                               
  Select one of the following options to create a Compuware Source listing:    
     To have Abend-AID convert an existing compiler listing, select CONVERT    
     To use site customized utilities (ISPF only), select UTILITIES            
                                                                                
  To continue without source-level support, select NO SOURCE                   
                                                                               
  For all Compuware-processed listings for this program, select LISTALL        
                                                                                
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


In the above screen, press PF3 key to arrive at the below screen. Select option “R” in the below screen


  Abend-AID ------------------ Primary Options ------------------------------- 
  OPTION  ===> R                                                               
                                                                               
  1  DIAG     Diagnostic Summary        7  *FILE    File Request Summary       
                                                                               
  2  PROG     Program Information       8  DB2      DB2 Information            
                                                                                
  3  TRACE    CICS Trace                9  *L3270   Last 3270 Screen           
                                                                               
  4  *TERM    Terminal Detail           10 *MQINFO  WebSphere MQ Information   
                                                                               
  5  TASK     Task Detail               11 *CWI     CICS Web Interface         
                                                                                
  6  CB       Control Blocks/Storage    12 LEINFO   LE Information             
                                                                               
                                                                                
                                                                               
  D  DIRECTRY Abend-AID Directory       R  SRCDIR   Source Directory           
                                                                                
  S  SUMMARY  Fault Summary             U  USER     User Control Facility      
                                                                               
  N  NEWS     Product News              X  EXIT     Exit                        
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


In the below screen, place the cursor under “ADD” and press ENTER key

  Abend-AID ------------------ Source Directory --------- Row 000001 of 000003 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                          ==>  
  To add a dataset to the list, select Add                                     
                                                                               
  S Directory    I Information    X Include/Exclude    D Delete                
                                                                                
                                                  Exclude   Defined   Remote   
    Dataset Name                                  Status    By        Server   
    ********************************************  ********  ********  ******** 
    CICS.ABE.AAFXS51.CWPDDIO                                CWPDDIO            
    **************************** BOTTOM OF DATA ****************************** 
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


Enter the DDIO dataset name as shown below

  Abend-AID ------------------ Source Directory --------- Row 000001 of 000003 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                          ==>  
  To add a dataset to the list, select Add                                     
         EsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssN       
  S Dire e Specify source dataset name below                           e       
         e                                                             e       
         e Dataset ===> NDVR.UAT.TEST.DDIO                             e ote   
    Data e                                                             e ver   
    **** e If the dataset resides on another MVS system,               e ***** 
    CICS e specify the following                                       e       
    **** e                                                             e*****       
         e Server Name ===>                                            e       
         e Userid      ===>                                            e 
         e Password    ===>                                            e       
         e                                                             e       
         e AAFXS51     End=PF03                                        e       
         DsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssM       
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


Now go back to Primary options screen and select Diagnostic Summary option. It will display the COBOL statement causing the abend as shown below.


  Abend-AID ----------------- Diagnostic Summary -------- Row 000001 of 000061 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                                
  An U001 Snap was requested by program TESTPGM.  The requesting transaction   
  was U001 running at terminal for user ID DBDC01.                             
                                                                                
  Analysis of the Snap:                                                        
                                                                               
  EXEC CICS DUMP Request - Dump Code = U001  A lock request for the resource   
  could not be granted, and the request waited for a period longer than the    
  maximum specified by the installation.                                       
                                                                                
                                                                               
  SQL Statement                                                                
                                                                               
  The SQL statement returning this SQLCODE at preprocessor sequence number  in 
  program  is:                                                                 
                                                                               
                                                                                
                                                                               
  Next Sequential Instruction                                                  
                                                                                
  007644         *EXEC CICS SYNCPOINT ROLLBACK                                 
                                                                               
  This statement is contained in paragraph 8000-DUMP-ABEND of program          
  TESTPGM.                                                                     
                                                                               

To see the values of working-storage and linkage section fields at the time of abend, select option “2” in the below screen.



  Abend-AID ------------------ Primary Options ------------------------------- 
  OPTION  ===> 2                                                               
                                                                                
  1  DIAG     Diagnostic Summary        7  *FILE    File Request Summary       
                                                                               
  2  PROG     Program Information       8  DB2      DB2 Information            
                                                                               
  3  TRACE    CICS Trace                9  *L3270   Last 3270 Screen           
                                                                                
  4  *TERM    Terminal Detail           10 *MQINFO  WebSphere MQ Information   
                                                                               
  5  TASK     Task Detail               11 *CWI     CICS Web Interface         
                                                                               
  6  CB       Control Blocks/Storage    12 LEINFO   LE Information             
                                                                                
                                                                               
                                                                               
  D  DIRECTRY Abend-AID Directory       R  SRCDIR   Source Directory           
                                                                                
  S  SUMMARY  Fault Summary             U  USER     User Control Facility      
                                                                               
  N  NEWS     Product News              X  EXIT     Exit                       
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          

Select option “1” in the below screen.


  Abend-AID ---------------- Program Information ----------------------------- 
  OPTION  ===> 1                                                               
                                                                               
                1  PGMLINK  Program Link Information                           
                                                                               
                2  PGMSUMM  Program Summary Information                        
                                                                                
                3  CALLTRAC Program Call Trace Summary                         
                                                                               
                4  LEVELS   Program Levels, COMMAREAs, Channels                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          



Type “S” against the program, to see the storage areas associated with that program.


  Abend-AID -------------- Program Link Information ----- Row 000001 of 000001 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                               
  To display the current Data Locator search criteria, select FINDDATA         
                                                                               
  D Program Detail           L Program Listing              S Program Storage  
  P PPT Entry                A Program Disassembly          R Data Locator     
                                                                               
    Called   Called                          Calling  Calling  Return          
    Load Mod Program  ------- Status ------- Load Mod Program  Offset          
    ******** ******** ********************** ******** ******** ******          
  S TESTPGM   TESTPGM  Linked by              System                            
    **************************** BOTTOM OF DATA ****************************** 
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
  Type a line command and press Enter to process it.                           
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


The below screen lists all the storage areas associated with the program. Select option “1” to see the values of working-storage fields.


  Abend-AID ---------------- Cobol Storage Areas ----------------------------- 
  COMMAND ===> 1                                                               
                                                                                
                                                                               
  Program..... TESTPGM                                                         
                                                                                
                          1  WORK     Working Storage                          
                                                                               
                                                                               
                          2  LINK     Linkage Section                          
                                                                               
                                                                               
                          3  EXTRN    External Cells                           
                                                                               
                                                                               
                          4  TGT      Task Global Table                        
                                                                               
                                                                               
                          5  LOCAL    Local Storage                            
                                                                               
                                                                               
                          6  DSA      Dynamic Storage Area                     
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


In the below screen, you can see that abend-aid has beautifully mapped the values of the working-storage fields from the dump.


  Abend-AID ------------------- COBOL Listing ----------- Row 000001 of 006086 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                          ==>  
   Program............... TESTPGM                                              
   Program Compile Date.. 31JAN2012      Source Listing Date... 31JAN2012      
   Program Compile Time.. 12:38:02       Source Listing Time... 12:38:02       
                                                                               
  To reset display to the abending/last executed statement, select RESET       
  To reset display to the point of entry into this listing, select ENTRY       
                                                                               
  Source Line                                                                  
  **************************************************************************** 
  DATA DIVISION.                                                               
  WORKING-STORAGE SECTION.                                                     
  01 WS-CICS-JOB-NAME                 X(08)              CICSTEST              
  01 WS-CH-PROD-REGION                REDEFINES WS-CICS-JOB-NAME               
   02 FILLER                          X(5)               CICSA                 
    88 CH-PROD-REGION                                    'CICSP'               
   02 FILLER                          X(3)               AA1                   
  01 WS-CASE-CASA-SW                  X(01)              SPACES                
   88 CASE-CASA-CLAIM                                    'C'                   
  01 WS-WORK-AREA                                                               
   02 WS-CICS-APPLID                  X(08)              CICSTEST              
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24   More...


Select option “2” to see the values of linkage section fields.


  Abend-AID ---------------- Cobol Storage Areas ----------------------------- 
  COMMAND ===> 2                                                               
                                                                                
                                                                               
  Program..... TESTPGM                                                         
                                                                               
                          1  WORK     Working Storage                          
                                                                               
                                                                               
                          2  LINK     Linkage Section                          
                                                                               
                                                                               
                          3  EXTRN    External Cells                           
                                                                               
                                                                               
                          4  TGT      Task Global Table                        
                                                                               
                                                                               
                          5  LOCAL    Local Storage                             
                                                                               
                                                                               
                          6  DSA      Dynamic Storage Area                      
                                                                               
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24          


In the below screen, you can see that abend-aid has beautifully mapped the values of the linkage section fields from the dump.


  Abend-AID ------------------- COBOL Listing ----------- Row 003438 of 006086 
  COMMAND ===>                                                SCROLL ===> CSR  
                                                                          ==>  
   Program............... TESTPGM                                              
   Program Compile Date.. 31JAN2012      Source Listing Date... 31JAN2012      
   Program Compile Time.. 12:38:02       Source Listing Time... 12:38:02       
                                                                               
  To reset display to the abending/last executed statement, select RESET       
  To reset display to the point of entry into this listing, select ENTRY       
                                                                               
  Source Line                                                                  
  **************************************************************************** 
  LINKAGE SECTION.                                                             
  01 DFHEIBLK                                                                  
   02 EIBTIME                         S9(7)    COMP-3    +205824               
   02 EIBDATE                         S9(7)    COMP-3    +112035               
   02 EIBTRNID                        X(4)               U001                  
   02 EIBTASKN                        S9(7)    COMP-3    +24875                
   02 EIBTRMID                        X(4)               LOW-VALUES            
   02 DFHEIGDI                        S9(4)    COMP      +0                    
   02 EIBCPOSN                        S9(4)    COMP      +0                    
   02 EIBCALEN                        S9(4)    COMP      +0                    
   02 EIBAID                          X(1)               LOW-VALUES            
  Entry=3752332(CICSTEST)  Code=U001      AAFXS51     AssistMenu=PF24   More...

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.