Native Inspect Manual (H06.13+, J06.03+)

R5132 = "212")
(eInspect 1,301): p r5132(1,2)
$45 = "112"
(eInspect 2,924): p r5132(2,3)
$8 = "212"
(eInspect 1,305): ptype rec-a
type = RECORD
ITEM-A PIC 99
DATA-A PIC X OCCURS ITEM-A (MAX:10) TIMES
(eInspect 1,305): #
(eInspect 1,305): # Let's set DEPENDING ON parameter, i.e. "ITEM-A", to 5
(eInspect 1,305): #
(eInspect 1,305): set rec-a.item-a = 5
(eInspect 1,305): p rec-a
$4 =
ITEM-A = 05
DATA-A = ("A", "A", "A", "A", "A")
(eInspect 1,305): set rec-a.data-a(4) = "I"
(eInspect 1,305): p rec-a
$4 =
ITEM-A = 05
DATA-A = ("A", "A", "A", "I", "A")
The preceding example demonstrates the following:
• You can apply subscripts to an unqualified record element name as long as the name is unique.
• Subscripts are separated by commas and must always occur in the last item of the reference.
Setting a Breakpoint on a Nested Program Unit
The following example shows how to set a breakpoint on a nested program unit by using the b,
c, bt, and next commands:
(eInspect 3,1012):b cale-1.cale-1-1
Breakpoint 3 at 0x7000c200:2: file \PELICAN.$DATA3.COBBAT.SCS000D, line 588.
(eInspect 3,1012):c
Continuing.
Breakpoint 3, CALE-1.CALE-1-1 (ID-1=1, ID-2=10, ID-3=100,
ID-4=1000, ID-5=10000, ID-6=1000000)
at \PELICAN.$DATA3.COBBAT.SCS000D:588
588 PERFORM CALE-1-1-TEST-1
(eInspect 3,1012):bt
#0 CALE-1.CALE-1-1 (ID-1=1, ID-2=10, ID-3=100,
ID-4=1000, ID-5=100000, ID-6=1000000)
at \PELICAN.$DATA3.COBBAT.SCS000D:588
#1 0x70008d00:0 in CALE-1 () at \PELICAN.$DATA3.COBBAT.SCS000D:437
(eInspect 3,1012):next
589 PERFORM CALE-1-1-TEST-2
The preceding example demonstrates that you must qualify the nested program unit name with the
name of the enclosing program unit or units.
Debugging Copy Libraries
The following example shows how to debug copy libraries by using the list, b, c, and next
commands:
(eInspect 3,1012):list
310 Test-SingleInclusion.
311 DISPLAY " ".
312 DISPLAY "Test-SingleInclusion: Begin".
313 ?SOURCE CLIBCLB1( RANGE-110-112 )
314 DISPLAY " ".
315 DISPLAY "Test-SingleInclusion: End".
(eInspect 3,1012):list CLIBCLB1:110
105 02 ALPHA-A26 PIC A(26) VALUE "abcdef".
Sample Native Inspect Session (COBOL Program) 45