IDENTIFICATION DIVISION.
       PROGRAM-ID. OEFENING19a.
       AUTHOR. DDS.
       DATE-WRITTEN. 10-DECEMBER-2003.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT afdrukken-tabel
               ASSIGN TO "afdruk.dat"
               ORGANIZATION SEQUENTIAL
               ACCESS SEQUENTIAL
               FILE STATUS afd-stat.

       FILE SECTION.
       fd afdrukken-tabel.
       01 A-RECORD.
           03 A-nummer PIC 9(6).
           03 A-naam PIC X(25).
           03 A-omzet PIC S9(3)V99.
           03 A-datum PIC 99/99/99.

       WORKING-STORAGE SECTION.
           01 afd-stat pic xx.
               88 eof-afd-stat value "10".
           01 opnieuw pic 9.
               88 gedaan value 0.
           01 I-A.
               03 I-A-nummer pic 9(6).
               03 I-A-naam pic X(25).
               03 I-A-omzet pic S9(3)V99.
               03 I-A-datum pic 99/99/99.

       SCREEN SECTION.
           01 scherm.
               02 line 1 col 1 "nummer".
               02 line 2 col 1 "naam".
               02 line 3 col 1 "omzet".
               02 line 4 col 1 "datum".

       PROCEDURE DIVISION.

           perform bprog
           perform body
           perform eprog
           stop run
           .


           bprog.
               open extend afdrukken-tabel
               .


          body.
               move 1 to opnieuw
               perform vrecord with test before until gedaan
               .

           eprog.
               close afdrukken-tabel
               .


               vrecord.

                   DISPLAY scherm
                   accept I-A-nummer at 0110
                   accept I-A-naam at 0210
                   accept I-A-omzet at 0310
                   accept I-A-datum at 0410
                   accept opnieuw at 0501
                   write A-RECORD from I-A
                   .