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

(eInspect 3,1012): p rtq6 of rtq3 in rtq1(4,2,3,4,2)
$67="GH"
The preceding example demonstrates the following:
• 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.
Modifying a Record Field
The following example shows how to modify a record field by using the set command:
(eInspect 3,1012):set name of seq2-rec = "Bach"
(eInspect 3,1012):print seq2-rec
$4 =
NAME = "Bach "
FILLER = " "
WORKS = "opera04"
FILLER = " "
REST-OF-LINE = "Gypsy Baron 1881Fledermouse 1879"
The preceding example demonstrates the following:
• Values are padded or truncated according to COBOL rules.
• Native Inspect ignores any JUSTIFIED clause on a data item.
Examining Tables
The following example shows how to examine tables by using various commands:
(eInspect 3,1012): print recording-data
$3 =
WHO = (
NAME = "Puccini "
WORKS = (
TITLE = "Sigfried "
LISTING-INFO =
CONDUCTOR = "Solti "
PRICE = "$34,567.00"
TITLE = "Boheme "
LISTING-INFO =
CONDUCTOR = "Walter "
PRICE = "$34,572.00"
NAME = "Massenet"
WORKS = (
TITLE = "Otello "
LISTING-INFO =
CONDUCTOR = "Davis "
PRICE = "$34,577.00"
TITLE = "Manon "
LISTING-INFO =
CONDUCTOR = "Rudel "
PRICE = "$34,582.00"
NAME = "Handel "
WORKS = (
TITLE = "Arabella "
LISTING-INFO =
CONDUCTOR = "Solti "
PRICE = "$34,587.00"
TITLE = "Cemele "
LISTING-INFO =
CONDUCTOR = "Walter "
PRICE = "$34,592.00"
Sample Native Inspect Session (COBOL Program) 43