Hp Integrity NonStop J-Series Manuel d'utilisateur télécharger pdf (Page 271)

Sample Project-Tracking System

Writing a Menu Program

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

| |

| 02 FILLER PIC X(32) |

| VALUE "Transaction msg send failure ". |

| * Termination status = 0022 |

| 02 FILLER PIC X(32) |

| VALUE "Send:server class name invalid ". |

| * Termination status = 0023 |

| 02 FILLER PIC X(32) |

| VALUE "Pseudocode size too big ". |

| * Termination status = 0024 |

| 02 FILLER PIC X(32) |

| VALUE "TCLPROG directory entry is bad ". |

| * Termination status = 0025 |

| 02 FILLER PIC X(32) |

| VALUE "Term input data stream invalid ". |

| * Termination status = 0026 |

| 02 FILLER PIC X(32) |

| VALUE "Program unit has wrong term type". |

| * Termination status = 0027 |

| 02 FILLER PIC X(32) |

| VALUE "Transaction mode violation ". |

| * Termination status = 0028 |

| 02 FILLER PIC X(32) |

| VALUE "Transaction IO error ". |

| * Termination status = 0029 |

| 02 FILLER PIC X(32) |

| VALUE "Trans. restart limit reached ". |

| * Termination status = 0030 |

| 02 FILLER PIC X(32) |

| VALUE "TMF not configured ". |

| * Termination status = 0031 |

| 02 FILLER PIC X(32) |

| VALUE "TMF not running ". |

| 01 ERROR-ARRAY REDEFINES CALL-ERROR-MESSAGES. |

| 02 CALL-ERROR-MESSAGE |

| OCCURS 31 TIMES PIC X(32). |

| |

| 01 ERROR-NOTE. |

| 02 FILLER PIC X(18) |

| VALUE " Program called=> ". |

| 02 PROG-NAME PIC X(15) VALUE "???????????????". |

| |

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

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

(Continued)

12-43

1 2 ... 266 267 268 269 270 271 272 273 274 275 276 ... 361 362

Commentaires sur ces manuels

Pas de commentaire

Hp Integrity NonStop J-Series Manuel d'utilisateur Page 271

Commentaires sur ces manuels

Produits connexes et manuels pour Matériel informatique Hp Integrity NonStop J-Series