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

CREATING AND RUNNING A MULTIFILE APPLICATION
Sample Employee-Detail Application
-----------------------------------------------------------------
| |
| STEP 1: CREATE A DATA DICTIONARY |
| |
| :EDIT ddlsrc2 |
| *ADD |
| 1 RECORD EMPLOYEE. |
| 2 FILE IS employee KEY-SEQUENCED. |
| 3 02 EMPNUM PIC 9(4) HEADING "Employee Number". |
| 4 02 EMPNAME PIC X(18) HEADING "Employee Name". |
| 5 02 DEPT HEADING "Department". |
| 6 04 REGNUM PIC 9(2) HEADING "Region Number". |
| 7 04 BRANCHNUM PIC 9(2) HEADING "Branch Number". |
| 8 02 JOB PIC X(12) HEADING "Job Title". |
| 9 02 AGE PIC 9(2) HEADING "Age". |
| 10 02 SALARY PIC 9(4)V99 HEADING "Salary". |
| 11 02 VACATION PIC S99 HEADING "Vacation". |
| 12 KEY 0 IS EMPNUM. |
| 13 KEY "en" IS EMPNAME. |
| 14 KEY "dp" IS DEPT. |
| 15 END |
| 16 |
| 17 RECORD DEPENDENTS. |
| 18 FILE IS depend KEY-SEQUENCED. |
| 19 02 DEP-KEY. |
| 20 04 EMP-NO PIC 9(4) |
| 21 HEADING "Employee Number". |
| 22 04 DEPENDENT-NO PIC 9(2) |
| 23 HEADING "Dependent ID". |
| 24 02 DEPENDENT-NAME PIC X(18) |
| 25 HEADING "Dependent Name". |
| 26 02 RELATIONSHIP PIC A. |
| 27 02 DEPENDENT-AGE PIC 9(2). |
| 28 KEY 0 IS DEP-KEY. |
| 29 KEY "dn" IS DEPENDENT-NAME. |
| 30 END |
| *EXIT |
| |
| :DDL/IN ddlsrc2/DICT, FUP fupsrc2! |
| |
| STEP 2: CREATE THE DATA BASE FILES |
| |
| :FUP/IN fupsrc2/ |
| |
-----------------------------------------------------------------
Figure 5-2. Commands That Generate and Execute the
Employee-Detail Application (Continued Next Page)
5-3