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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 02 DESCRIPTION-11 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-12 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-13 PIC X(40) |
| VALUE " ". |
| 02 DESCRIPTION-14 PIC X(40) |
| VALUE " There are no more options. ". |
| 02 DESCRIPTION-15 PIC X(40) |
| VALUE " ". |
| |
| 01 DESCRIPTION-VALUES REDEFINES PROGRAM-DESCRIPTIONS. |
| 02 DESCRIPTION-ELEMENT |
| OCCURS 15 TIMES PIC X(40). |
| 01 APPLICATION-TITLE. |
| * |
| * Insert the screen title in the following VALUE clause. |
| * |
| 02 APPLICATION-NAME PIC X(60) |
| VALUE "PROJECT TRACKING |
| - " ". |
| |
| 01 FUNCTION-KEY-SCREEN. |
| 02 DATA-F1 PIC X(4). |
| 02 DATA-F2 PIC X(4). |
| 02 DATA-F3 PIC X(4). |
| 02 DATA-F4 PIC X(4). |
| 02 DATA-F5 PIC X(4). |
| 02 DATA-F6 PIC X(4). |
| 02 DATA-F7 PIC X(4). |
| 02 DATA-F8 PIC X(4). |
| 02 DATA-F9 PIC X(4). |
| 02 DATA-F10 PIC X(4). |
| 02 DATA-F11 PIC X(4). |
| 02 DATA-F12 PIC X(4). |
| 02 DATA-F13 PIC X(4). |
| 02 DATA-F14 PIC X(4). |
| 02 DATA-F15 PIC X(4). |
| |
| 01 FUNCTION-KEY-SARRAY REDEFINES FUNCTION-KEY-SCREEN. |
| 02 SARRAY-ELEMENT |
| OCCURS 15 TIMES PIC X(4). |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-46