Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 893
82.5.1.8 Dichiarazione «VALUE OF»
La dichiarazione ‘VALUE OF’ consente, in un certo senso, di assegnare dei valori a delle voci
legate alle caratteristiche del file. La cosa più importante che si potrebbe fare è di specificare
il file da utilizzare secondo ciò che richiede il sistema operativo. Per esempio, se si tratta di un
file su disco e il sistema operativo richiede di indicare anche i dischi per nome, il compilatore
dovrebbe prevedere qui una voce appropriata.
«
Le voci che si possono dichiarare qui possono essere di ogni tipo, con la possibilità di abbinare
un valore costante (una stringa alfanumerica), oppure una variabile il cui contenuto viene poi
modificato in fase elaborativa.
L’estratto seguente di un programma COBOL, scritto per il compilatore TinyCOBOL, mostra
l’uso della voce ‘FILE-ID’ per dichiarare il nome del file da utilizzare:
|001000 FILE-CONTROL.
|001100 SELECT FILE-NAME ASSIGN TO DISK
|001200 ORGANIZATION IS SEQUENTIAL
|001300 ACCESS MODE IS SEQUENTIAL
|001400 FILE STATUS IS DATA-NAME.
|001600 DATA DIVISION.
|001700 FILE SECTION.
|001800 FD FILE-NAME
|001900 LABEL RECORD IS STANDARD
|002000 VALUE OF FILE-ID IS "input.seq".
|002100 01 RECORD-NAME PIC X(20).
|002200 WORKING-STORAGE SECTION.
|002300 01 DATA-NAME PIC XX.
82.5.1.9 Descrizione del record
Dopo ogni indicatore di livello (‘FD’ o ‘SD’) si deve descrivere il record attraverso una variabile
strutturata, che si dichiara con quelli che sono noti come livelli. I livelli sono in pratica delle
dichiarazioni che costituiscono ognuna delle istruzioni singole, ma in tal caso, a differenza
delle istruzioni comuni, iniziano con un numero: il numero di livello.
«
Il livello 01 è obbligatorio e dichiara il nome della variabile strutturata che descrive il record
nella sua interezza; qualunque numero superiore serve a descrivere una porzione inferiore
del record, con la possibilità di scomposizioni successive. I numeri di livello che possono
essere usati per questo scopo sono limitati all’intervallo da 01 a 49, tenendo conto che, a parte
l’obbligo di iniziare da 01, i livelli inferiori possono utilizzare incrementi superiori all’unità.
Si osservi l’esempio seguente che contiene un estratto dalla sezione ‘FILE SECTION’: