
  PROCEDURE [XREF] jmp$set_default_attributes
    (    the_kind: jmt$profile_object_kinds;
         default_value: clt$parameter_value;
     VAR the_attributes: jmt$object_attribute;
     VAR status: ost$status);

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