Hp Integrity NonStop J-Series Manuel d'utilisateur télécharger pdf (Page 272)

Sample Project-Tracking System

Writing a Menu Program

-----------------------------------------------------------------

| |

| 01 BELL. |

| 02 FILLER PIC 9 COMP VALUE 7. |

| * ....................................................... |

| 01 MAX-CHOICE PIC 99 VALUE 0. |

| 01 OPERATION-CHOICE PIC 99 VALUE 1. |

| 01 TASK PIC X. |

| 88 TASK-DONE VALUE "Y". |

| 88 TASK-NOT-DONE VALUE "N". |

| 01 NCOUNT PIC 99 VALUE 1. |

| 01 END-PROGRAM PIC X VALUE "N". |

| 01 PROGRAM-CALLED PIC X(15) VALUE SPACES. |

| |

| ************************************************************ |

| * PLACE THE NAMES OF THE CALLED PROGRAMS IN THE VALUE |

| * CLAUSES THAT FOLLOW. PROG1 CORRESPONDS TO FUNCTION |

| * KEY 1 AND DESCRIPTION1 |

| ************************************************************ |

| |

| 01 PROGRAM-NAMES. |

| 02 PROG1 PIC X(15) |

| VALUE "project-entry ". |

| 02 PROG2 PIC X(15) |

| VALUE "look-up ". |

| 02 PROG3 PIC X(15) |

| VALUE "project-info ". |

| 02 PROG4 PIC X(15) |

| VALUE "event-detail ". |

| 02 PROG5 PIC X(15) |

| VALUE "event-revised ". |

| 02 PROG6 PIC X(15) |

| VALUE " ". |

| 02 PROG7 PIC X(15) |

| VALUE " ". |

| 02 PROG8 PIC X(15) |

| VALUE " ". |

| 02 PROG9 PIC X(15) |

| VALUE " ". |

| 02 PROG10 PIC X(15) |

| VALUE " ". |

| 02 PROG11 PIC X(15) |

| VALUE " ". |

| |

-----------------------------------------------------------------

Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program

(Continued)

12-44

1 2 ... 267 268 269 270 271 272 273 274 275 276 277 ... 361 362

Commentaires sur ces manuels

Pas de commentaire

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

Commentaires sur ces manuels

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