
  FUNCTION [INLINE] osp$convert_to_status_severity
    (    severity: ost$message_module_severity): ost$status_severity;

?? PUSH (LISTEXT := ON) ??

    CASE severity OF
    = osc$mm_informative_severity =
      osp$convert_to_status_severity := osc$informative_status;
    = osc$mm_warning_severity =
      osp$convert_to_status_severity := osc$warning_status;
    = osc$mm_error_severity =
      osp$convert_to_status_severity := osc$error_status;
    = osc$mm_fatal_severity =
      osp$convert_to_status_severity := osc$fatal_status;
    = osc$mm_catastrophic_severity =
      osp$convert_to_status_severity := osc$catastrophic_status;
    = osc$mm_non_standard_severity =
      osp$convert_to_status_severity := osc$informative_status;
    = osc$mm_dependent_severity =
      osp$convert_to_status_severity := osc$informative_status;
    ELSE
      ;
    CASEND;

  FUNCEND osp$convert_to_status_severity;

*copyc ost$message_module_severity
*copyc ost$status_severity
?? POP ??
