A                                      UNIQUE
      A          R ITMRCD                    TEXT('ITEM RECORD')
      A            ITMCOD         5          TEXT('ITEM CODE')
      A            ITMDES        50          TEXT('DESCRIPTION')
      A            ITMPRC         7S 2       TEXT('UNIT PRICE')
      A            ITMQTY         7S 0       TEXT('QUANTITY')
      A          K ITMCOD