
  TYPE
    jmt$object_definition = array [jmt$profile_object_kinds] of record
      declaration: jmt$profile_declaration,
      fetch_attribute_defaults: jmt$fetch_attribute_defaults,
      maximum_number_of_objects: 0 .. jmc$maximum_objects_on_profile,
      check_attributes: jmt$attribute_check_routine,
      sorted_parameters: ^jmt$object_parameter_list,
    recend;

  TYPE
    jmt$fetch_attribute_defaults = ^procedure
           (    profile: jmt$profile_data;
                the_object: jmt$profile_object;
            VAR defaults: jmt$object_attribute);

  TYPE
    jmt$attribute_check_routine = ^procedure
           (    the_object: jmt$profile_object;
            VAR status: ost$status);

*copyc jmc$maximum_objects_on_profile
*copyc jmt$object_attribute
*copyc jmt$object_parameter_list
*copyc jmt$profile_declaration
*copyc jmt$profile_object
*copyc jmt$profile_object_kinds
*copyc ost$status
