0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  VENTAS.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT ARCHIVO-IN ASSIGN TO UT-S-SYSIN.
  0055     SELECT PRINT-FILE ASSIGN TO UT-S-SYSPRINT.
  0060 DATA DIVISION.
  0065 FILE SECTION.
  0070 FD  ARCHIVO-IN.
           RECORD CONTAINS 12 CHARACTERS.
  0075 01  VENTAS-RECORD.
           05 NUMERO-VENDEDOR       PIC 9(5).
           05 VENTA                 PIC 9(5)V99.
  0080 FD  PRINT-FILE
           RECORD CONTAINS 132 CHARACTERS.
  0085 01  PRINT-LINE               PIC X(132).
  0090 WORKING-STORAGE SECTION.
  0095 01  ARE-THERE-MORE-RECORDS  PICTURE XXX VALUE 'YES'.
  0100 01  CALCULOS.
           05 COM                   PIC 99999V99 VALUE 0.
           05 TOTAL                 PIC 999999V99 VALUE 0.
  0105 01  HEADS-1.
           05 FILLER                PIC X(54) VALUE SPACES.
           05 FILLER                PIC X(21) VALUE 'INFORME DE VENDEDORES'.
           05 FILLER                PIC X(57) VALUE SPACES.
  0110 01  HEADS-2.
           05 FILLER                PIC X().
           05 FILLER                PIC X(15) VALUE 'NUMERO VENDEDOR'.
           05 FILLER                PIC X().
           05 FILLER                PIC X(5) VALUE 'VENTA'.
           05 FILLER                PIC X().
           05 FILLER                PIC X(8) VALUE 'COMISION'.
           05 FILLER                PIC X().
  0115 01  DETAIL-LINE.
           05 FILLER                PIC X(26).
           05 NUMERO-VENDEDOR-O     PIC 9(5).
           05 FILLER                PIC X(26).
           05 VENTA-O               PIC $99,999.99.
           05 FILLER                PIC X(26).
           05 COM-O                 PIC $99,999.99.
           05 FILLER                PIC X(29).
  0120 01  TOTAL-LINE.
           05 FILLER                PIC X(84).
           05 FILLER                PIC X(5) VALUE 'TOTAL'.
           05 FILLER                PIC X(3).
           05 TOTAL-O               PIC $999,999.99.
           05 FILLER                PIC X(29).
  0125 PROCEDURE DIVISION.
  0130 MAIN-MODULE.
  0135     OPEN INPUT ARCHIVO-IN OUTPUT PRINT-FILE.
  0140     PERFORM WRITE-HEADS.
  0145     READ ARCHIVO-IN AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
  0150     PERFORM WRITE-DETAIL UNTIL ARE-THERE-MORE-RECORDS = 'NO '.
  0155     PERFORM WRITE-TOTALS.
  0160     CLOSE ARCHIVO-IN PRINT-FILE.
  0170     STOP RUN.
  0175 WRITE-HEADS.
           MOVE HEADS-1 TO PRINT-LINE.
           WRITE PRINT-LINE AFTER 1.
           MOVE HEADS-2 TO PRINT-LINE.
           WRITE PRINT-LINE AFTER 1.
           MOVE SPACES TO PRINT-LINE.
           WRITE PRINT-LINE.
  0180 WRITE-DETAILS.
           IF VENTA > 5000
              COMPUTE COM= VENTA * .15.
           END-IF.
           IF VENTA > 3000
              COMPUTE COM= VENTA * .10.
           END-IF.
           IF VENTA > 1000
              COMPUTE COM= VENTA * .05.
           ELSE
              COMPUTE COM= VENTA * .03.
           END-IF.
           COMPUTE TOTAL= TOTAL + COM.
           MOVE NUMERO-VENDEDOR TO NUMERO-VENDEDOR-O.
           MOVE VENTA TO VENTA-O.
           MOVE COM TO COM-O.
           MOVE DETAIL-LINE TO PRINT-LINE.
           WRITE PRINT-LINE AFTER 1.
           READ ARCHIVO-IN AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
  0185 WRITE-TOTALS.
           MOVE TOTAL TO TOTAL-O.
           MOVE TOTAL-LINE TO PRINT-LINE.
           WRITE PRINT-LINE AFTER 2 LINES.