       IDENTIFICATION DIVISION.
        PROGRAM-ID.OEFENING-7B.
        AUTHOR.FREDERIK VAN DER HAEGEN.
        DATE-WRITTEN.DECEMBER-5-2001.

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

       DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 KLANT.
           03 KLNR PIC z(7)9.
           03 NAAM PIC X(17).
           03 VOORNAAM PIC X(12).

        01 ARTIKEL.
           03 MUZCODE PIC 9.
               88 muzgeldig values 1 thru 3.
        01 AANKOOP.
           03 AANKBEDRAG PIC S9(6) sign leading separate.
           03 BTWCODE PIC 9.
               88 btwgeldig values 1 2.
        01 VERKOOP.
           03 VERKBEDRAG PIC S9(6) sign leading separate.


        77 TOETS PIC X.
        77 VERSCHIL PIC S9(7) sign leading separate.
        77 antw pic x.
           88 niet-verder values "N" "n".
           88 verder-geldig values "J" "j" "N" "n".

        SCREEN SECTION.
         copy "oefenin4.TXT".

       PROCEDURE DIVISION.
       .
