Groepeer items en records

In COBOL kunnen elementaire variabelen worden gegroepeerd in een hiërarchische structuur die een groepsitem of record wordt genoemd. Hierdoor kunt u een reeks gerelateerde gegevens behandelen als één enkele entiteit (bijvoorbeeld om ze te kopiëren of weer te geven) of als afzonderlijke velden.

Niveaunummers en hiërarchische relaties

Om een ​​record te definiëren, gebruikt u niveaunummers in de DATA DIVISION:

• Niveau 01: definieert het hoofdrecord (de groepsnaam). Het heeft geen eigen PICTURE clausule omdat de grootte ervan wordt bepaald door de som van de interne velden.
• Onderliggende niveaus (05, 10, 15, enz.): Identificeer de ondergeschikte velden die tot de groep op een hoger niveau behoren. Het kunnen elementaire variabelen zijn (met een clausule PIC) of op hun beurt andere groepsitems (subrecords).

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 dit voorbeeld is WS-EMPLOYEE-RECORD een groepsstructuur met drie ondergeschikte velden. Als we verwijzen naar WS-EMPLOYEE-RECORD, lezen of schrijven we alle 5 + 20 + 8 = 33 tekens van de record in één keer.

De MOVE-instructie en groepsitems

We kunnen waarden toekennen aan individuele elementaire velden:

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

Of we kunnen in één handeling een volledig record naar een ander compatibel record kopiëren:

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

Probeer het zelf