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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 05 SCREEN-F11 AT 18, 10 |
| PIC X(4) |
| FROM DATA-F11 . |
| 05 SCREEN-DESC11 AT 18, 21 |
| PIC X(40) |
| FROM DESCRIPTION-11 . |
| 05 SCREEN-F12 AT 19, 10 |
| PIC X(4) |
| FROM DATA-F12 . |
| 05 SCREEN-DESC12 AT 19, 21 |
| PIC X(40) |
| FROM DESCRIPTION-12 . |
| 05 SCREEN-F13 AT 20, 10 |
| PIC X(4) |
| FROM DATA-F13 . |
| 05 SCREEN-DESC13 AT 20, 21 |
| PIC X(40) |
| FROM DESCRIPTION-13 . |
| 05 SCREEN-F14 AT 21, 10 |
| PIC X(4) |
| FROM DATA-F14 . |
| 05 SCREEN-DESC14 AT 21, 21 |
| PIC X(40) |
| FROM DESCRIPTION-14 . |
| 05 SCREEN-F15 AT 22, 10 |
| PIC X(4) |
| FROM DATA-F15 . |
| 05 SCREEN-DESC15 AT 22, 21 |
| PIC X(40) |
| FROM DESCRIPTION-15 . |
| 05 FILLER AT 23, 2 |
| VALUE "================================================== |
| - "=========================". |
| 05 MESS-AGE AT 24, 1 |
| PIC X(79) |
| FROM SCRN-MESSAGE |
| ADVISORY |
| UPSHIFT OUTPUT . |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-50