Columns . . . :                     Edit                         GOLFP/SRCFILE
 SEU==>_______________________________________________________          SPRARF
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data *************************************
     A*ACCOUNTS RECEIVABLE FILE LAYOUT
     A*.........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
     A                                      UNIQUE
     A          R ACCREC                    TEXT('ACCOUNTS REC FILE')
     A
     A            CUSTNO         4          TEXT('CUSTOMER NUMBER')
     A            INVNO          4          TEXT('INVOICE NUMBER')
     A            ARCODE         1          TEXT('A/R CODE')
     A*                                           S = SALES
     A*                                           R = RECEIPTS
     A*                                           C = CREDIT
     A            TRDATE          L         TEXT('TRANSACTION DATE') 
     A*--- SALES DATA-------------------------------------------
     A            HWAMT          7S 2       TEXT('HARDWARE SALES')
     A            SGAMT          7S 2       TEXT('SP GOODS SALES')
     A            DLIVER         5S 2       TEXT('DELIVER EXPENSE')
     A*--- RECEIPTS DATA----------------------------------------
     A            PAYMT          7S 2       TEXT('PAYMENT AMOUNT')
     A            DISCT          6S 2       TEXT('DISCOUNT AMOUNT')
     A*--- CREDIT DATA------------------------------------------
     A            CRAMT          7S 2       TEXT('CREDIT AMOUNT')
     A            ITEM           5          TEXT('ITEM NO. CREDITED')
     A            QTY            4S 0       TEXT('QUANTITY CREDITED')
     A            CRCODE         1          TEXT('CREDIT STATUS')
     A*                                      1- RETURNED W/FULL REFUND
     A*                                      2- RETURNED & REPLACED
     A*                                      3- DEFECTIVE W/FULL REFUND
     A*                                      4- DEFECTIVE & REPLACED
     A*                                      5- DEFECTIVE W/PARTIAL REFUND
     A            DLETE          1          TEXT('DELETE CODE')
     A*                                      D= DELETE
     A*
     A          K CUSTNO
     A          K INVNO
     A          K ARCODE
     A          K TRDATE