Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________          SPRPOF 
 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++ 
        *************** Beginning of data ************************************* 

     A* PURCHASE ORDER FILE
     A*.........T.NAME++++++RLEN++TDPB......FUNCTIONS++++++++++++++++++
     A                                      UNIQUE
     A          R PURORD                    TEXT('PURCHASE ORDER FILE')
     A            PNUM           5S 0       TEXT('PURCHASE NUMBER')
     A            VNDNBR         4A         TEXT('VENDOR NUMBER')
     A            ITEMNO         5A         TEXT('ITEM NUMBER')
     A            ORDERD         4S 0       TEXT('QUANTITY ON ORDER')
     A            DTE            8A         TEXT('PURCHASE DATE')
     A          K PNUM
     A          K ITEMNO