
  TYPE
    jmt$profile_object = record
      name: ost$name,
      definition_id: ost$name,
      behaviour_id: ost$name,
      kind: jmt$profile_object_kinds,
      permanent: boolean,
      changed: boolean,
      references: 0 .. jmc$maximum_objects_on_profile,
      profile_index: 0 .. jmc$maximum_objects_on_profile,
      index: 0 .. jmc$maximum_objects_on_profile,
      attributes: jmt$object_attribute,
      next_object: jmt$profile_object_reference,
    recend,

    jmt$profile_object_reference = ^jmt$profile_object;

  CONST
    jmc$standard_behaviour = 'standard_behaviour';

*copyc jmc$maximum_objects_on_profile
*copyc jmt$profile_object_kinds
*copyc jmt$object_attribute
*copyc ost$name
