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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| IF (OPERATION-CHOICE IS GREATER THAN MAX-CHOICE OR |
| OPERATION-CHOICE IS EQUAL TO 16) |
| MOVE SPACES TO SCRN-MESSAGE |
| MOVE "THIS FUNCTION KEY NOT ACTIVE" |
| TO MESSAGE-ALPHA-A |
| DISPLAY TEMP MESS-AGE |
| ELSE |
| |
| MOVE PROGRAM-CHOICE-VALUE(OPERATION-CHOICE) |
| TO PROGRAM-CALLED |
| CALL PROGRAM-CALLED |
| ON ERROR PERFORM 800-CALL-ERRORS |
| DISPLAY BASE MSCREEN1 |
| DISPLAY MSCREEN1. |
| IF (OPERATION-CHOICE IS NOT GREATER THAN MAX-CHOICE) |
| DISPLAY BASE MSCREEN1 |
| DISPLAY MSCREEN1 |
| ELSE |
| NEXT SENTENCE. |
| |
| 300-ACCEPT-SCREEN. |
| ACCEPT MSCREEN1 UNTIL |
| F1-KEY |
| F2-KEY, |
| F3-KEY, |
| F4-KEY, |
| F5-KEY, |
| F6-KEY, |
| F7-KEY, |
| F8-KEY, |
| F9-KEY, |
| F10-KEY, |
| F11-KEY, |
| F12-KEY, |
| F13-KEY, |
| F14-KEY, |
| F15-KEY, |
| ESCAPE ON (F16-KEY THRU SF15-KEY), |
| SF16-KEY. |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-52