Files ad organizzazione INDEXED - 1

SELEZIONE DEL FILE

Si debba elaborare l'archivio anagrafico dei dipendenti di una ditta:

...
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
...
INPUT-OUTPUT SECTION.
FILE-CONTROL.
     SELECT DIPENDENTI ASSIGN TO DISK "DIPEN.DAT"
            ORGANIZATION INDEXED
            ACCESS MODE  RANDOM
            RECORD KEY   CODICE.
...

In questo caso la clausola ORGANIZATION va specificata obbligatoriamente.

La modalità di accesso RANDOM specifica che, nell'elaborazione seguente, i records si susseguiranno con un ordine dipendente soltanto dalla elaborazione stessa.

La clausola RECORD KEY specifica il campo del record utilizzato come chiave di accesso al file.

DESCRIZIONE FILE E
TRACCIATO RECORD

...
DATA DIVISION.
FILE SECTION.
FD  DIPENDENTI LABEL RECORD STANDARD.
01  R-DIPENDENTI.
     02 CODICE    PIC X(2).
     02 NOME      PIC X(15).
     02 COGNOME   PIC X(15).
     02 QUALIFICA PIC X(20).
WORKING-STORAGE SECTION.
...

Nel tracciato record deve esistere, così come specificato nella FILE-CONTROL, il campo CODICE.

Il campo utilizzato come chiave può essere sottostrutturato e deve essere di tipo alfanumerico

N.Brugaletta

COBOL 28