Native Inspect Manual (H06.07+)

Using Native Inspect
Native Inspect Manual—528122-006
2-15
Examine a Record
Examine a Record
Notes
•
Record field names that are unique do not require qualification. Native Inspect
reports an error if the name is not unique.
•
You can qualify field names using COBOL OF or IN syntax, or the Native Inspect
period (.) syntax.
Breakpoint 2, CALE-1 () at \PELICAN.$DATA3.COBBAT.SCS000D:319
319 PERFORM READ-SEQ1-TABLE THRU SEQ1-TABLE-EXIT 4 TIMES.
(eInspect 3,1012):next
320 IF ERROR-DETECTED
(eInspect 3,1012):next
322 PERFORM READ-SEQ2-TABLE UNTIL EOF OR ERROR-DETECTED.
(eInspect 3,1012):print seq2-rec
$4 =
NAME = "\000\000\000\000\000\000\000"
FILLER = ""
WORKS = "\000\000\000\000\000\000"
FILLER = ""
REST-OF-LINE = '\000' <repeats 33 times>
(eInspect 3,1012):next
323 IF ERROR-DETECTED
(eInspect 3,1012):print name
Reference to NAME is not unique.
Add more qualification to disambiguate the reference.
(eInspect 3,1012):print name of seq2-rec
$5 = "JStrauss"
(eInspect 3,1012):print rest-of-line
$6 = "Gypsy Baron 1881Fledermouse 1879"
(eInspect 3,1012):print seq2-rec.works
$5 = "opera04"
(eInspect 3,1012):print seq2-rec
$7 =
NAME = "JStrauss"
FILLER = " "
WORKS = "opera04"
FILLER = " "
REST-OF-LINE = "Gypsy Baron 1881Fledermouse 1879"
(eInspect 7,324):p rtq1 in reclast
$11 = "RECL.R231"
(eInspect 7,320):p rtq4 in rtq3 in rtq2 in rtq1(4,2,3,5)
$51=
RTQ5="\100"
RTQ6="\100"
RTQ6="\000)"
(eInspect 7,383):p rtq6 of rtq3 in rtq1(4,2,3,4,2)
$67="GH"