Native Inspect Manual (H06.04+)

Using Native Inspect
Native Inspect Manual—528122-005
2-18
Examine Tables
(eInspect 1,301): ptype rec5
type = RECORD
R51 RECORD OCCURS 2 TIMES
R511 PIC X(16)
R512 PIC X(16)
R513 RECORD OCCURS 3 TIMES
R5131 PIC XXX
R5132 PIC XXX
(eInspect 1,301): p rec5
$40 =
R51 = (
R511 = "REC5.R51[1].R511"
R512 = "REC5.R51[1].R512"
R513 = (
R5131 = "111"
R5132 = "112",
R5131 = "111"
R5132 = "112",
R5131 = "111"
R5132 = "112"),
R511 = "REC5.R51[1].R511"
R512 = "REC5.R51[1].R512"
R513 = (
R5131 = "211"
R5132 = "212",
R5131 = "211"
R5132 = "212",
R5131 = "211"
R5132 = "212"))
(eInspect 1,301): p r513(2)
$43 = (
R5131 = "211"
R5132 = "212",
R5131 = "211"
R5132 = "212",
R5131 = "211"
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")