11.11 Tabellen met meer dan twee dimensies

Een tabel met twee dimensies heeft twee occurs-clausules met verschillende niveau-nummers. Als we op een volgende niveau opnieuw een occurs-clausule schrijven, dan krijgen we een tabel met drie dimensies.

onthoud

In COBOL zijn tabellen toegestaan tot aan zeven
dimensies toe.

Aan tabellen met meer dan twee dimensies is slechts heel af en toe behoefte. Toch een voorbeeld.

We breiden de tabel uit de vorige paragrafen uit. Toen ging het om vier examens en drie jaren. Laten we nu aannemen dat elk examen twee keer per jaar wordt afgenomen. Per examen zijn er nu twee getallen beschikbaar: een voor het voorjaarsexamen, een voor het najaarsexamen. In de tabel komt er een niveau bij: periode 1 hoort bij het voorjaarsexamen, periode 2 hoort bij het najaarsexamen.

01 aantal-geslaagden.
   03 jaar   occurs 3 times.
      05 examen   occurs 4 times.
         07 periode   occurs 2 times, picture 9999.
  

Als we een aantal geslaagden uit de tabel willen aanwijzen, zijn er drie gegevens nodig: jaar (1, 2 of 3), examen (1, 2, 3 of 4) en periode (1 of 2). Bij het nakijken van het voorjaarsexamen van examen 2 in jaar 3 tellen we 576 geslaagden. We kunnen dit getal als volgt in de tabel brengen:

    move 576 to periode(3, 2, 1)
  

Een tabel met drie dimensies laat zich tekenen als een kubus, maar het kan ook anders:

Figuur 11.1 Tabel met drie dimensies

Voor het verwerken van tabellen met meer dimensies bestaat de mogelijkheid tot het herhalen van het after-gedeelte in de perform-opdracht. Omdat een zinvolle toepassing hiervoor slechts zelden voorkomt, laten we het hier bij deze constatering.