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                    *

    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*