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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 01 FUNCTION-KEY-NAMES. |
| 02 K-DATA-F1 PIC X(4) VALUE " F1". |
| 02 K-DATA-F2 PIC X(4) VALUE " F2". |
| 02 K-DATA-F3 PIC X(4) VALUE " F3". |
| 02 K-DATA-F4 PIC X(4) VALUE " F4". |
| 02 K-DATA-F5 PIC X(4) VALUE " F5". |
| 02 K-DATA-F6 PIC X(4) VALUE " F6". |
| 02 K-DATA-F7 PIC X(4) VALUE " F7". |
| 02 K-DATA-F8 PIC X(4) VALUE " F8". |
| 02 K-DATA-F9 PIC X(4) VALUE " F9". |
| 02 K-DATA-F10 PIC X(4) VALUE " F10". |
| 02 K-DATA-F11 PIC X(4) VALUE " F11". |
| 02 K-DATA-F12 PIC X(4) VALUE " F12". |
| 02 K-DATA-F13 PIC X(4) VALUE " F13". |
| 02 K-DATA-F14 PIC X(4) VALUE " F14". |
| 02 K-DATA-F15 PIC X(4) VALUE " F15". |
| |
| 01 FUNCTION-KEY-NARRAY REDEFINES FUNCTION-KEY-NAMES. |
| 02 NARRAY-ELEMENT |
| OCCURS 15 TIMES PIC X(4). |
| |
| 01 GLOBALS. |
| 05 SCRN-MESSAGE PIC X(78) VALUE spaces. |
| 05 SCRN-MESSAGE-FLDS redefines SCRN-MESSAGE. |
| 10 MESSAGE-1-NUMBER PIC S9999 |
| SIGN IS LEADING SEPARATE CHARACTER. |
| 10 FILLER PIC XX. |
| 10 MESSAGE-2-NUMBER PIC S9999 |
| SIGN IS LEADING SEPARATE CHARACTER. |
| 10 FILLER PIC XX. |
| 10 MESSAGE-ALPHA. |
| 15 MESSAGE-ALPHA-A PIC X(38). |
| 15 MESSAGE-ALPHA-B PIC X(26). |
| |
| SCREEN SECTION. |
| |
| 01 MSCREEN1 OVERLAY SIZE 24, 80 . |
| 05 FILLER AT 1, 2 |
| VALUE "=========================================== |
| - "===================================" . |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-47