
  PROCEDURE [XREF] jmp$move_object
    (    object_kind: jmt$profile_object_kinds;
         objects: clt$data_value;
         destination_name: string ( * );
     VAR status: ost$status);

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