
  TYPE
    jmt$object_attribute = record
      case kind: jmt$object_attribute_kinds of
      = jmc$type, jmc$list, jmc$range, jmc$editable_list =
        attribute_list: ^jmt$object_attribute_list,
      = jmc$number, jmc$dispatching_priority =
        number: integer,
      = jmc$boolean =
        bool: boolean,
      = jmc$name =
        name: ^ost$name,
      = jmc$file =
        file: ^fst$file_reference,
      = jmc$object =
        object_p: jmt$profile_object_reference,
        profile_object_index: 0 .. jmc$maximum_objects_on_profile,
      casend,
    recend;

  TYPE
    jmt$object_attribute_list = array [1 .. * ] of jmt$object_attribute;

*copyc fst$file_reference
*copyc jmc$maximum_objects_on_profile
*copyc jmc$profile_constants
*copyc jmt$object_attribute_index
*copyc jmt$object_attribute_kinds
*copyc jmt$profile_object
*copyc ost$name
