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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 05 SCREEN-APPLICATION AT 2, 3 |
| PIC X(60) |
| FROM APPLICATION-NAME . |
| 05 FILLER AT 3, 3 |
| VALUE "MASTER MENU" . |
| 05 FILLER AT 4, 2 |
| VALUE |
| "====================================================== |
| - "========================". |
| 05 FILLER AT 5,2 |
| VALUE "Select one of the following or press SF16 |
| - "to EXIT" . |
| 05 FILLER AT 6, 6 |
| VALUE "Function Key" . |
| 05 FILLER AT 6, 33 |
| VALUE "Description" . |
| 05 FILLER AT 7, 6 |
| VALUE "----------- -------------------------- |
| - "---------------" . |
| 05 K-F1 AT 8, 10 |
| PIC X(4) |
| FROM DATA-F1 . |
| 05 SCREEN-DESC1 AT 8, 21 |
| PIC X(40) |
| FROM DESCRIPTION-1 . |
| 05 SCREEN-F2 AT 9, 10 |
| PIC X(4) |
| FROM DATA-F2 . |
| 05 SCREEN-DESC2 AT 9, 21 |
| PIC X(40) |
| FROM DESCRIPTION-2 . |
| 05 SCREEN-F3 AT 10, 10 |
| PIC X(4) |
| FROM DATA-F3 . |
| 05 SCREEN-DESC3 AT 10, 21 |
| PIC X(40) |
| FROM DESCRIPTION-3 . |
| 05 SCREEN-F4 AT 11, 10 |
| PIC X(4) |
| FROM DATA-F4 . |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-48