  PROCEDURE [INLINE] syp$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
      osp$set_status_abnormal ('SY', monitor_status.condition, '', status);
    IFEND;

  PROCEND syp$set_status_from_mtr_status;
*copyc ost$status
*copyc osp$set_status_abnormal
*copyc syt$monitor_status
?? POP ??
