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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| ************************************************************ |
| PROCEDURE DIVISION. |
| ************************************************************ |
| DECLARATIVES. |
| RECOVER-MAIN-SCREEN SECTION. |
| USE FOR SCREEN RECOVERY ON MSCREEN1. |
| MOVE SPACES TO SCRN-MESSAGE. |
| MOVE "SCREEN RECOVERY" TO MESSAGE-ALPHA-A. |
| DISPLAY MSCREEN1. |
| DISPLAY TEMP MESS-AGE. |
| END DECLARATIVES. |
| |
| MAIN SECTION. |
| PERFORM 100-INITIALIZATION. |
| PERFORM 200-READ-SCREEN until end-program = "Y". |
| PERFORM END-OF-PROGRAM. |
| |
| END-OF-PROGRAM. |
| EXIT PROGRAM. |
| |
| 100-INITIALIZATION. |
| * based on the contents of the description-x fields, |
| * determine how many options there are and set MAX-CHOICE. |
| PERFORM 110-GET-MAX VARYING NCOUNT |
| FROM 1 BY 1 UNTIL TASK-DONE. |
| DISPLAY BASE MSCREEN1. |
| DISPLAY MSCREEN1. |
| 110-GET-MAX. |
| IF PROGRAM-CHOICE-VALUE(NCOUNT) IS NOT EQUAL TO SPACES |
| MOVE NCOUNT TO MAX-CHOICE |
| MOVE NARRAY-ELEMENT(NCOUNT) TO SARRAY-ELEMENT(NCOUNT) |
| ELSE |
| NEXT SENTENCE. |
| IF PROGRAM-CHOICE-VALUE(NCOUNT) IS EQUAL TO SPACES |
| MOVE "Y" TO TASK. |
| 200-READ-SCREEN. |
| PERFORM 300-ACCEPT-SCREEN. |
| IF OPERATION-CHOICE IS EQUAL TO 17 |
| MOVE "Y" TO END-PROGRAM |
| ELSE |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-51