       identification division.
       program-id. Deel-4-Opgave-12b.
       author. Keppens Toon.
       date-written. 19-december-2001.

       environment division.
        configuration section.
         source-computer. PC.
         object-computer. PC.
       input-output section.
        file-control.
           select cdbestand
               assign to
               "E:\TI 2A\Back-end Programmeren\Oefeningen\Hoofdstuk 4\Oe
      -        "fening_1_Lijst_cdbestand.dat"
               organization sequential
               access sequential
               file status cd-status.

       data division.
        file section.
          FD cdbestand.
          01 C-cdrecord.
               03 C-titel pic x(20).
               03 C-uitvoerder pic x(20).
               03 C-genre pic x(15).
               03 C-prijs pic 9(4).

       working-storage section.
           01 cd-status pic xx.
               88 EOF-cd value "10".
           01 I-c-cdrecord.
               03 I-c-titel pic x(20).
               03 I-c-uitvoerder pic x(20).
               03 I-c-genre pic x(15).
               03 I-c-prijs pic 9(4).
           01 scherm-1.
               03 lijn-dubbel pic x(35)
                   value ":::::::::::::::::::::::::::::::::::".
               03 lijn-dubbelpunt pic x(1) value ":".
               03 lijn-info-bottom pic x(12) value "Keppens Toon".
               03 lijn-info-midden-1 pic x(63)
                   value "------------- Uitlezen van records per 10 ----
      -            "----------------".
               03 lijn-info-top pic x(60)
                   value "Hogeschool Gent  --   Departement BEST".
           01 datum pic 99/99/99.
           01 verder pic x.
           01 teller pic 99.
           01 plaatsA pic 9999.
           01 plaatsB pic 9999.
           01 plaatsC pic 9999.
           01 plaatsD pic 9999.

       procedure division.
           main.
               copy "Oefening_1_Lijst_b_layout.dat".

               perform b-prog
               perform groep-body
               perform e-prog

               stop run
           .

           b-prog.
               open input cdbestand
               read cdbestand at end continue
               end-read
           .

           groep-body.
               perform v-cdgroep-v-toets-m-o-scherm with test before
               until EOF-cd
           .

           e-prog.
               close cdbestand
           .

           m-o-scherm-v-toets.
               move 1 to teller
           .

           m-o-body.
               move 1008 to plaatsA
               move 1030 to plaatsB
               move 1050 to plaatsC
               move 1065 to plaatsD
               perform v-c-cdrecord-m-o-regel with test before until
               (EOF-cd or (teller >= 10))

               accept verder at 2050
           .

           v-c-cdrecord-m-o-regel.
               move C-titel to I-c-titel
               move C-uitvoerder to I-c-uitvoerder
               move C-genre to I-c-genre
               move C-prijs to I-c-prijs
               display I-c-titel at plaatsA
               display I-c-uitvoerder at plaatsB
               display I-c-genre at plaatsC
               display I-c-prijs at plaatsD
               add 1 to teller
               read cdbestand at end continue
               end-read
               add 100 to plaatsA
               add 100 to plaatsB
               add 100 to plaatsC
               add 100 to plaatsD
           .

            v-cdgroep-v-toets-m-o-scherm.
                perform m-o-scherm-v-toets
                perform m-o-body
            .
