
  TYPE
    jmt$profile_data = record
      definition_id: ost$name,
      objects: array [jmt$profile_object_kinds] of
            jmt$profile_object_reference,
      count: array [jmt$profile_object_kinds] of
            0 .. jmc$maximum_objects_on_profile,
    recend;

  CONST
    jmc$standard_profile = 'standard_profile';

*copyc jmc$maximum_objects_on_profile
*copyc jmt$profile_object

