Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 967
Organizzazione a indice
In tutti gli schemi sintattici che riguardano l’istruzione ‘READ’, si può vedere che viene indicato
immediatamente il nome del file (già aperto) che si vuole leggere. Successivamente,
appare una parola chiave opzionale, ‘INTO’, che precede il nome di una variabile; se viene
specificata questa informazione, si intende fare in modo che il record logico ottenuto dal file,
oltre che essere disponibile nella variabile strutturata dichiarata appositamente per questo,
dopo l’indicatore di livello ‘FD’ relativo, sia anche copiato in un’altra variabile. Inoltre, le
istruzioni imperative (imperative-statement) che si possono inserire dopo le parole ‘AT END’
e ‘INVALID KEY’, servono a dichiarare cosa deve fare il programma nel caso la lettura fallisca
per qualche motivo.
Se il file che viene letto è associato a una variabile indicata con l’opzione ‘FILE STATUS’
nell’istruzione ‘SELECT’ (nella sezione ‘FILE-CONTROL’ di ‘ENVIRONMENT DIVISION’), il
valore di tale variabile viene aggiornato.
Nel caso di un file a cui si accede sequenzialmente, si applica il primo schema sintattico.
In questo caso l’istruzione ‘READ’ fornisce il record attuale e sposta in avanti il puntatore al
record, in modo che una lettura successiva fornisca il prossimo record. Quando l’accesso è
dinamico e si vuole leggere un file in modo sequenziale, occorre aggiungere l’opzione ‘NEXT’,
per richiedere espressamente l’avanzamento al record successivo.
Quando si accede sequenzialmente, oppure in modo dinamico ma specificando che si richiede
il record successivo, si può verificare un errore che consiste nel tentativo di leggere oltre la
fine del file. Se ciò accade e se è stata specificata l’opzione ‘AT END’, vengono eseguite le
istruzioni che seguono tali parole.
La lettura sequenziale di un file relativo, comporta l’aggiornamento del valore della «chiave
relativa», ovvero di quanto specificato con la dichiarazione ‘RELATIVE KEY’ dell’istruzione
‘SELECT’.
La lettura sequenziale può essere applicata anche a un file organizzato a indice; in tal caso, la
sequenza di lettura corrisponde a quella della chiave principale.
Quando si accede in modo diretto ai record all’interno di un file relativo, si utilizza il secondo
schema sintattico, per ottenere il record specificato dal numero contenuto nella variabile
che funge da chiave (come specificato nell’istruzione ‘SELECT’, attraverso la dichiarazione
‘RELATIVE KEY’). Se un record con quel numero non esiste, si verifica la condizione
controllata dall’opzione ‘INVALID KEY’ e il programma esegue le istruzioni che questa
controlla.
Il terzo formato sintattico si usa per i file organizzati a indice, con accesso diretto, in base alla
chiave specificata. La chiave in questione è quella primaria, salvo specificarla nell’istruzione
‘READ’ con l’opzione ‘KEY IS’. La chiave cercata deve essere scritta in corrispondenza del
campo che la contiene, all’interno del record dichiarato dopo l’indicatore di livello ‘FD’ relativo
al file, secondo le specifiche dell’istruzione ‘SELECT’ (‘RECORD KEY’, o ‘ALTERNATE
RECORD KEY’). Se la lettura avviene con successo, si ottiene il record che contiene quella chiave;
altrimenti si verifica la condizione controllata dall’opzione ‘INVALID KEY’ e le istruzioni
relative vengono eseguite.