
  PROCEDURE [XREF] jmp$get_object
    (    the_name: string ( * );
         the_kind: jmt$profile_object_kinds;
     VAR the_object: jmt$profile_object_reference;
     VAR previous_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 ??
