Parte ii - IIS Marconi Latina - Area didattica

894 volume V Programmazione
|001600 DATA DIVISION.
|001700 FILE SECTION.
|001800 FD SALES-FILE
|001830 LABEL RECORD IS STANDARD
|001860 VALUE OF FILE-ID IS "sales".
|001900 01 SALES-RECORD.
|002000 05 SALES-VENDOR-NAME PIC X(20).
|002100 05 SALES-VALUE PIC S9(6).
|002200 05 SALES-NUMBER PIC X(13).
|002300 05 SALES-TYPE PIC X.
|002400 05 SALES-VENDOR-REGION PIC X(17).
|002500 05 SALES-VENDOR-CITY PIC X(20).
|002600 05 SALES-COMMENTS PIC X(60).
Il file individuato dal nome ‘SALES-FILE’ si compone di record a cui si può fare riferimento
con la variabile strutturata ‘SALES-RECORD’. Il record si suddivide in sette campi con caratteristiche
diverse. Il record nella sua interezza corrisponde al livello 01, evidenziato dalla sigla
‘01’ che si trova nell’area A del modulo di programmazione. Come si vede nel livello 01
dell’esempio, la variabile strutturata che rappresenta tutto il record viene solo nominata, senza
altre indicazioni, perché la sua dimensione si determina dalla somma dei campi che contiene.
I numeri di livello, mano a mano che si annidano in sottolivelli successivi, devono crescere:
non è importante se il numero cresce di una o di più unità. Tradizionalmente, i livelli
vengono incrementati con un passo maggiore di uno, per facilitare la modifica del sorgente
quando dovesse presentarsi l’esigenza di ristrutturare i livelli.
Per comprendere meglio il senso della descrizione del record attraverso il sistema dei livelli,
conviene dare un’occhiata allo schema successivo:
Quello che appare nello schema vuole rappresentare il record di un file da usare per memorizzare
carichi e scarichi di un magazzino. Si può osservare inizialmente un campo per numerare
le registrazioni (ogni registrazione occupa un record), successivamente, appare la data
dell’operazione suddivisa in tre parti (anno, mese e giorno), quindi viene indicato il carico,
suddividendo la quantità caricata e il costo unitario di carico, quindi lo scarico, anche questo
diviso in quantità scaricata e valore unitario di scarico, infine appare un campo descrittivo dell’operazione.
Un record di questo tipo potrebbe essere descritto utilizzando i livelli nel modo
seguente: