       IDENTIFICATION DIVISION.
      *************************.                                   

       PROGRAM-ID. VUMSATZ.

       ENVIRONMENT DIVISION.
      **********************.

       CONFIGURATION SECTION.
      *----------------------.

       SOURCE-COMPUTER. P3500.
       OBJECT-COMPUTER. P3500.

       INPUT-OUTPUT SECTION.
      *---------------------.

       FILE-CONTROL.
           SELECT VDAT ASSIGN TO INPUT "VDATNAME".
           SELECT VLISTE ASSIGN TO PRINT "PRINTER".

       DATA DIVISION.
      ***************.

       FILE SECTION.
      *-------------.

       FD  VDAT LABEL RECORD IS STANDARD.
       01  VSATZ.
           05 VSA                      PIC 9.
           05 VNR                      PIC 9(6).
           05 VRNR                     PIC 9(8).
           05 VRDAT                    PIC 9(6).
           05 VUMS                     PIC 9(7)V9(2).

       FD  VLISTE LABEL RECORD IS OMITTED.
       01  VLSATZ.
           05 FILLER                   PIC X(10).
           05 VLNR                     PIC 9(6).
           05 FILLER                   PIC X(5).
           05 DUMS                     PIC 9(9)V9(2).
           05 FILLER                   PIC XXX.
           05 VLSTERN                  PIC XXX.
           05 FILLER                   PIC X(94).

       WORKING-STORAGE SECTION.
      *------------------------.

       77  GUMS                        PIC 9(9)V9(2).

       PROCEDURE DIVISION.
      ********************.

       ANF.
           OPEN INPUT VDAT , OUTPUT VLISTE.
           MOVE ZEROS TO GUMS.
       LOOP.
           MOVE SPACES TO VLSATZ.
       LOOP1.
           READ VDAT AT END GO TO EOF.
           IF VSA NOT = 1 AND VUMS NOT > 20000 GO TO LOOP1.
           ADD VUMS TO GUMS.
           MOVE VNR TO VLNR.
           MOVE VUMS TO DUMS.
           WRITE VLSATZ.
           GO TO LOOP.
       EOF.
           MOVE GUMS TO DUMS.
           MOVE "***" TO VLSTERN.
           WRITE VLSATZ.
           CLOSE VDAT , VLISTE.
           STOP RUN.
