Skip to Content
Information
Space announcement This documentation space provides the same content as before, but the organization of the content has changed. The content is now organized based on logical branches instead of legacy book titles. We hope that the new structure will help you quickly find the content that you need.

Setting an enhanced breakpoint

Related Topics

Quick Reference

Overview

Customizing-after-installation

Installation-and-Configuration-Guide

  1. Type XPED CSQ4CVB1 on a blank CICS screen and press Enter. The IBM-supplied sample IBM MQ for z/OS program CSQ4CVB1 is displayed on the Source Listing screen (2.L) as shown in following figure.
    CSQ4CVB1 on the Source Listing Screen (2.L)

     ------------------------------- SOURCE LISTING (2.L) ---------------------C024
     COMMAND ===>                                                   SCROLL ===> CSR
     MODULE: CSQ4CVB1 CSECT: CSQ4CVB1          COMPILED: 28 JUN 2002 - 15.00.43
     ------   --------------------------------------------------------------------->
     002896                         MOVE SPACES TO M00-MESSAGE.
     002897                         MOVE LOW-VALUES TO CSQ4VB1O.
     002898                    *
     002899                         PERFORM INQUIRE-DEPTH
     002900                    *
     002901                    *    If the depth cannot be obtained, there is no pos
     002902                    *    that the program can work - so exit with a messa
     002903                    *
     002904                         IF M00-MESSAGE NOT = SPACES THEN
     002905           1                 STRING EIBTRNID
     002906           1                        M01-MESSAGE-14
     002907           1                        DELIMITED BY SIZE INTO M00-MESSAGE
     002908           1                 GO TO A-MAIN-EXIT
     002909                         END-IF.
     002910                    *
     002911                    *EXEC CICS IGNORE CONDITION
     002912                    *          MAPFAIL
     002913                    *END-EXEC.
     002914                          MOVE '                      00630   ' TO DFHEIV
     002915                         CALL 'DFHEI1' USING DFHEIV0

  2. Type BC on statement number 2896 and press Enter. This sets a before conditional breakpoint on the statement and opens an IF line for entering a condition as shown in following figure. Code Debug also displays the message
    *********************** BEFORE SET ************************
    Setting a Conditional Breakpoint on the Source Listing Screen (2.L)

    -------------------------------- SOURCE LISTING (2.L) ---------------------C024
     COMMAND ===>                                                   SCROLL ===> CSR
     MODULE: CSQ4CVB1    *********************** BEFORE SET ************************
     ------   --------------------------------------------------------------------->
     002896 B                       MOVE SPACES TO M00-MESSAGE.
     -COND-   IF
     002897                         MOVE LOW-VALUES TO CSQ4VB1O.
     002898                    *
     002899                         PERFORM INQUIRE-DEPTH
     002900                    *
     002901                    *    If the depth cannot be obtained, there is no pos
     002902                    *    that the program can work - so exit with a messa
     002903                    *

  3. Type MQMD(196:8)=T'TESTUSER' in the IF field and press Enter. This specifies an enhanced breakpoint condition of the MQ message descriptor having a value of TESTUSER in the MQMD_USERIDENTIFIER area (the eight characters starting at position 196). Code Debug also displays the message

    ******************* BEFORE(S) REPLACED ********************

    Specifying Enhanced Breakpoint Condition on the Source Listing Screen (2.L)

     --------------------------------- SOURCE LISTING (2.L) -------------------C024
     COMMAND ===>                                                   SCROLL ===> CSR
     MODULE: CSQ4CVB1    ******************* BEFORE(S) REPLACED ********************
     ------   --------------------------------------------------------------------->
     002896 B                       MOVE SPACES TO M00-MESSAGE.
     -COND-   IF MQMD(196:8) = T'TESTUSER'
     002897                         MOVE LOW-VALUES TO CSQ4VB1O.
     002898                    *
     002899                         PERFORM INQUIRE-DEPTH
     002900                    *
     002901                    *    If the depth cannot be obtained, there is no pos
     002902                    *    that the program can work - so exit with a messa
     002903                    *
    Warning

    Important

    If your profile specifies TRAP=ON, starting Code Debug automatically creates a trap based on netname and terminal ID. If TRAP=OFF, the trap is created when you set a breakpoint.

  4. Type =1.6 in the COMMAND field and press Enter. The Trap Summary screen (1.6) is displayed (Displaying a Trap on the Trap Summary Screen (1.6)) showing the trap Code Debug automatically created based on netname and terminal ID.
    The enhanced conditions for the breakpoint you set will be evaluated only when the task is running on netname ACME0027 and terminal 0027. The breakpoint will be taken only when the data at MQMD(198:6) is TESTUSER. Abends for that netname and terminal will also be trapped.
    Displaying a Trap on the Trap Summary Screen (1.6)

     ----------------------------------- TRAP SUMMARY (1.6) -------------------C024
     COMMAND ===>                                                   SCROLL ===> CSR
     MODULE: CSQ4CVB1 CSECT: CSQ4CVB1          COMPILED: 28 JUN 2002 - 15.00.43
     MODE: TERM   (IP TERM or ALL)     NO IP TRAPS                     ENTRY 000001
     LINE COMMANDS:   A (After)   B (Before)   C (Copy)   D (Delete)   I (Insert)
                      M (Move)    S (Save)

      CMD   USERID     NETNAME     TERM     TRAN     PROGRAM   TRAP ABEND
            IF ...................... TRAP CONDITION .......................
      ----------------------------------------------------------------------
       _    ********   ACME0027    0027     ****     ********     YES
            IF
       _    ________   ________    ____     ____     ________     ___
            IF


  5. End your debugging session by typing XPND on a blank CICS screen and pressing Enter.

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*

BMC AMI DevX Code Debug for CICS 17.02