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

Sample Project-Tracking System

Writing a Menu Program

Figure 12-26 shows the SCREEN COBOL source code for this program.

Within the source code, comments (indicated by an asterisk in

column 1) provide additional information. You can modify this

source code to develop a menu program for your own system of

applications.

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

| |

| IDENTIFICATION DIVISION. |

| PROGRAM-ID. MENU. |

| AUTHOR. Your Name |

| DATE-WRITTEN. 06/29/84 |

| DATE-COMPILED. |

| SECURITY. comment. |

| ENVIRONMENT DIVISION. |

| CONFIGURATION SECTION. |

| SOURCE-COMPUTER. T16. |

| OBJECT-COMPUTER. T16, |

| * |

| * Modify the following for T16-651x or IBM-327x terminals. |

| * |

| TERMINAL IS T16-6520. |

| |

| SPECIAL-NAMES. |

| F1-KEY IS F1, |

| F2-KEY IS F2, |

| F3-KEY IS F3, |

| F4-KEY IS F4, |

| F5-KEY IS F5, |

| F6-KEY IS F6, |

| F7-KEY IS F7, |

| F8-KEY IS F8, |

| F9-KEY IS F9, |

| F10-KEY IS F10, |

| F11-KEY IS F11, |

| F12-KEY IS F12, |

| F13-KEY IS F13, |

| F14-KEY IS F14, |

| F15-KEY IS F15, |

| F16-KEY IS F16, |

| SF1-KEY IS SF1, |

| SF2-KEY IS SF2, |

| SF3-KEY IS SF3, |

| SF4-KEY IS SF4, |

| SF5-KEY IS SF5, |

| SF6-KEY IS SF6, |

| |

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

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

(Continued next page)

12-40

1 2 ... 263 264 265 266 267 268 269 270 271 272 273 ... 361 362

Commentaires sur ces manuels

Pas de commentaire

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

Commentaires sur ces manuels

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