HP Integrity NonStop J-Series - Manual (Page 143)

TAILORING AN APPLICATION
Providing Automatic READ Operations
SET HEADINGS DDLHEADINGS
SET BOX INCLUDE (empname, dept, job, vacation, empnum)
SET BOX SCREENFORMAT COMPRESSED
SET BOXTITLE 1 "To find an employee, enter the first name then
the& last name:"
SET BOX RECORD employee
ADD BOX employ-box
RESET BOX *
SET BOX SCREENFORMAT COMPRESSED
SET BOX HEADINGS NULL
SET BOX SIZE 5
SET BOX BOXTITLE 1 "Valid values for Rel are either 'S' or &
'C'"
SET BOX BOXTITLE 3 "*No. Dependent Name Rel"
SET BOX FILL ON -- Requests automatic read operations --
SET BOX RECORD dependents
ADD BOX depends-box
SET APPL TITLE "Employee Information Screen"
SET APPL TREE (01 employ-box
02 depends-box LINK empnum
TO OPTIONAL emp-no)
SET APPL PATHCOMFILE emppath !
ADD APPL employee-info
GENERATE employee-info
Figure 6-11 shows the events that occur when an application,
generated using the above commands, reads an "employee" record.
6-25