
  TYPE
    jmt$modify_display_attributes = procedure
           (    the_object: jmt$profile_object;
            VAR attributes: jmt$object_attribute;
            VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$profile_object
*copyc jmt$object_attribute
*copyc ost$status
?? POP ??
