
  PROCEDURE [XREF] jmp$change_object
    (    object_kind: jmt$profile_object_kinds;
         objects: clt$data_value;
         new_attributes: jmt$object_attribute;
         how: jmt$ways_to_change_object;
     VAR status: ost$status);

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