Assign_3

PROCEDURE DIVISION.
       0000-MAIN.

           OPEN INPUT  STOCK-PRICE.

           READ STOCK-PRICE
             AT END MOVE 'Y' TO EOF-FLAG1
           END-READ.

           PERFORM 0100-GET-SHAREPR
             UNTIL EOF-FLAG1 = 'Y'.

           CLOSE STOCK-PRICE.

           OPEN OUTPUT PRINT-REPORT.

           OPEN INPUT  DAILY-SALES
                OUTPUT SALES-REPORT.

           READ DAILY-SALES
             AT END MOVE 'Y' TO EOF-FLAG2
           END-READ.

           PERFORM 0200-PROCESS-RECORD
             UNTIL EOF-FLAG2 = 'Y'.

           CLOSE DAILY-SALES
                 SALES-REPORT.

           OPEN INPUT  SALES-REPORT.

           READ SALES-REPORT
             AT END MOVE 'Y' TO EOF-FLAG3
           END-READ.

           PERFORM 0300-PROCESS-RECORD2
             UNTIL EOF-FLAG3 = 'Y'.

           CLOSE SALES-REPORT
                 PRINT-REPORT.

           STOP RUN.

       0000-EXIT. EXIT.
       EJECT

       0100-GET-SHAREPR.

           MOVE  IN-SHARE-PRICE TO SHARE-PRICE.

           READ STOCK-PRICE
             AT END MOVE 'Y' TO EOF-FLAG1
           END-READ.

           MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-FIELDS.

           MOVE CURRENT-YEAR TO OUT-YYYY.

           MOVE CURRENT-MONTH TO OUT-MM.

           MOVE CURRENT-DAY TO OUT-DD.

           MOVE CURRENT-HOUR TO OUT-HH.

           MOVE CURRENT-MINUTE TO OUT-MN.

           MOVE CURRENT-SECOND TO OUT-SS.

       0100-EXIT. EXIT.


       0200-PROCESS-RECORD.

           IF LINE-COUNT > 15
              PERFORM 0400-NEW-PAGE.

           MOVE IN-BROKER-CITY TO OUT-BROKER-CITY.

           MOVE IN-BROKER-NAME TO OUT-BROKER-NAME.

           MOVE IN-DEPOSIT-AMOUNT TO OUT-DEPOSIT.

           COMPUTE SHARES-SOLD = IN-DEPOSIT-AMOUNT / SHARE-PRICE.

           IF SHARES-SOLD > 20000
              MOVE IN-BROKER-NAME TO TEMP-BROKER
              MOVE SHARES-SOLD TO TEMP-SHARES-SOLD
              COMPUTE RECORD-COUNT-2 = RECORD-COUNT-2 + 1
              WRITE TEMP-STORAGE
              END-IF.

           IF COMMISSION-FLAG = 1
              COMPUTE COMMISSION ROUNDED =
              IN-DEPOSIT-AMOUNT * (5 / 800)
           ELSE
              COMPUTE COMMISSION ROUNDED =
              IN-DEPOSIT-AMOUNT * (7 / 800)
           END-IF.

           WRITE PRINT-RECORD FROM PRINT-LINE-1 AFTER 2.

           COMPUTE LINE-COUNT = LINE-COUNT + 1.

           COMPUTE RECORD-COUNT = RECORD-COUNT + 1.

           READ DAILY-SALES
             AT END MOVE 'Y' TO EOF-FLAG2
           END-READ.

       0200-EXIT. EXIT.
       EJECT

       0300-PROCESS-RECORD2.

           IF LINE-COUNT-2 > 15
              PERFORM 0500-NEW-PAGE2.

           MOVE TEMP-BROKER TO OUT-BROKER-NAME2.

           MOVE TEMP-SHARES-SOLD TO SHARES-SOLD2.

           WRITE PRINT-RECORD FROM PRINT-LINE-2 AFTER 2.

           COMPUTE LINE-COUNT-2 = LINE-COUNT-2 + 1.

           READ SALES-REPORT
             AT END MOVE 'Y' TO EOF-FLAG3
           END-READ.

       0300-EXIT. EXIT.

       0400-NEW-PAGE.

           COMPUTE PAGE-COUNT = PAGE-COUNT + 1.

           MOVE PAGE-COUNT TO PAGE-NUM.

           WRITE PRINT-RECORD FROM HEADER-L1 AFTER PAGE.

           WRITE PRINT-RECORD FROM HEADER-L2-R1 AFTER 1.

           WRITE PRINT-RECORD FROM HEADER-L3-R1 AFTER 1.

           WRITE PRINT-RECORD FROM HEAD-DIVIDE AFTER 1.

           MOVE 1 TO LINE-COUNT.

       0400-EXIT. EXIT.

       0500-NEW-PAGE2.

           COMPUTE PAGE-COUNT-2 = PAGE-COUNT-2 + 1.

           MOVE PAGE-COUNT-2 TO PAGE-NUM.

           WRITE PRINT-RECORD FROM HEADER-L1 AFTER PAGE.

           WRITE PRINT-RECORD FROM HEADER-L2-R2 AFTER 1.

           WRITE PRINT-RECORD FROM HEADER-L3-R2 AFTER 1.

           WRITE PRINT-RECORD FROM HEAD-DIVIDE AFTER 1.

           MOVE 1 TO LINE-COUNT-2.

       0500-EXIT. EXIT.