
  PROCEDURE [XREF] pup$set_object_abnormal
    (   p_object: ^put$selected_object;
        condition: ost$status_condition;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc put$selected_object
*copyc ost$status
?? POP ??
