ass10-v

       program-id. Program1.

       environment division.
       input-output section.
        select inputs assign to "C:\temp\sales-trans.txt"
               organization is line sequential.
        select outputs assign to "C:\temp\sales-report.txt"
               organization is line sequential.
       data division.
       fd inputs.
       01 sales-trans.
           05 salesperson-no pic 99.
           05 salesperson-name pic x(20).
           05 amt-sale pic 999v99.
       fd outputs.
       01 sales-report.
           05 pic x(13).
           05 salesperson-no-out pic 99.
           05 pic x(12).
           05 salesperson-name-out pic x(20).
           05 pic x(5).
           05 amt-sale-out pic $zz,zzz.99.
           05 pic x(14).
       working-storage section.
       01 Date-In.
           05 year-In pic 9999.
           05 month-In pic 99.
           05 day-In pic 99.
       01 MyDate.
           05 currentDay pic 99.
           05 pic x value '/'.
           05 currentMonth pic 99.
           05 pic x value '/'.
           05 currentYear pic 9999.
       01 header1.
           05 pic x(20) value spaces.
           05 pic x(32) value "TOTAL SALES FOR EACH SALESPERSON".
           05 pic x(4) value spaces.
           05 date-out pic 99/99/9999.
       01 header2.
           05 pic x(8) value spaces.
           05 pic x(15) value "SALESPERSON NO.".
           05 pic x(4) value spaces.
           05 pic x(16) value "SALESPERSON NAME".
           05 pic x(9) value spaces.
           05 pic x(11) value "TOTAL SALES".
       01 more-records pic xxx value 'yes'.
       01 salesperson.
           05 s-name occurs 20 times pic x(20).
           05 a-sale occurs 20 times pic 9999999.
       01 current-s-num pic 99.
       01 x pic 99.
       01 footer1.
           05 pic x(42).
           05 pic x(19) value "TOTAL COMPANY SALES".
           05 pic x(3) value spaces.
           05 total-sale pic $$,$$$,$$$.99.
       01 total-sale-in pic 999999v99.
       procedure division.
       100-main.
           open    input inputs
                   output outputs
           perform 200-date
           perform until more-records = 'no'
               read inputs
                   at end
                       move 'no' to more-records
                   not at end
                       perform 300-fillArray
               end-read
           end-perform
           perform 400-header
           perform 500-print
           close inputs
                 outputs
           stop run.
       200-date.
           move function current-date to Date-In
           move year-In to currentYear
           move month-In to currentMonth
           move day-In to currentDay
           move MyDate to Date-Out.
       300-fillArray.
           move salesperson-name to s-name(salesperson-no)
           add amt-sale to a-sale(salesperson-no).
       400-header.
           move header1 to sales-report
           write sales-report
           move spaces to sales-report
           move header2 to sales-report
           write sales-report
               after advancing 2 lines.
       500-print.
           perform varying x from  1 by 1 until x > 20
               move spaces to sales-report
               move x to salesperson-no-out
               move s-name(x) to salesperson-name-out
               move a-sale(x) to amt-sale-out
               write sales-report
               add a-sale(x) to total-sale-in
           end-perform
           move total-sale-in to total-sale
           move space to sales-report
           move footer1 to sales-report
           write sales-report
               after advancing 2 lines.