ENABLE User's Guide

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 02 FILLER PIC X(32) |
| VALUE "Mismatch - size of parameters ". |
| * Termination status = 0007 |
| 02 FILLER PIC X(32) |
| VALUE "Screen operation without base ". |
| * Termination status = 0008 |
| 02 FILLER PIC X(32) |
| VALUE "Invalid data reference ". |
| * Termination status = 0009 |
| 02 FILLER PIC X(32) |
| VALUE "Screen illegal for term type ". |
| * Termination status = 0010 |
| 02 FILLER PIC X(32) |
| VALUE "Internal err in terminal format ". |
| * Termination status = 0011 |
| 02 FILLER PIC X(32) |
| VALUE "Illegal terminal type specified ". |
| * Termination status = 0012 |
| 02 FILLER PIC X(32) |
| VALUE "Screen referenced/not displayed ". |
| * Termination status = 0013 |
| 02 FILLER PIC X(32) |
| VALUE "Overlay screen displayed/2 areas". |
| * Termination status = 0014 |
| 02 FILLER PIC X(32) |
| VALUE "Illegal term IO protocol word ". |
| * Termination status = 0015 |
| 02 FILLER PIC X(32) |
| VALUE "Arithmetic Overflow ". |
| * Termination status = 0016 |
| 02 FILLER PIC X(32) |
| VALUE "Terminal stack space overflow ". |
| * Termination status = 0017 |
| 02 FILLER PIC X(32) |
| VALUE "Error during terminal open ". |
| * Termination status = 0018 |
| 02 FILLER PIC X(32) |
| VALUE "Error during terminal IO ". |
| * Termination status = 0019 |
| 02 FILLER PIC X(32) |
| VALUE "Wrong transfer count in term IO ". |
| * Termination status = 0020 |
| 02 FILLER PIC X(32) |
| VALUE "Called program unit not found ". |
| * Termination status = 0021 |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-42