Vai a pag. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Files ad organizzazione SEQUENTIAL - 1

SELEZIONE DEL FILE

Si debba elaborare l'archivio assicurati di una compagnia di assicurazioni:

...
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
...
INPUT-OUTPUT SECTION.
FILE-CONTROL.
     SELECT
ASSICURATI ASSIGN TO DISK "ASSICURA.DAT"
            ORGANIZATION SEQUENTIAL
            ACCESS MODE  SEQUENTIAL.
...

Il periodo SELECT associa il nome logico ASSICURATI al nome fisico ASSICURA.DAT (il nome con cui è registrato il file su memoria di massa): all'interno del programma il file sarà identificato da tale nome.

Le clausole
ORGANIZATION e ACCESS MODE possono, in questo caso, essere omesse, in quanto l'organizzazione e la modalità di accesso SEQUENTIAL sono assunte per default

DESCRIZIONE FILE E
TRACCIATO RECORD

...
DATA DIVISION.
FILE SECTION.
FD 
ASSICURATI LABEL RECORD STANDARD.
01  R-ASSICURATI.
     02 POLIZZA   PIC X(10).
     02 NOME      PIC X(40).
     02 ETA       PIC 999.
     02 SESSO     PIC X.
     02 RESIDENZA PIC X(15).
     02 SCADENZA  PIC X(6).
WORKING-STORAGE SECTION.
...


Nella
FILE SECTION ci saranno tante FD (File Description) quanti sono i files definiti nella FILE-CONTROL.

La lettura di un record dal file permetterà di depositare nell'area
R-ASSICURATI i dati conservati, così come la scrittura trasferirà su disco il contenuto della stessa area

N.Brugaletta

COBOL 23