
  PROCEDURE [XREF] pmp$change_term_error_level
    (    new_termination_error_level: ost$status_severity;
     VAR old_termination_error_level: ost$status_severity;
     VAR status: ost$status);

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