HP Integrity NonStop J-Series - Manual (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