ENABLE Reference Manual

ENABLE SCREENS
Standard Screen Format for a Single-File Application
Standard Screen Format for a Single-File Application
Figure 7-1 shows a record description and a series of ENABLE
commands used to generate a single-file application.
-----------------------------------------------------------------
| |
| Record Description: |
| |
| RECORD employee. |
| FILE IS employee KEY-SEQUENCED. |
| 02 empnum PIC 9(4). |
| 02 empname PIC X(18). |
| 02 dept. |
| 04 regnum PIC 9(2). |
| 04 branchnum PIC 9(2). |
| 02 job PIC X(12). |
| 02 age PIC 99. |
| 02 salary PIC 9999V99. |
| 02 vacation PIC 999. |
| KEY 0 IS empnum. |
| KEY "dp" IS dept. |
| KEY "en" IS empname. |
| END |
| |
| ENABLE Commands: |
| |
| SET BOX RECORD employee |
| ADD BOX employee |
| SET APPL TREE (01 employee) |
| SET APPL PATHCOMFILE enabpath |
| ADD APPL employee-prog |
| GENERATE employee-prog |
| |
| |
-----------------------------------------------------------------
Figure 7-1. Record Description and ENABLE Commands for a Sample
Single-File Application
Figure 7-2 shows the format of the standard screen displayed by
this sample application on a T16-651x, T16-652x, or T16-653x
terminal. The line numbers that appear to the right of the
figure do not actually appear on the screen; they refer to the
explanatory notes that follow.
7-3