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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 02 PROG12 PIC X(15) |
| VALUE " ". |
| 02 PROG13 PIC X(15) |
| VALUE " ". |
| 02 PROG14 PIC X(15) |
| VALUE " ". |
| 02 PROG15 PIC X(15) |
| VALUE " ". |
| |
| 01 PROGRAM-CHOICE REDEFINES PROGRAM-NAMES. |
| 02 PROGRAM-CHOICE-VALUE |
| OCCURS 15 TIMES PIC X(15). |
| ************************************************************ |
| * PLACE THE DESCRIPTIONS OF THE CALLED PROGRAMS IN |
| * THE VALUE CLAUSES BELOW. DESCRIPTION-1 CORRESPONDS |
| * TO FUNCTION KEY 1 AND PROG1. LEAVE THE DESCRIPTIONS |
| * BLANK FOR THE FUNCTION KEYS NOT USED. THE PROGRAM |
| * LOGIC INSURES CORRECT DISPLAY AND FUNCTION KEY |
| * CONTROL FOR THOSE OPTIONS WITH NO DESCRIPTIONS. |
| ************************************************************ |
| |
| 01 PROGRAM-DESCRIPTIONS. |
| 02 DESCRIPTION-1 PIC X(40) |
| VALUE "To enter a new project. ". |
| 02 DESCRIPTION-2 PIC X(40) |
| VALUE "To look up an employee number. ". |
| 02 DESCRIPTION-3 PIC X(40) |
| VALUE "To obtain information about a project. ". |
| 02 DESCRIPTION-4 PIC X(40) |
| VALUE "To obtain detailed event information. ". |
| 02 DESCRIPTION-5 PIC X(40) |
| VALUE "To revise an event. ". |
| 02 DESCRIPTION-6 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-7 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-8 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-9 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-10 PIC X(40) |
| VALUE " ". |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-45