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

Sample Project-Tracking System
Creating a Dictionary That Describes the Files
-----------------------------------------------------------------
| |
| RECORD participants. |
| FILE IS respfor KEY-SEQUENCED |
| 02 event-key HEADING "Event ID". |
| 04 proj-code PIC 9(6) HEADING "Project No.". |
| 04 event-num PIC 9(5) HEADING "Event No.". |
| 02 emp-no PIC 9(6) |
| HEADING "ID of Employee Assigned". |
| KEY 0 IS event-key. |
| KEY "en" IS emp-no. |
| END |
| |
| RECORD events. |
| FILE IS events KEY-SEQUENCED. |
| 02 event-key HEADING "Event ID". |
| 04 proj-code PIC 9(6) HEADING "Project No.". |
| 04 event-num PIC 9(5) HEADING "Event No.". |
| 02 event-desc PIC X(20) HEADING "Event". |
| 02 predict-start-date HEADING "Predicted Starting Date". |
| 04 start-day PIC 99 HEADING "Day". |
| 04 start-mo PIC 99 HEADING "Month". |
| 04 start-yr PIC 99 HEADING "Year". |
| 02 predict-end-date HEADING "Predicted Ending Date". |
| 04 end-day PIC 99 HEADING "Day". |
| 04 end-mo PIC 99 HEADING "Month". |
| 04 end-yr PIC 99 HEADING "Year". |
| 02 revised-start-date HEADING "Revised Starting Date". |
| 04 start-day PIC 99 HEADING "Day". |
| 04 start-mo PIC 99 HEADING "Month". |
| 04 start-yr PIC 99 HEADING "Year". |
| 02 revised-end-date HEADING "Revised Ending Date". |
| 04 end-day PIC 99 HEADING "Day". |
| 04 end-mo PIC 99 HEADING "Month". |
| 04 end-yr PIC 99 HEADING "Year". |
| 02 change-info PIC X(30) |
| HEADING "Reason for Revising Date:". |
| 02 update-emp PIC 9(6) |
| HEADING "Update Employee ID". |
| KEY 0 IS event-key. |
| KEY "ue" IS update-emp. |
| KEY "ed" IS event-desc. |
| END |
| |
-----------------------------------------------------------------
Figure 12-9. DDL Source Code (Continued)
12-14