11.8 Varying

De search-opdracht heeft een varying-optie in de formaatbeschrijving (zie aanhangsel A2). Met deze optie kunnen we een andere dan de eerste index aanwijzen voor het zoekproces (zie paragraaf 11.6).

De varying-optie kunnen we ook gebruiken om een index, een index-variabele of een gewone variabele te laten meelopen met de zoek-index. Elke keer als de computer de zoek-index verhoogt, verhoogt hij dan ook de 'meeloper'.

    set vest-ind to 1
    move 1 to afdruknummer
    search Omzet varying afdruknummer
       at end display "Geen vestiging boven miljoen."
       when Omzet(vest-ind) > 1000000
          display "Nummer ", afdruknummer, ": ", Omzet(vest-ind)
    end-search
  

De zoek-index vest-ind krijgt zijn beginwaarde. Tevens geven we afdruknummer de waarde 1. Tijdens het zoekproces verhoogt de computer de zoek-index vest-ind. Omdat we varying afdruknummer hebben vermeld, verhoogt hij daarbij tevens het veld afdruknummer. Bij de display-opdracht heeft afdruknummer dan de juiste waarde. Vergelijk deze oplossing met die van paragraaf 11.3. Daar gaven we afdruknummer een waarde via een set-opdracht vlak voor de display-opdracht.

omslag leerboek

Serie: leerboeken informatica

Titel: Tijd voor COBOL 2

Auteur: Andree Hollander

naamlogo