6.2 De value-clausule bij tabellen

Als alle velden van een tabel dezelfde beginwaarde moeten hebben, dan kunnen we de value-clausule bij de occurs plaatsen. In het volgende voorbeeld staan achter maand drie clausules: occurs, picture en value. Tussen haakjes: De verschillende clausules mogen we in willekeurige volgorde gebruiken. Het is min of meer toeval dat de drie clausules in alfabetische volgorde staan. Dat is niet verplicht.

01 maandtellingen.
   03 maand    occurs 12 times, pic 9(5), value zero.
  

Alle twaalf velden met de naam maand hebben nu aan het begin van het programma de waarde nul.

Datzelfde hadden we in dit geval kunnen bereiken door de value-clausule te plaatsen achter maandtellingen.

01 maandtellingen, value zero.
   03 maand    occurs 12 times, pic 9(5).
  

Als de elementen van de tabel elk een verschillende beginwaarde moeten hebben, dan kan het woord value niet meer bij occurs staan. Wel bij een groepsveld dat de gehele tabel omvat.

01 weektabel value "madiwodovrzazo".
   03 dagnaam  occurs 7 times  pic xx.
  

Lastiger wordt het bij een grotere tabel. De alfanumerieke constante die de beginwaarden bevat, zal dan immers ook groot zijn. Er is een veel gebruikte oplossing voor dit probleem. Die levert wel flink wat schrijfwerk, maar hij heeft ook een voordeel. De methode is heel duidelijk. Het is op deze manier goed te zien wat de inhoud van elk tabelelement is.

01 tabelwaarden.
   03 pic x(9), value "maandag".
   03 pic x(9), value "dinsdag".
   03 pic x(9), value "woensdag".
   03 pic x(9), value "donderdag".
   03 pic x(9), value "vrijdag".
   03 pic x(9), value "zaterdag".
   03 pic x(9), value "zondag".
01 redefines tabelwaarden.
   03 dagnaam   occurs 7 times, pic x(9).
  

Het groepsveld tabelwaarden is onderverdeeld in zeven elementaire velden. Deze velden hebben geen naam, maar wel een waarde. Om nu een tabel te krijgen, beschrijven we het groepsveld opnieuw. Daarvoor is de redefines-clausule het aangewezen hulpmiddel. Het nieuwe groepsveld heeft geen naam, want het gaat om het 03-veld dagnaam eronder. Bij dit veld schrijven we de occurs-clausule. Door middel van de herdefinitie hebben de tabelelementen een waarde gekregen. Deze vorm van herdefinitie gevolgd door occurs is toegestaan. Andersom niet. Een veld met occurs mogen we niet noemen na het woord redefines.