| Altre pagine: | 1] Realizzare un menu | 3] I parametri menu | |
|---|---|---|---|
| 2] Interfaccia utente | 4] Gli script del menu |
Gli script del menu
Mi sono basato sui comandi del sistema operativo IMOS della NCR (di cui sono stato dipendente per parecchi anni).
Si tratta di una serie di semplici istruzioni che coprono il fabbisogno del menu che ho realizzato.
Essi sono:
- AS Assegna un nome esterno ad un file.
- EX Esegue un programma.
- SW Attribuisce i valori ai Cobol swicht.
- IF Salto condizionale
- DO Concatena un altro script.
Ogni script viene indentificato da applicazione + numero job.
Esempio: AA 102
Dove AA indica l’applicazione e 102 il numero di programma.
Il comando AS
Formato: AS Fnn nomefile.est
Esempio: AS F01 DATI.FAA
In questo esempio si assegna al file definito nel programma come F01 il nome esterno DATI.FAA
Sono ammessi anche dei caratteri di rimpiazzo che rendono il linguaggio di script particolarmente flessibile.
Essi sono.
- ** Viene sostituito con l’anno contabile selezionato.
- ++ Viene sostituito con l’anno contabile selezionato più uno (anno dopo)
- -- Viene sostituito con l’anno contabile selezionato meno uno (anno prima)
- ?? Viene sostituito con il numero terminale ossia utente
Esempi:
Supponiamo di aver selezionato l’anno contabile 2007 al terminale 25.
Script: AS F01 DATI**.FAA
Nome file: DATI07.FAA
Script: AS F01 DATI++.FAA
Nome file: DATI08.FAA
Script: AS F01 DATI--.FAA
Nome file: DATI06.FAA
Script: AS F01 WORK??.TMP
Nome file: WORK25.TMP
Il comando EX
Come argomento abbiamo soltanto il nome del programma
Esempio: EX PROG-1
Il comando SW
Formato: SW nnnnnnnn
Esempio: SW 01000001
In questo esempio abbiamo messo lo switch 2 e 8 a ON mentre lasciato quelli restanti a zero.
Il comando IF
Formato: IF codizione n nnn
Esempio: IF = 7 000
Esempio: IF < 3 050
In questo esempio abbiamo:
se il valore di ritorno del JCL-CODE è uguale a 7 interrompi lo script.
se il valore di ritorno del JCL-CODE è minore di 3 prosegui con i comandi della riga 50.
Il comando DO
Formato: DO numero_riga,applicazione
Esempio: DO 130,AB
Con questo esempio di vuole unire allo script attuale il job 130 dell’applicazione AB
Esempio di script
 Pagina precedente |
