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

Sample Project-Tracking System

Writing a Menu Program

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

| |

| 02 DESCRIPTION-11 PIC X(40) |

| VALUE " ". |

| 02 DESCRIPTION-12 PIC X(40) |

| VALUE " ". |

| 02 DESCRIPTION-13 PIC X(40) |

| VALUE " ". |

| 02 DESCRIPTION-14 PIC X(40) |

| VALUE " There are no more options. ". |

| 02 DESCRIPTION-15 PIC X(40) |

| VALUE " ". |

| |

| 01 DESCRIPTION-VALUES REDEFINES PROGRAM-DESCRIPTIONS. |

| 02 DESCRIPTION-ELEMENT |

| OCCURS 15 TIMES PIC X(40). |

| 01 APPLICATION-TITLE. |

| * |

| * Insert the screen title in the following VALUE clause. |

| * |

| 02 APPLICATION-NAME PIC X(60) |

| VALUE "PROJECT TRACKING |

| - " ". |

| |

| 01 FUNCTION-KEY-SCREEN. |

| 02 DATA-F1 PIC X(4). |

| 02 DATA-F2 PIC X(4). |

| 02 DATA-F3 PIC X(4). |

| 02 DATA-F4 PIC X(4). |

| 02 DATA-F5 PIC X(4). |

| 02 DATA-F6 PIC X(4). |

| 02 DATA-F7 PIC X(4). |

| 02 DATA-F8 PIC X(4). |

| 02 DATA-F9 PIC X(4). |

| 02 DATA-F10 PIC X(4). |

| 02 DATA-F11 PIC X(4). |

| 02 DATA-F12 PIC X(4). |

| 02 DATA-F13 PIC X(4). |

| 02 DATA-F14 PIC X(4). |

| 02 DATA-F15 PIC X(4). |

| |

| 01 FUNCTION-KEY-SARRAY REDEFINES FUNCTION-KEY-SCREEN. |

| 02 SARRAY-ELEMENT |

| OCCURS 15 TIMES PIC X(4). |

| |

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

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

(Continued)

12-46

1 2 ... 269 270 271 272 273 274 275 276 277 278 279 ... 361 362

Kommentare zu diesen Handbüchern

Keine Kommentare

Hp Integrity NonStop J-Series Bedienungsanleitung Seite 274

Kommentare zu diesen Handbüchern

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