Hp Integrity NonStop J-Series Bedienungsanleitung PDF herunterladen (Seite 276)

100

101

Sample Project-Tracking System

Writing a Menu Program

-----------------------------------------------------------------

| |

| 05 SCREEN-APPLICATION AT 2, 3 |

| PIC X(60) |

| FROM APPLICATION-NAME . |

| 05 FILLER AT 3, 3 |

| VALUE "MASTER MENU" . |

| 05 FILLER AT 4, 2 |

| VALUE |

| "====================================================== |

| - "========================". |

| 05 FILLER AT 5,2 |

| VALUE "Select one of the following or press SF16 |

| - "to EXIT" . |

| 05 FILLER AT 6, 6 |

| VALUE "Function Key" . |

| 05 FILLER AT 6, 33 |

| VALUE "Description" . |

| 05 FILLER AT 7, 6 |

| VALUE "----------- -------------------------- |

| - "---------------" . |

| 05 K-F1 AT 8, 10 |

| PIC X(4) |

| FROM DATA-F1 . |

| 05 SCREEN-DESC1 AT 8, 21 |

| PIC X(40) |

| FROM DESCRIPTION-1 . |

| 05 SCREEN-F2 AT 9, 10 |

| PIC X(4) |

| FROM DATA-F2 . |

| 05 SCREEN-DESC2 AT 9, 21 |

| PIC X(40) |

| FROM DESCRIPTION-2 . |

| 05 SCREEN-F3 AT 10, 10 |

| PIC X(4) |

| FROM DATA-F3 . |

| 05 SCREEN-DESC3 AT 10, 21 |

| PIC X(40) |

| FROM DESCRIPTION-3 . |

| 05 SCREEN-F4 AT 11, 10 |

| PIC X(4) |

| FROM DATA-F4 . |

| |

-----------------------------------------------------------------

Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program

(Continued)

12-48

1 2 ... 271 272 273 274 275 276 277 278 279 280 281 ... 361 362

Kommentare zu diesen Handbüchern

Keine Kommentare

Hp Integrity NonStop J-Series Bedienungsanleitung Seite 276

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Computerhardware Hp Integrity NonStop J-Series