Hp Integrity NonStop J-Series Bedienungsanleitung Seite 281

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 362
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 280
Sample Project-Tracking System
Writing a Menu Program
-----------------------------------------------------------------
| |
| MOVE TERMINATION-STATUS TO OPERATION-CHOICE. |
| |
| 800-CALL-ERRORS. |
| MOVE SPACES TO SCRN-MESSAGE. |
| MOVE TERMINATION-STATUS TO MESSAGE-1-NUMBER. |
| MOVE TERMINATION-SUBSTATUS TO MESSAGE-2-NUMBER. |
| IF TERMINATION-STATUS IS LESS THAN 31 |
| MOVE CALL-ERROR-MESSAGE(TERMINATION-STATUS) |
| TO MESSAGE-ALPHA-A |
| ELSE |
| IF TERMINATION-STATUS IS EQUAL TO 44 |
| MOVE "CALL PROGRAM UNIT NAME IS INVALID" |
| TO MESSAGE-ALPHA-A |
| ELSE |
| MOVE "TERMINATION STATUS ERROR OCCURRED" |
| TO MESSAGE-ALPHA-A. |
| MOVE PROGRAM-CALLED TO PROG-NAME. |
| MOVE ERROR-NOTE TO MESSAGE-ALPHA-A. |
| |
-----------------------------------------------------------------
Figure 12-26. SCREEN COBOL Source Code for Sample Menu Program
(Continued)
12-53
Seitenansicht 280
1 2 ... 276 277 278 279 280 281 282 283 284 285 286 ... 361 362

Kommentare zu diesen Handbüchern

Keine Kommentare