Compaq COBOL AAQ2G1FTK User Manual page 576

Programming Productivity Tools
C.4 OpenVMS Debugger (OpenVMS)
21. You can examine any character of a subscripted data item by specifying the
character position. The following EXAMINE command accesses the second
character on TEMP-CHAR.
DBG> EXAMINE TEMP-CHAR(2)
TEMP-CHAR of TESTA\TESTB\TEMP-WORD(2): "b"
22. You can use the DEPOSIT command to put a value into any element of a
table and examine its contents. In this example,
second character position of TEMP-CHAR.
DBG> DEPOSIT TEMP-CHAR(2)="x"
DBG> EXAMINE TEMP-CHAR(2)
TEMP-CHAR of TESTA\TESTB\TEMP-WORD(2): "x"
23. You can qualify data names in debug commands as you can in COBOL. For
example, if you examine IN-WORD while you debug your program, you can
use the following DEBUG command:
DBG> EXAMINE IN-WORD of TESTA-DATA
IN-WORD OF TESTA\TESTA-DATA: "axc"
24. Deposit a value into CHARCT.
DBG> DEPOSIT CHARCT=8.00
25. Resume execution with the GO command. The program TESTA displays the
reversed word. When the image reaches line 19 in TESTA, the debugger
detects that an instruction changed the contents of DISP-COUNT. Because
you set a watchpoint on DISP-COUNT, the debugger displays the old and new
values, then returns control to you.
DBG> GO
cba
trace at TESTA\%LINE 15
15:
watch of DISP-COUNT of TESTA\TESTA-DATA at TESTA\%LINE 19+52
19:
break at TEST-A\%LINE 20
20: DISPLAY DISP-COUNT " CHARACTERS".
26. To see the image's current location, use the SHOW CALLS command.
DBG> SHOW CALLS
module name
*TESTA
27. Resume execution with the GO command. TESTA executes its final display.
The debugger regains control when STOP RUN executes.
DBG> GO
03 CHARACTERS
%DEBUG-I-EXITSTATUS, is '%SYSTEM-S-NORMAL, normal successful completion'
28. At this point, you can either examine the contents of data items or end the
session with the EXIT command.
DBG> EXIT
$
C–12 Programming Productivity Tools
PERFORM SHOW-IT.
MOVE LET-CNT TO DISP-COUNT.
old value = 0
new value = 3
routine name
TESTA
LIB$INITIALIZE
x is deposited into the
" "
line rel PC abs PC
22 00000120 00030120
00000080 000306C0
85739D00 8576A530
00000080 7FE61F30