Hp Integrity NonStop J-Series Manuel d'utilisateur télécharger pdf (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

1 2 ... 71 72 73 74 75 76 77 78 79 80 81 ... 361 362

Commentaires sur ces manuels

Pas de commentaire

Hp Integrity NonStop J-Series Manuel d'utilisateur Page 76

Commentaires sur ces manuels

Produits connexes et manuels pour Matériel informatique Hp Integrity NonStop J-Series