ENABLE Reference Manual

ENABLE SCREENS
Standard Screen Format for a Multifile Application
Standard Screen Format for a Multifile Application
Figure 7-3 shows the record descriptions and ENABLE commands used
to generate a sample multifile application.
-----------------------------------------------------------------
| |
| Record Descriptions: |
| |
| RECORD parts. |
| FILE IS parts KEY-SEQUENCED. |
| 02 partnum PIC 9(4). |
| 02 partname PIC X(20). |
| 02 price PIC 999999V99. |
| KEY 0 IS partnum. |
| KEY "pn" IS partname. |
| END |
| |
| RECORD inventory. |
| FILE IS inventry KEY-SEQUENCED. |
| 02 inventory-key. |
| 04 partno PIC 9(4). |
| 04 location-num PIC XXX. |
| 02 quantity-on-hand PIC 99999. |
| 02 reorder-level PIC X(5). |
| KEY 0 IS inventory-key. |
| KEY "lo" IS location-num. |
| END |
| |
| ENABLE Commands: |
| |
| SET BOX RECORD parts |
| ADD BOX parts |
| SET BOX RECORD inventory |
| ADD BOX inventory |
| SET APPL TREE (01 parts |
| 02 inventory LINK partnum |
| TO OPTIONAL partno) |
| SET APPL PATHCOMFILE multpath |
| ADD APPL stock-control |
| GENERATE APPL stock-control |
| |
-----------------------------------------------------------------
Figure 7-3. Record Descriptions and ENABLE Commands for a Sample
Multifile Application
Figure 7-4 shows the standard screen displayed by this sample
application on a T16-651x, T16-652x, or T16-653x terminals.
7-11