
  PROCEDURE [XREF] jmp$add_object
    (    the_kind: jmt$profile_object_kinds;
         the_name: string ( * );
         the_attributes: jmt$object_attribute;
     VAR the_object: jmt$profile_object_reference;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jme$profile_object_errors
*copyc jmt$profile_object
*copyc ost$status
?? POP ??
