Parte ii - IIS Marconi Latina - Area didattica

878 volume V Programmazione
L’organizzazione relativa, oltre alle operazioni di lettura e scrittura, prevede la cancellazione
dei record, che comunque possono essere rimpiazzati successivamente attraverso un’operazione
di scrittura. Si osservi comunque che un record che risulta essere stato cancellato, non può
essere letto.
Osservando lo schema sintattico si può intuire che la prima parte dell’istruzione ‘SELECT’
funzioni nello stesso modo di un file organizzato sequenzialmente; la differenza più importante
riguarda la definizione del tipo di unità di memorizzazione che, date le caratteristiche dei file
organizzati in modo relativo, deve consentire un accesso diretto ai dati.
La dichiarazione ‘RESERVE integer’ si usa nello stesso modo del file organizzato
sequenzialmente.
L’indicazione dell’organizzazione, attraverso la dichiarazione ‘ORGANIZATION IS
RELATIVE’ è obbligatoria, anche se probabilmente è sufficiente scrivere soltanto ‘RELATIVE’.
Se non viene specificata la dichiarazione ‘ACCESS MODE’, si intende che l’accesso debba avvenire
in modo sequenziale, altrimenti vale quanto indicato espressamente. Se l’accesso richiesto
è diretto o dinamico, è necessario indicare quale variabile usare per specificare il numero del
record, nella posizione occupata nello schema sintattico dalla metavariabile data-name-1 (da
specificare ulteriormente nella sezione ‘WORKING-STORAGE SECTION’ della divisione ‘DATA
DIVISION’).
La dichiarazione ‘FILE STATUS IS data-name-2’ funziona nello stesso modo descritto a
proposito dei file organizzati in modo sequenziale.
Il punto fermo che conclude l’istruzione ‘SELECT’ appare una volta sola, alla fine; tutta
l’istruzione deve risiedere nell’area B.
Viene mostrato un esempio completo di un programma COBOL che legge un file relativo, ad
accesso diretto, scandendo sequenzialmente il numero del record:
|Listato 82.38. Programma elementare che legge un file relativo, ad accesso diretto.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ESEMPIO-RELATIVO-DIRETTO.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-08.
|000500 ENVIRONMENT DIVISION.
|000600 INPUT-OUTPUT SECTION.
|000700*
|000800 FILE-CONTROL.
|000900 SELECT MIO-FILE ASSIGN TO "input.rel"
|001000 ORGANIZATION IS RELATIVE
|001100 ACCESS MODE IS RANDOM
|001200 RELATIVE KEY IS N-RECORD
|001300 FILE STATUS IS STATO-DEL-FILE.
|001400*
|001500 DATA DIVISION.
|001600 FILE SECTION.
|001700 FD MIO-FILE
|001800 LABEL RECORD IS STANDARD.
|001900 01 MIO-RECORD PIC X(20).
|002000 WORKING-STORAGE SECTION.
|002100 77 N-RECORD PIC 9999 COMP VALUE IS ZERO.
|002200 77 STATO-DEL-FILE PIC XX.