Tabellen en OCCURS-clausule

In COBOL bestaat er geen trefwoord "array" of "vector" om lijsten met homogene gegevens te definiëren. Voor dit doel gebruikt u de clausule OCCURS, die specificeert hoe vaak een variabele of structuur in het geheugen wordt herhaald.

Een tabel definiëren met OCCURS

De clausule OCCURS wordt toegevoegd aan de declaratie van een ondergeschikte variabele (bijvoorbeeld niveau 05 of hoger) binnen een groepsstructuur (niveau 01):

01 WS-SALES-DATA.
    05 WS-MONTHLY-SALES PIC 9(4) OCCURS 12 TIMES.

In dit voorbeeld is WS-MONTHLY-SALES een tabel die bestaat uit 12 numerieke elementen van elk 4 cijfers. Het toegewezen geheugen voor dit record zal precies 12 * 4 = 48 tekens bedragen.

Toegang tot elementen en indexen

Om toegang te krijgen tot een specifiek element in een tabel, specificeert u de index tussen haakjes direct na de veldnaam.

[!BELANGRIJK] In tegenstelling tot de meeste moderne talen die indexering op basis van 0 gebruiken, gebruikt COBOL indexering op basis van 1. Het eerste element bevindt zich op index 1, het tweede op index 2, enzovoort.

MOVE 1500 TO WS-MONTHLY-SALES(1).
MOVE 2400 TO WS-MONTHLY-SALES(2).

Een tabel doorlopen (iteratie)

Om de elementen van een tabel te doorlopen, kunt u de instructie PERFORM VARYING gebruiken of een teller handmatig beheren in een PERFORM UNTIL lus:

PERFORM UNTIL WS-INDEX > 12
    DISPLAY "Sales: " WS-MONTHLY-SALES(WS-INDEX)
    ADD 1 TO WS-INDEX
END-PERFORM.

Probeer het zelf