Set a Breakpoint in Subroutine PSBIN25

PL/I Advanced Demo Session › Option 05: How to Test a Composite Module › Set a Breakpoint in Subroutine PSBIN25

Set a Breakpoint in Subroutine PSBIN25

Now you are going to set a breakpoint at the first statement in subroutine PSBIN25, 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 these CA InterTest for CICS features:

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

Tab back to the Program field.

Overtype ASBIN25 with psbin25 and press Enter.

CA InterTest for CICS Release 9.1.00 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= psbin25 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' _ 0000E8 F920 D1A0 2144 001A0 00144 367 CP TASKNUM,=P'2' _ 0000EE 4720 20FC 000FC 368 BH RETCICS _ 0000F2 F920 D1A0 2143 001A0 00143 369 CP TASKNUM,=P'1' _ 0000F8 4780 214E 0014E 370 BE RETURN. .

CA InterTest for CICS displays the source listing for PSBIN25.

Now you will set an unconditional breakpoint at the first statement in PSBIN25.

Tab to the first statement.

Type a u to the left of that statement, and press Enter.

CA InterTest for CICS Release 9.1.00   - PROTSYM FILE  ABEND DETECTED DISPLAY            
COMMAND ===>                                                                    
Program= PSBIN25  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 u    18.1            PSBIN25:  PROC(INPUT_REC_PTR, STOR_SIZE) OPTIONS(REENTRA  
 _    19.1     1      DCL 1 DFHCNSTS  STATIC,  /* CONSTANTS USED BY TRANSLATOR  
 _    20.1                   2  DFHLDVER CHAR(22) INIT('LD TABLE DFHEITAB 530.  
 _    21.1                   2  DFHEIB0 FIXED BIN(15) INIT(0),                  
 _    22.1                   2  DFHEID0 FIXED DEC(7) INIT(0),                   
 _    23.1                   2  DFHEICB CHAR(8) INIT('        ');               
 _    24.1     1      DCL DFHEPI ENTRY, DFHEIPTR PTR;                           
 _    25.1     1      DCL 1 DFHEIBLK BASED (DFHEIPTR),                          
 _    26.1                  02    EIBTIME  FIXED DEC(7),                        
 _    27.1                  02    EIBDATE  FIXED DEC(7),                        
 _    28.1                  02    EIBTRNID CHAR(4),                             
 _    29.1                  02    EIBTASKN FIXED DEC(7),                        
 _    30.1                  02    EIBTRMID CHAR(4),                             
 _    31.1                  02    EIBFIL01 FIXED BIN(15),                       
 _    32.1                  02    EIBCPOSN FIXED BIN(15),                       
 _    33.1                  02    EIBCALEN FIXED BIN(15),                       
 _    34.1                  02    EIBAID   CHAR(1),                             
 _    35.1                  02    EIBFN    CHAR(2),                             
 _    36.1                  02    EIBRCODE CHAR(6),

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

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