
  PROCEDURE [INLINE] dfp$report_driver_error_alert
    (    p_driver_queue_entry: ^dft$driver_queue_entry;
     VAR status: ost$status);

    osp$set_status_abnormal (dfc$file_server_id, dfe$driver_error_occurred, '',
          status);
    osp$append_status_integer (osc$status_parameter_delimiter,
          p_driver_queue_entry^.error_condition, 16, TRUE, status);
    osp$recoverable_system_error (' FILE SERVER DRIVER ERROR', ^status);

  PROCEND dfp$report_driver_error_alert;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dfe$error_condition_codes
*copyc osp$append_status_integer
*copyc osp$recoverable_system_error
*copyc osp$set_status_abnormal
?? POP ??

