Accessing Abend-AID for CICS through Code Debug CICS (Code Debug CICS PL/I)

1. To access Code Debug CICS, type XPED in the upper left corner of a blank CICS screen.

2. Press Enter to display the Primary Menu shown in the following figure:
   Primary Menu (XPED/XPRT)

    ------------BMC AMI DevX Code Debug for CICS 17.02.00 PRIMARY MENU --------C024
   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 XPLE and press Enter. The following figure is displayed.
   Demonstration Transaction Screen

   XPLE _____ - ENTER EMPLOYEE NUMBER                                         C123
   
    *** COMPUWARE CORPORATION ***
      DEMONSTRATION TRANSACTION (PL/1)
   
    ENTER DESIRED EMPLOYEE ABOVE:
    00001 - CAUSES ASRA ABEND (DATA EXCEPTION)
    00002 - CAUSES AEIL (DSIDERROR)
    00003 - CAUSES A WRITE TO TEMPORARY STORAGE
    00004 - STARTS UP XPLE AS AN ASYNCHRONOUS TASK
    00005 - USED TO SHOW MULTIPLE CSECT SUPPORT
    00333 - CAUSES A STORAGE VIOLATION OF A SAA
    00999 - ENDS NORMALLY

5. To cause an AEIM abend, type 00002 in the field preceding ENTER EMPLOYEE NUMBER and press Enter. The following figure 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)

    ------------------------------ SOURCE LISTING (2.L) ----------------------C024
   COMMAND ===>                                                   SCROLL ===> CSR
   MODULE: CWDEMPE  CSECT: CWDEMPE           COMPILED: 27 DEC 2017 - 11:23:48
     LV ----- PL/I VARIABLE KEEPS ----- -- ATTRIBUTES -- ----+---10----+---20--->
   
   
   
   
   
   ------   ------------------- AEIM ("NOTFND" RECORD NOT FOUND) at CWDEMPE.909 ->
   000906        DO;
   000907        DCL DFHTNNA9 BASED(ADDR(DFHEI0)) OPTIONS(INTER ASSEMBLER) ENTRY(*
   000908    HAR(8),*,FIXED BIN(15),*,FIXED BIN(15));
   =====>        CALL DFHTNNA9('  8. .. .00000812' /* '06 02 F8 00 03 00 00 80 00
    000910     F0 F0 F0 F0 F8 F1 F2 'X */,'DBUGEMP',VSAM_EMP_RECORD,EMP_REC_LEN,EMP
   000911    UM_KEY,EMP_KEY_LEN);
   000912        END;
   000913
   000914        /* INITIALIZE WORKING STORAGE TABLE WITH ZEROS..... */
   000915
   000916        EMP_RECORD_TABLE = 0 ;
   000917
   000918        /* STORE RECORD INTO WORKING STORAGE TABLE..... */
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)