Columns . . . :                     Edit                         GOLFP/SRCFILE
 SEU==>_______________________________________________________          SPRINV
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data *************************************
     A* INVENTORY MASTER FILE LAYOUT
     A*.........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
     A                                      UNIQUE
     A          R INVMAST                   TEXT('INVENTORY MASTER FILE LAYOUT')
     A
     A            ITEMNO         5          TEXT('ITEM NUMBER')
     A            DESC          15          TEXT('ITEM DESCRIPTION')
     A            PRICE          5S 2       TEXT('SELLING PRICE')
     A            AVGCST         5S 2       TEXT('AVERAGE UNIT COST')
     A            LOCATE         2          TEXT('ITEM LOCATION')
     A            ONHAND         4S 0       TEXT('QUANTITY ON HAND')
     A            ORDERD         4S 0       TEXT('QUANTITY ON ORDER')
     A            BO             4S 0       TEXT('QUANTITY BACK ORDERED')
     A            RLEVEL         4S 0       TEXT('REORDER LEVEL')
     A            MAX            4S 0       TEXT('MAXIMUM LEVEL')
     A            SOLD           4S 0       TEXT('QUANTITY SOLD/MO.')
     A            PROFIT         5S 2       TEXT('GROSS PROFIT')
     A            VENDOR         4          TEXT('VENDOR NUMBER')
     A            VCOST          5S 2       TEXT('VENDOR UNIT COST')
     A            COMIT          4S 0       TEXT('NUMBER COMMITTED')
     A            ICODE          1          TEXT('ITEM STATUS CODE')
     A*                                           A = ACTIVE
     A*                                           U = UPDATED
     A*                                           D = DISCONTINUED
     A*                                           R = RECOMMEND
     A            DLETE          1          TEXT('DELETION CODE')
     A*                                           D = DELETE
     A          K ITEMNO