*copyc ost$status

  PROCEDURE [INLINE] nfp$set_abnormal_if_normal
    (    new_status: ost$status;
     VAR old_status: ost$status);

{}
    IF (old_status.normal) AND (NOT new_status.normal) THEN
      old_status := new_status;
    IFEND;
{}
  PROCEND nfp$set_abnormal_if_normal;
