
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DATERF.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.   
       SOURCE-COMPUTER. P3500.
       OBJECT-COMPUTER. P3500.
      
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT DATEI ASSIGN TO OUTPUT "UMSATZ".        

       DATA DIVISION.
       FILE SECTION.
       FD  DATEI
           RECORD CONTAINS 27 CHARACTERS 
           LABEL RECORD IS OMITTED 
           DATA RECORD IS KSATZ.  
       01  KSATZ.
           02 KSA            PIC          9.
           02 KNR            PIC       9(7).
           02 KUMSJAHR       PIC         99.
           02 KUMS           PIC   9(10)V99.
           02 KLIM           PIC       9(5).

       WORKING-STORAGE SECTION.

           

       PROCEDURE DIVISION.
       ANFANG.
           OPEN OUTPUT DATEI.
       LOOP.
           DISPLAY "KUNDENSATZART".
           ACCEPT KSA. 
           IF KSA = 0 GO TO EOF.
           DISPLAY "KUNDENNUMMER".
           ACCEPT KNR.
           DISPLAY "KUNDENUMSATZJAHR".     
           ACCEPT KUMSJAHR. 
           DISPLAY "UMSATZ".        
           ACCEPT KUMS.
           WRITE KSATZ.
           GO TO LOOP.
       EOF.
           CLOSE DATEI.
           STOP RUN.
