Parte ii - IIS Marconi Latina - Area didattica

942 volume V Programmazione
Quando al posto della parola chiave ‘TO’, si usa ‘GIVING’, la somma dei valori che precede
tale parola chiave viene assegnata alle variabili indicate dopo, senza tenere in considerazione
il loro valore iniziale nella somma. Valgono le stesse considerazioni già fatte a proposito delle
opzioni ‘ROUNDED’ e ‘SIZE ERROR’. Si osservi l’esempio seguente:
|000000 ADD 1, 2, 3, GIVING A.
Qualunque sia il valore iniziale della variabile ‘A’, dopo la somma questa contiene il valore 6
(1+2+3).
In questo ultimo caso, la somma fa riferimento a variabili strutturate, dove i campi della prima
variabile devono essere sommati ai campi della seconda variabile che hanno lo stesso nome
della prima. Valgono le stesse considerazioni già fatte a proposito delle opzioni ‘ROUNDED’ e
‘SIZE ERROR’.
«
82.12.3 Istruzione «CLOSE»
Attraverso l’istruzione ‘CLOSE’ si può chiudere un file aperto. Questa istruzione non riguarda
i file definiti esplicitamente per le funzionalità di riordino e fusione del COBOL, perché questi
non vengono aperti. La sintassi dell’istruzione può essere più o meno ricca, a seconda delle
estensioni che offre il compilatore; tuttavia, lo schema seguente si adatta alla maggior parte
delle situazioni:
Il file indicato viene chiuso, eventualmente con delle opzioni. Se si tratta di un file sequenziale
a nastro, si può utilizzare l’opzione ‘NO REWIND’, con la quale si vuole evitare che il nastro
venga riavvolto automaticamente dopo la chiusura, così da poter accedere eventualmente a un
file successivo, già esistente o da creare sullo stesso nastro. L’opzione ‘LOCK’ serve a impedire
che il file possa essere riaperto nel corso del funzionamento del programma.