Tabelele și clauza OCCURS

În COBOL, nu există niciun cuvânt cheie „matrice” sau „vector” pentru a defini liste de date omogene. În acest scop, utilizați clauza OCCURS, care specifică de câte ori se repetă o variabilă sau o structură în memorie.

Definirea unui tabel cu OCCURS

Clauza OCCURS este adăugată la declarația unei variabile subordonate (de exemplu, nivelul 05 sau mai mare) în cadrul unei structuri de grup (nivel 01):

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

În acest exemplu, WS-MONTHLY-SALES este un tabel format din 12 elemente numerice a câte 4 cifre fiecare. Memoria alocată pentru această înregistrare va fi exact 12 * 4 = 48 de caractere.

Accesarea elementelor și indicilor

Pentru a accesa un anumit element dintr-un tabel, specificați indexul între paranteze imediat după numele câmpului.

[!IMPORTANT] Spre deosebire de majoritatea limbilor moderne care folosesc indexarea bazată pe 0, COBOL utilizează indexarea bazată pe 1. Primul element se află la indexul 1, al doilea la indexul 2 și așa mai departe.

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

Parcurgerea unui tabel (iterație)

Pentru a parcurge elementele unui tabel, puteți utiliza instrucțiunea PERFORM VARYING sau puteți gestiona manual un contor într-o buclă PERFORM UNTIL:

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

Încercați-l singur