
{ This procedure sets a particular queue's partner as "timed-out" and returns a status indicating the
{ corresponding server mainframe is not active.

  PROCEDURE [INLINE] dfp$set_queue_timed_out
    (    p_queue_interface_table: dft$p_queue_interface_table;
         queue_index: dft$queue_index;
     VAR status: ost$status);

    VAR
      p_cpu_queue_header: ^dft$cpu_queue_header,
      server_mainframe: pmt$mainframe_id;

    p_cpu_queue_header := ^p_queue_interface_table^.queue_directory.
          cpu_queue_pva_directory [queue_index].p_cpu_queue^.queue_header;
    server_mainframe := p_cpu_queue_header^.destination_mainframe_name;
    p_cpu_queue_header^.partner_status.timeout_partner := TRUE;
    osp$set_status_abnormal (dfc$file_server_id, dfe$task_services_timeout, server_mainframe, status);

  PROCEND dfp$set_queue_timed_out;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dfe$error_condition_codes
*copyc dft$cpu_queue
*copyc osp$set_status_abnormal
*copyc ost$status
*copyc pmt$mainframe_id
?? POP ??
