Accessing Abend-AID for CICS through Code Debug CICS
Related topics
- To access Code Debug CICS, type XPED in the upper left corner of a blank CICS screen.
- Press Enter to display the Primary Menu shown in the following figure.
Primary Menu (XPED/XPRT)
COMMAND ===>
MODULE: CSECT:
0 SESSION PROFILE - Set default session attributes
1 SESSION CONTROL - Analyze summary of session events
2 DEBUGGING FACILITIES - Interactively debug application programs
5 FILE UTILITY - Access datasets, temp stg, trans data, DLI, DB2
7 ABEND-AID FOR CICS - Interface to Abend-AID for CICS
C CODE COVERAGE - Interface to Code Coverage
G XCHANGE/CICS - Interface to Xchange's CICS Facilities
P CICSPLEX FACILITIES - Access CICSPlex Control Facilities
X EXIT - Exit
To set breakpoints in your program or keep specific data fields,
enter your program name and use either the SOURCE command or PF key.
For Online Technical Support refer to: www.bmc.com/support
NOTICE: Press PF2/PF14 to display the Copyright/Trade Secret Notice
3. Press Clear. Code Debug CICS is now set to trap abends.
4. Type XASM and press Enter. The following figure is displayed.
Demonstration Transaction Screen
*** COMPUWARE CORPORATION ***
DEMONSTRATION TRANSACTION
ENTER DESIRED EMPLOYEE ABOVE:
00001 - CAUSES ASRA ABEND
00002 - CAUSES AEIM ABEND
00003 - CAUSES AEIP ABEND
00999 - ENDS NORMALLY
5. To cause an AEIM abend, type 00002 in the field preceding ENTER EMPLOYEE NUMBER and press Enter. The following Source Listing screen (2.L) will be displayed.
Code Debug CICS intercepts the abend and reports on the status of the problem. However, you may need more information to resolve the problem. To obtain it, we will access Abend-AID for CICS and issue a snap dump to produce a diagnostic report for this AEIM abend.
Source Listing Screen (2.L)
COMMAND ===> SCROLL ===> CSR
MODULE: CWDEMASM CSECT: CWDEMASM COMPILED: 28 DEC 2017 - 11.22
-------- DATA LABEL KEEPS -------- -- ATTRIBUTES -- ----+---10----+---20--->
------ ------------------ AEIM ("NOTFND" RECORD NOT FOUND) at CWDEMASM.589 ->
000586 + STM 14,0,12(1)
000587 + OI 20(1),X'80' LAST ARGUMENT
000588 + L 15,=V(DFHEI1)
=====> + BALR 14,15 INVOKE EXEC INTERFACE
000590 +*********************************************************************
000591 AEIPABND DS 0H
000592 * ** WRITE VSAM RECORD .....
000593 MVC EMP_NUM_KEY,PAYEMP1
000594 * EXEC CICS WRITE FROM (VSAM_EMP_RECORD)
000595 * DATASET ('DBUGEMP')
000596 * RIDFLD (EMP_NUM_KEY)
000597 * LENGTH (VSAM_RECORD_LENGTH)
000598 * KEYLENGTH (5)
000599 DFHECALL =X'0604F8000828004400',(CHA8,=CL8'DBUGEMP'),(______
6. Type MENU in the COMMAND field and press Enter to redisplay the Code Debug CICS Primary Menu.
7. Type 7 in the COMMAND field and press Enter to display the following figure.
Abend-AID for CICS Interface Menu (7)
COMMAND ===>
MODULE: CWDEMASM CSECT: CWDEMASM COMPILED: 28 DEC 2017 - 11.22
1 SNAP DUMP - Issue Abend-AID for CICS snap dump
2 REPORT DIRECTORY - Display Abend-AID for CICS report directory
3 DIAGNOSTICS - Display Abend-AID for CICS abend code diagnostic text