Parte ii - IIS Marconi Latina - Area didattica

896 volume V Programmazione
• il campo ‘MM-CARICO-QUANTITA’ può contenere un numero senza segno con otto cifre
per la parte intera e tre cifre per la parte decimale;
• il campo ‘MM-COSTO-UNITARIO’ può contenere un numero senza segno con sei cifre per
la parte intera e due cifre per la parte decimale;
• il campo ‘MM-DESCRIZIONE’ può contenere caratteri alfanumerici di qualunque tipo
(nell’ambito di una rappresentazione in byte), per una dimensione di 200 caratteri.
Nell’esempio del magazzino si può notare che tutti i nomi usati per individuare le varie componenti
del record sono unici, ma oltre a questo è stata usata l’accortezza di mettere un prefisso
(‘MM-’) per distinguerli rispetto a campi di altri file che potrebbero avere una struttura del record
simile. Tuttavia, non è strettamente necessario che tali nomi siano univoci per tutto il programma,
perché è prevista la possibilità di qualificarli in modo gerarchico. La qualificazione è
descritta nella sezione 82.8.3.
Esiste anche la possibilità di ridefinire la struttura di un record, assegnando un nome alternativo
a un certo livello che si vuole descrivere diversamente. Si osservi l’esempio seguente:
|000000 01 MIO-RECORD.
|000000 02 CAMPO-A PIC X(20).
|000000 02 RIDEFINITO-A REDEFINES CAMPO-A.
|000000 03 DATA.
|000000 04 ANNO PIC 9999.
|000000 04 MESE PIC 99.
|000000 04 GIORNO PIC 99.
|000000 03 DESCRIZIONE PIC X(12).
|000000 02 CAMPO-B ...
|...
Nell’esempio si vede un record denominato ‘MIO-RECORD’, che inizialmente è composto dal
campo ‘CAMPO-A’ fatto per contenere 20 caratteri. Questo campo viene ridefinito nella riga
successiva con il nome ‘RIDEFINITO-A’, che si articola in sottocampi, con i quali si vuole
descrivere in modo alternativo la variabile ‘CAMPO-A’. In base al contesto si intende che i
primi otto caratteri possano essere interpretati come le cifre numeriche di una data (anno,
mese e giorno), individuando il resto come una descrizione non meglio qualificabile.
Generalmente, la ridefinizione di un campo che non è suddiviso è di scarsa utilità, mentre è
più interessante quando si applica a campi che hanno già una suddivisione, che però si vuole
gestire anche in modo differente:
|000000 01 MIO-RECORD.
|000000 02 A
|000000 03 B PIC X(10).
|000000 03 C PIC X(10).
|000000 02 D REDEFINES A.
|000000 03 E PIC X(5).
|000000 03 F PIC X(10).
|000000 03 G PIC X(5).
|000000 02 H ...
|...