  PROCEDURE [inline] osp$set_status_from_mtr_status (monitor_status: syt$monitor_status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    status.normal := monitor_status.normal;
    IF NOT status.normal THEN
      status.condition := monitor_status.condition;
      status.text.size := 0;
    IFEND;

  PROCEND osp$set_status_from_mtr_status;
*copyc ost$status
*copyc syt$monitor_request_code
?? POP ??
