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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 02 FILLER PIC X(32) |
| VALUE "Transaction msg send failure ". |
| * Termination status = 0022 |
| 02 FILLER PIC X(32) |
| VALUE "Send:server class name invalid ". |
| * Termination status = 0023 |
| 02 FILLER PIC X(32) |
| VALUE "Pseudocode size too big ". |
| * Termination status = 0024 |
| 02 FILLER PIC X(32) |
| VALUE "TCLPROG directory entry is bad ". |
| * Termination status = 0025 |
| 02 FILLER PIC X(32) |
| VALUE "Term input data stream invalid ". |
| * Termination status = 0026 |
| 02 FILLER PIC X(32) |
| VALUE "Program unit has wrong term type". |
| * Termination status = 0027 |
| 02 FILLER PIC X(32) |
| VALUE "Transaction mode violation ". |
| * Termination status = 0028 |
| 02 FILLER PIC X(32) |
| VALUE "Transaction IO error ". |
| * Termination status = 0029 |
| 02 FILLER PIC X(32) |
| VALUE "Trans. restart limit reached ". |
| * Termination status = 0030 |
| 02 FILLER PIC X(32) |
| VALUE "TMF not configured ". |
| * Termination status = 0031 |
| 02 FILLER PIC X(32) |
| VALUE "TMF not running ". |
| 01 ERROR-ARRAY REDEFINES CALL-ERROR-MESSAGES. |
| 02 CALL-ERROR-MESSAGE |
| OCCURS 31 TIMES PIC X(32). |
| |
| 01 ERROR-NOTE. |
| 02 FILLER PIC X(18) |
| VALUE " Program called=> ". |
| 02 PROG-NAME PIC X(15) VALUE "???????????????". |
| |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-43