
  PROCEDURE [XREF] jmp$get_attributes
    (    the_kind: jmt$profile_object_kinds;
         parameter_description_table: ^clt$parameter_description_table;
         parameter_value_table: ^clt$parameter_value_table;
     VAR the_attributes: jmt$object_attribute;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$parameter_description_table
*copyc clt$parameter_value_table
*copyc jme$object_attribute_errors
*copyc jmt$object_attribute
*copyc jmt$profile_object_kinds
*copyc ost$status
?? POP ??
