Previous Topic: Demo PreliminariesNext Topic: Set Request Breakpoints

COBOL Advanced Demo Session › Demo Preliminaries › Set Unconditional Breakpoints

Set Unconditional Breakpoints

To begin, you must bring up the Source Listing display for the COBOL demo program. This was covered in the basic demo session.

  1. Press PF4 to display the Profile panel. Verify that the Display Titles is set to "N" and that the AutoKeep Display is "ON". If not, change either or both of them and press Enter. 
       CA InterTest for CICS V9.1   - PROTSYM FILE  SOURCE LISTING PROFILE         
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
OPTS 1 Proc div  2 Work-stor 3 Link sect  4 D-map      5 Clst/Pmap More:   +    
     6 Data xref 7 Proc xref 8 Err msgs   9 Srch fwd  10 Srch bwd               
PFKS 1 Help      2           3 End        4 Auto prms  5 Monitor    6 Menu      
     7 Backward  8 Forward   9           10           11           12 Status    
------------------------------------------------------------------------------- 
Display titles   = N         Y (Titles), N (No titles), or R (Registers)        
PF7/8 amount     = PAGE      PAGE, HALF, STOP, or a number from 1 to 9999       
Step Timing      = BEFORE    Stop  Before  or  After  the next verb  is executed
Stepping amount  = 001       The number of verbs   to execute                   
Auto-stepping    = OFF       ON to activate; press PF4 to change values         
Source List BKPT = ON        OFF to use the detailed breakpoint display         
From terminal ID = U049      Terminal ID where the program will execute         
BKPT terminal ID = U049      Terminal ID to receive the breakpoint displays     
User ID          = .ANY      User ID who will execute this program              
AutoKeep Display = ON        OFF to deactivate                                  
Code Counting    = OFF       ON to activate Code Coverage                       
SDF              = DATA      HEX  for Hexadecimal/Character Format
  2. Press PF3 to return to the listing.

    Now you are going to set unconditional breakpoints at three procedure names. Setting unconditional breakpoints lets you halt the program so that you can set options and check the contents of data items.

    The quickest way to set breakpoints at several procedure names is to display a list of all procedure names, and type a u next to the ones where you want breakpoints.

  3. Type l .px in the command line or 7 in the Option # field, and press Enter. 
    CA InterTest for CICS V9.1 ‑ PROTSYM FILE SOURCE LISTING DISPLAY             
COMMAND ===> l .px                                                             
Program= COBDEMO  Option #       Stmt #                                       
                                        Search=                                
‑‑‑‑‑‑‑‑‑+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
   00001 ID DIVISION.                                                         
   00002 PROGRAM‑ID. COBDEMO.
  .
.
.

    CA InterTest for CICS displays a list of the demo program's procedure names, as shown in the following figure.

    You are going to set unconditional breakpoints at three procedure names: AFTER‑REWRITE, DO‑READ‑VAR, and LOOP‑RTN.

  4. Type a u to the left of AFTER‑REWRITE, DO‑READ‑VAR, and LOOP‑RTN.
  5. Press Enter. 
       CA InterTest for CICS V9.1   - PROTSYM FILE  SOURCE LISTING DISPLAY          
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
----------------------------------------+-------------------------------------- 
 _ DEFINED      PROCEDURE NAMES         REFERENCES                              
 u    923 AFTER-REWRITE                                                         
 _    800 CICS-LOOP                     P798                                    
 _    477 CONTINUE-TASK                 G402 G470                               
 _    667 DATA-NAME                                                             
 u    686 DO-READ-VAR                   G683                                    
 _    555 EXPANDED-DEMO                 G399 G474 G475                          
 _    884 GEN-ERR                       D378 D435 D633                          
 _    821 GETMAIN-LOOP                  P819                                    
 _    661 INITIALIZE-TABLE              P648                                    
 _    538 LAST-SCREEN                   D530                                    
 _    982 LINK-DEML                     D979                                    
 u    797 LOOP-RTN                                                              
 _    737 MOVE-RECORD                                                           
 _    792 MXR-OPTION                    D974                                    
 _    806 MXS-OPTION                    G799                                    
 _    437 NO-OPTS                       D410                                    
 _    830 NO-STORAGE                    D817                                    
 _    777 NOT-OPEN                      D708

    CA InterTest for CICS sets the breakpoints and redisplays the screen with uppercase Us.