Voorbeeldoplossing oefening 2.

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. oef2-1011.
       environment division.
       input-output section.
       file-control.
      * schrijf hier de bestandsdefinities
        select invoer assign "oef2_invoer.txt".
        select favoriet assign "favoriet.txt".
       data division.
       file section.
      * vul hier de recordbeschrijvingen aan
       copy oef2_1011_invoer_copy.
       copy oef2_1011_favoriet_copy.
       working-storage section.
       01    einde              pic x value "0".
        88   einde-bestand      value "1".
       01 prijs-ed              pic 9(5).99.
      * vul hier verder aan met extra velddefinities
       01 isfavoriet            pic x value "N".
       02 nieuweprijs           pic 9(5)v99.
       procedure division.
       pgm.
      * openen van de bestanden
        open input invoer output favoriet
      * lezen van het eerste record
         read invoer
           at end
             display "leeg invoerbestand"
             move "1" to einde
         end-read
         perform until einde-bestand
      * vul hieronder het veld "boekingsprijs" van het invoerbestand in
           move boekingsprijs to prijs-ed
      * vul hieronder het velden "zanger/popgroep" van het invoerbestand in
           display "voor " naam " is de prijs " prijs-ed
      * vul hieronder driemaal het veld "favoriet" van de working-storage in
           display "is dit een van je favoriete zangers/groepen?"
           accept isfavoriet
           if isfavoriet = "J" or isfavoriet = "j"
      * breng hieronder de gegevens van het invoerbestand over naar het nieuwe bestand
              move inv-rec to fav-rec
      * wegschrijven in het nieuwe bestand
              write fav-rec
              display "het record werd overgenomen"
           end-if
      * lezen van het volgende record
         read invoer
           at end
             display "einde invoerbestand"
             move "1" to einde
         end-read
        end-perform
      * sluiten van de bestanden
        close invoer favoriet
        move 0 to einde
      * openen favorietenbestand om wijzigingen te kunnen aanbrengen
        open i-o favoriet
      * lezen van het eerste record
        read favoriet
           at end
             display "leeg favorietenbestand"
             move "1" to einde
        end-read
        perform until einde-bestand
          display "voor " fav-naam " was de prijs " fav-boekingsprijs
      * berekenen prijs met 5% korting
          compute nieuweprijs = fav-boekingsprijs * 0.95
          move nieuweprijs to fav-boekingsprijs prijs-ed
          display "nieuwe prijs is " prijs-ed
      * wegschrijven record met nieuwe gegevens
          rewrite fav-rec
      * lezen van het volgende record
        read favoriet
           at end
             display "einde favorietenbestand"
             move "1" to einde
        end-read
        end-perform
        accept einde
        stop run.

oef2_1011_favoriet_copy.


fd favoriet.
       01 fav-rec.
          02 fav-boekingscode   pic x(10).
          02 fav-naam           pic x(20).
          02 fav-boekingsprijs  pic 9(5)v99.
          02 fav-genre          pic x(10).
          02 fav-land           pic x(3).


oef2_1011_invoer_copy.


fd invoer.
        01 inv-rec.
          02 boekingscode       pic x(10).
          02 naam               pic x(20).
          02 boekingsprijs      pic 9(5)v99.
          02 genre              pic x(10).
          02 land               pic x(3).