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