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

88 SEQ1-FILE-OPENED VALUE 1.
(eInspect 3,1012):print seq1-file-er
$1 = F
(eInspect 3,1012):print seq1-flag
$2 = 1
(eInspect 3,1012):print seq1-file-opened
$3 = T
(eInspect 3,1012):continue
Examining a Record
The following example shows how to examine a record by using the next, print, and p
commands:
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 3,1012): 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)"
42 Using Native Inspect