A          R CUSREC
     A            CUSNUM         6S 0       TEXT('Customer number field')
     A            LSTNAM         8          TEXT('Last name field')
     A            INIT           3          TEXT('First and middle +
     A                                            initial field')
     A            STREET        13          TEXT('Street address field')
     A            CITY           6          TEXT('City field')
     A            STATE          2          TEXT('State abbreviation field')
     A            ZIPCOD         5S 0       TEXT('Zip code field')
     A            CDTLMT         4S 0       TEXT('Credit limit field')
     A            CHGCOD         1S 0       TEXT('Charge code field')
     A            BALDUE         6S 2       TEXT('Balance due field')
     A            CDTDUE         6S 2       TEXT('Credit due field')