COBOL Advanced Demo Session › Option 07: How to Test a Composite Module › Set a Breakpoint in Subroutine CSBIN25

Set a Breakpoint in Subroutine CSBIN25

Now you are going to set a breakpoint at the first statement in subroutine CSBIN25, the other subroutine you asked CA InterTest for CICS to monitor. Then, when you resume execution, CA InterTest for CICS halts execution at the breakpoint in this subroutine.

When you are stopped in a subroutine, you can use all of the CA InterTest for CICS features, including the following:

• View the program listing and compiler output
• Display and modify main and auxiliary storage
• Set and remove breakpoints and other monitoring options
• Request single‑step execution
• Display the backtrace that brought the program to its current point

1. Tab back to the Program field.
2. Overtype the current name with the COBOL subroutine name CSBIN25 and press Enter.

      CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
   COMMAND ===>                                                                    
   Program= csbin25  Option #       Stmt #        Displacement=        Margin= 01  
                                           Search=                                 
   ----------+-------------------------------------------------------------------- 
        Loc  Object Code    Addr1 Addr2  Stmt        Source Statement              
    _ 0000E2                              365 CONTINUE DS    0H                    
    A 0000E2 FA20 D1A0 2143 001A0 00143   ==>          AP    TASKNUM,=P'1' 
   .
   .
   .   
   

   CA InterTest for CICS displays the source listing for COBOL program, for example, CSBIN25.

   Now you are going to set an unconditional breakpoint at the first statement in the Procedure Division.

3. Tab to the MOVE ZERO TO DIVCT statement.
4. Type a u to the left of that statement, and press Enter.

   CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED DISPLAY            
   COMMAND ===>                                                                    
   Program= CSBIN25  Option #       Stmt #                             Margin= 01  
                                           Search=                                 
   ------------------------------------------------------------------------------- 
    _ 000017     05  COMM-DATE.                                                    
    _ 000018         10  COMM-MM         PIC 99.                                  
   _ 000019         10  FILLER          PIC X.                                    
    _ 000020         10  COMM-DD         PIC 99.                                   
    _ 000021         10  FILLER          PIC X.                                    
    _ 000022         10  COMM-YY         PIC 99.                                   
    _ 000023 PROCEDURE DIVISION USING COMM-TEXT.                                   
    u 000024     MOVE ZERO TO DIVCT.                                               
    _ 000025 GET-DATE.                                                             
    _ 000026     MOVE COMM-YY TO PROGYY.                                           
    _ 000027     MOVE COMM-MM TO PROGMM.                                           
    _ 000028     MOVE COMM-DD TO PROGDD.                                           
    _ 000029     DIVIDE PROGYY BY 4 GIVING DIVYY REMAINDER YY-REM.                 
    _ 000030     MOVE PROGMM TO DIVMM.                                             
    _ 000031     GOBACK.                                                           
   An "M" preceding a data-name reference indicates that the data-name is modified 
                                                                                   
    _   DEF DATA NAMES                     REFERENCES                              
    _     17 COMM-DATE 
   

   CA InterTest for CICS sets an unconditional breakpoint at the MOVE statement.

5. Press Clear.

   CA InterTest for CICS redisplays the previous Source Listing Breakpoint screen.