Columns . . . :                     Edit                         GOLFP/SRCFILE
 SEU==>_______________________________________________________          SPRCMF
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data *************************************
     A* CUSTOMER FILE LAYOUT
     A*.........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
     A                                      UNIQUE
     A          R CUSTREC                   TEXT('CUSTOMER FILE LAYOUT')
     A
     A            CUSTNO         4          TEXT('CUSTOMER NUMBER')
     A            NAME          20          TEXT('NAME')
     A            STREET        20          TEXT('STREET')
     A            CTST          20          TEXT('CITY-STATE')
     A            ZIP            5          TEXT('ZIP')
     A            SNAME         20          TEXT('SHIP NAME')
     A            SSTRET        20          TEXT('SHIP STREET')
     A            SCTST         20          TEXT('SHIP CITY-STATE')
     A            SZIP           5          TEXT('SHIP ZIP')
     A            CREDIT         1          TEXT('CREDIT CODE')
     A            DCOST          4S 3       TEXT('DELIVERY COST')
     A            DCODE          1          TEXT('DELETE CODE')
     A*                                           A = ADDED
     A*                                           U = UPDATED
     A*                                           D = DELETE
     A*                                           BLANK = ACTIVE
     A          K CUSTNO