
  TYPE
    jmt$object_parameter_list = array [1 .. * ] of
          jmt$object_parameter_element;

  TYPE
    jmt$object_parameter_element = record
      name: ost$name,
      attribute_index: jmt$object_attribute_index,
      abbreviation: boolean,
    recend;

