       IDENTIFICATION DIVISION.
        PROGRAM-ID.OEFENING-7B.
        AUTHOR.De Vos Levy.
        DATE-WRITTEN.november-1-2004.

       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).
           03 datum pic X(8).

        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.
        01 totaal.
           03 totbedrag 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.
       HOOFDPROGRAMMA.
       perform uitvoer-scherm-1 thru resultaat-weergeven 5 times
       Stop run.
       uitvoer-scherm-1.
               accept datum from date
               display datum at 0270
               display G-OEFENIN4
               .
       gegevens-inlezen.
               accept klnr at 0718
               accept naam at 0818
               accept voornaam at 0918
               accept muzcode at 0856
               accept aankbedrag at 1422
               accept btwcode at 1517
               accept verkbedrag at 1457
               .
       resultaat-weergeven.
               IF aankbedrag < 0 display "negatief" at 1922
               else display "positief" at 1922
               end-if
               IF verkbedrag < 0 display "negatief" at 1968
               else display "positief" at 1968
               end-if
               if muzcode = 1 display "CD" at 2027
               else if muzcode = 2 display "PLAAT" at 2027
                   else display "DVD" at 2027
               end-if
               subtract aankbedrag from verkbedrag
               move verkbedrag to totbedrag
               display totbedrag at 2120
               if totbedrag < 0 display "VERLIES" at 2060
               else display "WINST" at 2060
               end-if
               if btwcode = 1 display "6%" at 2165
               else display "21%" at 2165
               end-if.

                 accept toets at 2168.

       .
