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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| SF7-KEY IS SF7, |
| SF8-KEY IS SF8, |
| SF9-KEY IS SF9, |
| SF10-KEY IS SF10, |
| SF11-KEY IS SF11, |
| SF12-KEY IS SF12, |
| SF13-KEY IS SF13, |
| SF14-KEY IS SF14, |
| SF15-KEY IS SF15, |
| SF16-KEY IS SF16, |
| NORMAL IS NORMAL, |
| DIM IS DIM, |
| REVERSE IS REVERSE, |
| HIDDEM IS HIDDEN, |
| BLINK IS BLINK, |
| NOBLINK IS NOBLINK, |
| NOREVERSE IS NOREVERSE, |
| UNDERLINE IS UNDERLINE, |
| ADVICE IS (DIM, REVERSE). |
| |
| INPUT-OUTPUT SECTION. |
| SCREEN-CONTROL. |
| ERROR-ENHANCEMENT IS REVERSE IN ALL. |
| |
| DATA DIVISION. |
| WORKING-STORAGE SECTION. |
| 01 CALL-ERROR-MESSAGES. |
| * Termination status = 0001 |
| 02 FILLER PIC X(32) |
| VALUE "Invalid Pseudocode detected ". |
| * Termination status = 0002 |
| 02 FILLER PIC X(32) |
| VALUE "Depending variable value to big ". |
| * Termination status = 0003 |
| 02 FILLER PIC X(32) |
| VALUE "Invalid subscript value ". |
| * Termination status = 0004 |
| 02 FILLER PIC X(32) |
| VALUE "Screen Recovery -illegal instr. ". |
| * Termination status = 0005 |
| 02 FILLER PIC X(32) |
| VALUE "Mismatch - number of parameters". |
| * Termination status = 0006 |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-41