Columns . . . :                     Edit                         GOLFP/SRCFILE
 SEU==>_______________________________________________________          SPRCOD
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data *************************************
     A* CUSTOMER ORDER DETAIL FILE 
     A*.........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
     A                                      UNIQUE
     A          R CUSTORD                   TEXT('CUST ORDER DETAIL')
     A            CUSTNO         4A         TEXT('CUSTOMER NUMBER')
     A            ORDNO          4A         TEXT('ORDER NUMBER')
     A            ITEMNO         5A         TEXT('ITEM NUMBER')
     A            ORDDT           L         TEXT('ORDER DATE')
     A            QTYORD         4S 0       TEXT('QUANTITY ORDER')
     A            QTYSHP         4S 0       TEXT('QUANTITY SHIPPED')
     A            SHIPWT         4S 0       TEXT('SHIPPING WEIGHT')
     A            SHPDTE          L         TEXT('SHIPPING DATE')
     A            DELCOD         1A         TEXT('ACTION CODE')
     A*                                           O = OPEN
     A*                                           B = BACK ORDER
     A*                                           D = DELETED
     A          K CUSTNO
     A          K ORDNO
     A          K ITEMNO