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.