ENABLE Reference Manual

ENABLE ATTRIBUTES
FILL Attribute
Control Boxes. If a record description contains a DDL VALUE
clause, you can use the box that represents this file as a
control box. To do this, supply ON for both the FILL and the
VALUES attributes, and identify the box as being at the highest
level of the tree structure (the outermost box). For example,
consider the the following partial record descriptions:
RECORD region.
FILE IS region KEY-SEQUENCED.
02 regnum PIC 9(4) VALUE IS 4.
02 regname PIC X(12) VALUE IS "SOUTHEAST ".
...
KEY 0 IS regnum.
END
RECORD branch.
FILE IS branch RELATIVE
02 branchnum PIC 9(4).
02 regnum PIC 9(4).
02 branchname PIC X(15).
...
KEY 0 IS branchnum.
KEY "rg" is regnum.
END
If you use the following commands to generate the application:
SET BOX FILL ON
SET BOX DELETE OFF, INSERT OFF, UPDATE OFF, READ OFF
SET BOX VALUES ON
SET BOX RECORD region
ADD BOX region-box
RESET BOX *
SET BOX RECORD branch
ADD BOX branch-box
SET APPL PATHCOMFILE pf1
SET APPL TREE ( 01 region-box
02 branch-box LINK region-box
TO OPTIONAL branch-box VIA regnum )
ADD APPL region-4
GENERATE APPL region-4
4-26