ENABLE Reference Manual

ENABLE ATTRIBUTES
SCREENFORMAT Attribute
For example, consider the following record description:
RECORD employee.
FILE IS employee KEY-SEQUENCED.
02 empnum PIC 9(4).
02 empname PIC X(18).
02 dept.
04 regnum PIC 99.
04 branchnum PIC 99.
02 job PIC X(12).
02 age PIC 99.
02 salary PIC 9999V99.
02 vacation PIC 99.
KEY 0 IS empnum.
KEY "en" IS empname.
KEY "dp" IS dept.
END
If you generate a single-file application by using the following
ENABLE commands:
SET BOX RECORD employee
SET BOX SCREENFORMAT COMPRESSED
ADD BOX employ-box
SET APPL TREE (01 employ-box)
SET APPL PATHCOMFILE emppath
ADD APPL employee-compres
GENERATE employee-compres
the application displays a screen with a compressed format.
Figure 4-2 shows this screen.
4-59