Next, set two unconditional breakpoints. Setting unconditional breakpoints lets you halt the program so you can set options and check the contents of variables.
Begin by searching for the Assembler label NUPDTE.
or
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE SOURCE LISTING DISPLAY COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= nupdte ----------+-------------------------------------------------------------------- Loc Object Code Addr1 Addr2 Stmt Source Statement 1 R0 EQU 0 2 R1 EQU 1 3 R2 EQU 2 BASE REG 4 R3 EQU 3 BASE REG 5 R4 EQU 4 6 R5 EQU 5 7 R6 EQU 6 8 R7 EQU 7 9 R8 EQU 8 10 R9 EQU 9 COMMAREA REG 11 R10 EQU 10 12 R11 EQU 11 EIB REG 13 R12 EQU 12 14 R13 EQU 13 DSA REG 15 R14 EQU 14 16 R15 EQU 15
CA InterTest for CICS displays the NUPDTE label.
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE SOURCE LISTING DISPLAY COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= ------------------------------------------------------------------------------- 00068 REA),(FB_2,RECLEN) Loc Object Code Addr1 Addr2 Stmt Source Statement _ 001FA4 2653 NUPDTE DS 0H 2654 * EXEC CICS START TRANSID(CNTLTRAN) 2655 * FROM(NUPOFF) LENGTH(NUPOLEN) REQID(=X'9999') 2656 DFHECALL =X'1008F8000800005400',(___4,=PL4'0'),(CHA8, 00068 ,(CHA4,CNTLTRAN),(______RF,NUPOFF),(FB_2,NUPOLEN) u 001FD2 2672 B SENDMP00 _ 001FD6 2674 READATA DS 0H 2675 * EXEC CICS HANDLE CONDITION 2676 * DSIDERR 2677 * NOTOPEN (NOPEN) 2678 DFHECALL =X'0204800008130C000000000000000000000000000 00068 ,NOPEN) _ 001FF0 2689 MVC RECKEY,=CL10'0000000000' 2690 * EXEC CICS STARTBR RIDFLD(RECKEY) DATASET('PROTH') 2691 DFHECALL =X'060CB000080020A000',(CHA8,=CL8'PROTH'),,( 00068 )),(______RF,RECKEY)
CA InterTest for CICS sets the breakpoint.
Now you are going to set a second unconditional breakpoint in ASMDEMO.
or
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE SOURCE LISTING DISPLAY COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= looprtn ----------+-------------------------------------------------------------------- . . .
You are going to set an unconditional breakpoint at the LOOPRTN label.
CA InterTest for CICS Release 9.1.00 - PROTSYM FILE SOURCE LISTING DISPLAY COMMAND ===> Program= ASMDEMO Option # Stmt # Displacement= Margin= 28 Search= ----------+-------------------------------------------------------------------- Loc Object Code Addr1 Addr2 Stmt Source Statement _ 00213E 2818 B SENDMP00 u 002142 2820 LOOPRTN DS 0H _ 002142 2821 ZAP LOOPCTR,=P'0' 2822 * PRINT NOGEN _ 002148 2824 CICSLOOP DS 0H 2825 * EXEC CICS ASKTIME _ 002148 2826 DFHECALL =X'100200000800001300' _ 00215E 2836 CP LOOPCTR,=P'+50' _ 002164 2837 BE MXSOPTS _ 002168 2838 AP LOOPCTR,=P'+1' _ 00216E 2839 B CICSLOOP _ 002172 2841 MXSOPTS DS 0H 2842 * EXEC CICS HANDLE CONDITION 2843 * NOSTG(NOSTORG) 2844 DFHECALL =X'02048000082A00000000000000000000000000000 00068 ,NOSTORG) _ 00218C 2855 ZAP LOOPCTR,=P'0'
CA InterTest for CICS sets the unconditional breakpoint.
|
Copyright © 2014 CA Technologies.
All rights reserved.
|
|