
  PROCEDURE [INLINE] pfp$process_unexpected_status (VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    IF NOT status.normal THEN
      pfp$report_unexpected_status (status);
    IFEND;
  PROCEND pfp$process_unexpected_status;

*copyc ost$status
*copyc pfp$report_unexpected_status
?? POP ??
