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

Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| 05 SCREEN-DESC4 AT 11, 21 |
| PIC X(40) |
| FROM DESCRIPTION-4 . |
| 05 SCREEN-F5 AT 12, 10 |
| PIC X(4) |
| FROM DATA-F5 . |
| 05 SCREEN-DESC5 AT 12, 21 |
| PIC X(40) |
| FROM DESCRIPTION-5 . |
| 05 SCREEN-F6 AT 13, 10 |
| PIC X(4) |
| FROM DATA-F6 . |
| 05 SCREEN-DESC6 AT 13, 21 |
| PIC X(40) |
| FROM DESCRIPTION-6 . |
| 05 SCREEN-F7 AT 14, 10 |
| PIC X(4) |
| FROM DATA-F7 . |
| 05 SCREEN-DESC7 AT 14, 21 |
| PIC X(40) |
| FROM DESCRIPTION-7 . |
| 05 SCREEN-F8 AT 15, 10 |
| PIC X(4) |
| FROM DATA-F8 . |
| 05 SCREEN-DESC8 AT 15, 21 |
| PIC X(40) |
| FROM DESCRIPTION-8 . |
| 05 SCREEN-F9 AT 16, 10 |
| PIC X(4) |
| FROM DATA-F9 . |
| 05 SCREEN-DESC9 AT 16, 21 |
| PIC X(40) |
| FROM DESCRIPTION-9 . |
| 05 SCREEN-F10 AT 17, 10 |
| PIC X(4) |
| FROM DATA-F10 . |
| 05 SCREEN-DESC10 AT 17, 21 |
| PIC X(40) |
| FROM DESCRIPTION-10 . |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-49