Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 943
Nel caso si utilizzino dei nastri, quelli che il programma ha chiuso senza riavvolgere, vengono
comunque riavvolti alla conclusione del programma stesso; inoltre, alla conclusione del
programma vengono chiusi automaticamente i file che sono rimasti ancora aperti.
82.12.4 Istruzione «COMPUTE»
L’istruzione ‘COMPUTE’ consente di calcolare un’espressione aritmetica, assegnando il risultato
a una o più variabili:
«
La variabile che nello schema sintattico appare con il nome identifier deve essere scalare e di
tipo numerico, anche se può contenere una maschera di modifica. Possono essere indicate più
variabili a sinistra del segno ‘=’ e ognuna riceve una copia del risultato dell’espressione alla
destra.
L’opzione ‘ROUNDED’ serve a richiedere un arrotondamento se la variabile ricevente non può
rappresentare il risultato con la stessa precisione ottenuta dal calcolo dell’espressione; l’opzione
‘SIZE ERROR’ consente di richiamare un’istruzione nel caso una delle variabili riceventi
non fosse in grado di contenere la parte più significativa del valore ottenuto calcolando
l’espressione.
|000000 COMPUTE D = A * B + C.
L’esempio mostra che si vuole assegnare alla variabile ‘D’ il risultato dell’espressione ‘A * B
+ C’ (A moltiplicato B, sommato a C).
82.12.5 Istruzione «DELETE»
L’istruzione ‘DELETE’ cancella un record logico da un file organizzato in modo relativo o a
indice (sono esclusi i file organizzati in modo sequenziale).
«
Per poter cancellare un record è necessario che il file sia stato aperto in lettura e scrittura
(‘I-O’).
Se il file viene utilizzato con un accesso sequenziale, l’opzione ‘INVALID KEY’ non è applicabile
e non deve essere scritta nell’istruzione. Inoltre, utilizzando un accesso sequenziale,
prima di eseguire un’istruzione ‘DELETE’ è necessario che il puntatore del record sia stato posizionato
attraverso un’istruzione ‘READ’. L’istruzione ‘READ’ deve precedere immediatamente
l’istruzione ‘DELETE’, che così può cancellare il record appena letto.
Quando il file viene utilizzato con un accesso diretto (‘RANDOM’) o dinamico (‘DYNAMIC’),
l’opzione ‘INVALID KEY’ è obbligatoria, a meno di avere dichiarato un’azione alternativa, in
caso di errore, nella zona di istruzioni definite come ‘DECLARATIVES’, all’inizio della divisione
‘PROCEDURE DIVISION’. Per individuare il record da cancellare, si fa riferimento alla