Record e Strutture di Gruppo

In COBOL, le variabili elementari possono essere raggruppate all'interno di una struttura gerarchica chiamata struttura di gruppo o record. Questo permette di trattare un insieme di dati correlati sia come una singola entità (ad esempio, per copiarli o mostrarli), sia come singoli campi individuali.

Numeri di Livello e Relazioni Gerarchiche

Per definire un record, si utilizzano i numeri di livello nella DATA DIVISION:

• Livello 01: Definisce il record principale (il nome del gruppo). Non ha una clausola PICTURE propria, poiché la sua dimensione è determinata dalla somma dei campi interni.
• Livelli subordinati (05, 10, 15 ecc.): Identificano i campi subordinati appartenenti al gruppo di livello superiore. Possono essere variabili elementari (con clausola PIC) o a loro volta altri gruppi (sotto-record).

01 WS-EMPLOYEE-RECORD.
    05 WS-EMP-ID       PIC 9(5).
    05 WS-EMP-NAME     PIC X(20).
    05 WS-EMP-SALARY   PIC 9(6)V99.

In questo esempio, WS-EMPLOYEE-RECORD è una struttura di gruppo che contiene tre campi subordinati. Se facciamo riferimento a WS-EMPLOYEE-RECORD, stiamo leggendo o scrivendo tutti gli 8 + 20 + 5 = 33 caratteri del record in una sola volta.

L'istruzione MOVE e le Strutture di Gruppo

Possiamo valorizzare i singoli campi elementari:

MOVE 10023 TO WS-EMP-ID.
MOVE "JOHN DOE" TO WS-EMP-NAME.

Oppure possiamo copiare un intero record in un altro record compatibile con un'unica operazione:

MOVE WS-EMPLOYEE-RECORD TO WS-EMPLOYEE-BACKUP.

Prova tu