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

Sample Project-Tracking System
Writing a Menu Program
Figure 12-26 shows the SCREEN COBOL source code for this program.
Within the source code, comments (indicated by an asterisk in
column 1) provide additional information. You can modify this
source code to develop a menu program for your own system of
applications.
-----------------------------------------------------------------
| |
| IDENTIFICATION DIVISION. |
| PROGRAM-ID. MENU. |
| AUTHOR. Your Name |
| DATE-WRITTEN. 06/29/84 |
| DATE-COMPILED. |
| SECURITY. comment. |
| ENVIRONMENT DIVISION. |
| CONFIGURATION SECTION. |
| SOURCE-COMPUTER. T16. |
| OBJECT-COMPUTER. T16, |
| * |
| * Modify the following for T16-651x or IBM-327x terminals. |
| * |
| TERMINAL IS T16-6520. |
| |
| SPECIAL-NAMES. |
| F1-KEY IS F1, |
| F2-KEY IS F2, |
| F3-KEY IS F3, |
| F4-KEY IS F4, |
| F5-KEY IS F5, |
| F6-KEY IS F6, |
| F7-KEY IS F7, |
| F8-KEY IS F8, |
| F9-KEY IS F9, |
| F10-KEY IS F10, |
| F11-KEY IS F11, |
| F12-KEY IS F12, |
| F13-KEY IS F13, |
| F14-KEY IS F14, |
| F15-KEY IS F15, |
| F16-KEY IS F16, |
| SF1-KEY IS SF1, |
| SF2-KEY IS SF2, |
| SF3-KEY IS SF3, |
| SF4-KEY IS SF4, |
| SF5-KEY IS SF5, |
| SF6-KEY IS SF6, |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued next page)
12-40