Hp Integrity NonStop J-Series Manuale Utente Scaricare il pdf (Pagina 280)

100

101

Sample Project-Tracking System

Writing a Menu Program

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

| |

| IF (OPERATION-CHOICE IS GREATER THAN MAX-CHOICE OR |

| OPERATION-CHOICE IS EQUAL TO 16) |

| MOVE SPACES TO SCRN-MESSAGE |

| MOVE "THIS FUNCTION KEY NOT ACTIVE" |

| TO MESSAGE-ALPHA-A |

| DISPLAY TEMP MESS-AGE |

| ELSE |

| |

| MOVE PROGRAM-CHOICE-VALUE(OPERATION-CHOICE) |

| TO PROGRAM-CALLED |

| CALL PROGRAM-CALLED |

| ON ERROR PERFORM 800-CALL-ERRORS |

| DISPLAY BASE MSCREEN1 |

| DISPLAY MSCREEN1. |

| IF (OPERATION-CHOICE IS NOT GREATER THAN MAX-CHOICE) |

| DISPLAY BASE MSCREEN1 |

| DISPLAY MSCREEN1 |

| ELSE |

| NEXT SENTENCE. |

| |

| 300-ACCEPT-SCREEN. |

| ACCEPT MSCREEN1 UNTIL |

| F1-KEY |

| F2-KEY, |

| F3-KEY, |

| F4-KEY, |

| F5-KEY, |

| F6-KEY, |

| F7-KEY, |

| F8-KEY, |

| F9-KEY, |

| F10-KEY, |

| F11-KEY, |

| F12-KEY, |

| F13-KEY, |

| F14-KEY, |

| F15-KEY, |

| ESCAPE ON (F16-KEY THRU SF15-KEY), |

| SF16-KEY. |

| |

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

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

(Continued)

12-52

1 2 ... 275 276 277 278 279 280 281 282 283 284 285 ... 361 362

Commenti su questo manuale

Nessun commento

Hp Integrity NonStop J-Series Manuale Utente Pagina 280

Commenti su questo manuale

Prodotti e manuali riguardandi Hardware del computer Hp Integrity NonStop J-Series