identification division.
       program-id. test.
       environment division.
       configuration section.
       input-output section.
       file-control.
       select in-file assign to disk
       organization is line sequential.

       select out-file assign to disk
       organization is line sequential.

       data division.

       file section.

       fd in-file
       label records are standard
       value of file-id is"ex12in.txt".
       01 in-rec.
       03 cust-no-in pic 999.
       03 amt1-in pic 999.
       03 amt2-in pic 999.
       03 amt3-in pic 999.

       fd out-file
       label records are standard
       value of file-id is"ex12out.txt".
       01 out-rec pic x(80).

       working-storage section.

       77 eof pic x value'n'.

       01 h0.
       03 F PIC X(25) VALUE ALL SPACES.
       03 f pic x(15) value"CUSTOMER RECORD".
       01 h1.
       03 f pic x(80) value all "~".
       01 h2.
       03 f pic x(5) value spaces.
       03 f pic x(11) value"CUSTOMER-NO".
       03 f pic x(5) value spaces.
       03 f pic x(9) value"TOTAL-AMT".
       01 h3.
       03 f pic x(7) value spaces.
       03 s1 pic 999.
       03 f pic x(11) value spaces.
       03 s2 pic z(6).
       77 total pic 9(6).
       procedure division.
       main-para.
       open input in-file.
       open output out-file.

       write out-rec from h1.
       write out-rec from h0.
       write out-rec from h1.
       write out-rec from h2.
       write out-rec from h1.

       read in-file at end move 'y' to eof.
       perform p-para until eof = 'y'.

       close in-file out-file.
       stop run.
       p-para.
       move cust-no-in to s1.
       compute total =  amt1-in + amt2-in + amt3-in.
       move total to s2.
       write out-rec from h3.
       read in-file at end move 'y' to eof.