11.6 Meer dan één index

Het is mogelijk om bij een tabel verschillende indexen te benoemen.

01 Omzettentabel.
   02 Omzet occurs 275 times indexed by vest-ind-1, vest-ind-2
            pic 9(7).
  

De omzettentabel heeft nu twee indexen: vest-ind-1 en vest-ind-2. Als we zelf van de tabel gebruik maken (met set-opdrachten), mogen we naar keuze een van de indexen gebruiken. Elke index kan als subscript fungeren bij de tabel waarbij hij is benoemd.

Voor alle indexen geldt dat ze alleen maar gebruikt kunnen worden in de volgende opdrachten: set, perform, search en search all.

Bij de search-opdracht gebruikt de computer de eerste index bij het zoekproces, tenzij we anders aangeven. Stel dat de eerste index een waarde bevat die we willen vasthouden voor later gebruik. We kunnen dan een search laten uitvoeren met de tweede index. We gebruiken daarvoor het woordje varying:

    set vest-ind-2 to 1
    search Omzet varying vest-ind-2
       when Omzet(vest-ind-2) > 1000000
          set afdruknummer to vest-ind-2
          display "Nummer ", afdruknummer, ": ", Omzet(vest-ind-2)
    end-search
  

Door de vermelding varying vest-ind-2 gebruikt de computer nu de tweede index bij het zoeken. Het is uiteraard onze eigen verantwoordelijkheid om deze index vooraf juist te initialiseren.

Bij de search-all-opdracht gebruikt de computer altijd de eerstgenoemde index. We kunnen niet aangeven dat hij een andere index moet gebruiken.