Inspect Manual

Using Inspect With Accelerated Programs on TNS/R
Systems
Inspect Manual—429164-006
16-14
Event Reporting
Some COBOL constructs, such as IF or AT END, may not result in memory-exact
points, and section and paragraph names may not result in register-exact points even if
the accelerator optimization level is set to StmtDebug. Therefore, it may not be
possible to set code breakpoints at some such locations or to use the RESUME AT
command.
This example shows the effect ProcDebug optimizations can have on your program
and reaching a non-exact point.
This shows the result of accelerating the code with StmtDebug:
Event Reporting
The consistency of the state of an accelerated program depends on the current
location when a debugging event is reported. Code breakpoints and many other
debugging events are reported when the current location is either a memory-exact
point or a register-exact point.
-C000TTPT-BREAK main-flag if main-flag = 1
Num Type Subtype Location 1 Data Change Byte Address %11750 "MAIN-FLAG"
IF MAIN-FLAG = 1
-C000TTPT-RESUME
INSPECT
MEMORY ACCESS BREAKPOINT 1: MAIN-FLAG OCCURRED AT #LEVEL-1-PROGRAM-
1.#13970(C000COLD) 244,01,083 C000TTPT #LEVEL-1-PROGRAM-
1.#13990(C000COLD) ** Inspect warning 359 **** Current location is not a
memory-exact point;
displayed values may be out of date;
the location reported is an approximate TNS
location-C000TTPT-SOURCE
#13950 Read-seq2-file SECTION.
#13960 Read-seq2-file-para.
#13970 READ seq2-file AT END
-#13980 MOVE 1 TO main-flag.
*#13990 IF (seq2-status NOT = ZEROS) AND (NOT eof)
#14001 MOVE 2 TO main-flag.
#14010
#14020 CALL-TEST-1 SECTION.
#14030 *** Calling level-2-program-1 with 2 BY REFERENCE and 2 BY CONTE
#14040 PERFORM test-init.
-C000TTPT-BREAK main-flag if main-flag = 1
Num Type Subtype Location
Data Change Byte Address %11750 "MAIN-FLAG" IF MAIN-FLAG = 1
-C0000TCE-RESUME
INSPECT
MEMORY ACCESS BREAKPOINT 1: MAIN-FLAG OCCURRED AT #LEVEL-1-PROGRAM-
1.#13980(C000COBE)244,00,092 C000OTCE #LEVEL-1-PROGRAM-
1.#13990(C000COBE)
-C000TTPE-SOURCE
#13950 Read-seq2-file SECTION.
#13960 Read-seq2-file-para.
#13970 READ seq2-file AT END
@#13980 MOVE 1 TO main-flag.
*#13990 IF (seq2-status NOT = ZEROS) AND (NOT eof)
@#14000 MOVE 2 TO main-flag.
#14010
#14020 CALL-TEST-1 SECTION.
#14030 **** Calling level-2-program-1 with 2 BY REFERENCE and 2 BY
CONT
#14040 PERFORM test-init.