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

?? PUSH (LISTEXT := ON) ??

    IF (NOT osp$file_access_condition (status))
{ } AND (status.condition <> dfe$server_has_terminated)
{ } AND (status.condition <> dfe$server_request_terminated)
{ } AND (status.condition <> mme$segment_table_is_full) THEN
      pfp$report_system_error (status);
    IFEND;
  PROCEND pfp$report_unexpected_status;

*copyc dfe$error_condition_codes
*copyc osp$file_access_condition
*copyc mme$condition_codes
*copyc pfp$report_system_error
?? POP ??
