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

SINGLE-FILE APPLICATIONS
The Sample Employee-Prog Application
-----------------------------------------------------------------
| |
| STEP 1: CREATE A DATA DICTIONARY |
| |
| :EDIT ddlsrc1 |
| |
| *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(4) HEADING "Region Number". |
| 7 04 BRANCHNUM PIC 9(4) 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 IS EMPNUM. |
| 13 KEY "EN" IS EMPNAME. |
| 14 KEY "DP" IS DEPT. |
| 15 END |
| 16 // |
| *EXIT |
| |
| :DDL/IN ddlsrc1/DICT, FUP fupsrc1 ! |
| |
| STEP 2: CREATE A DATA BASE FILE |
| |
| :FUP/IN fupsrc1/ |
| |
| STEP 3: CALL ENABLE AND GENERATE AN APPLICATION |
| |
| :ENABLE |
| |
| %SET BOX RECORD EMPLOYEE |
| %ADD BOX EMPLOYEE |
| %SET APPL TREE (01 EMPLOYEE) |
| %SET APPL PATHCOMFILE singlpth |
| %ADD APPL EMPLOYEE-PROG |
| %GENERATE EMPLOYEE-PROG |
| %EXIT |
| |
-----------------------------------------------------------------
Figure 4-2. Commands That Generate and Execute the Sample
Employee-Prog Application (Continued next page)
4-3