
  TYPE
    jmt$profile_declaration = record
      name: ost$name,
      abbreviation: string (5),
      group: jmt$profile_group,
      case kind: jmt$object_attribute_kinds of
      = jmc$type, jmc$list, jmc$range, jmc$editable_list =
        count: jmt$object_attribute_index,
        declarations: ^jmt$profile_declaration_list,
      = jmc$number, jmc$dispatching_priority =
        minimum: integer,
        maximum: integer,
      = jmc$object =
        object_kind: jmt$profile_object_kinds,
      casend,
    recend;

  TYPE
    jmt$profile_declaration_list = array [1 .. * ] of ^jmt$profile_declaration;

*copyc jmt$object_attribute_index
*copyc jmt$object_attribute_kinds
*copyc jmt$profile_group
*copyc jmt$profile_object_kinds
*copyc ost$name
