PROCEDURE  dum$display_queue_interface_tab, display_queue_interface_table, disqit (
  output, o: file = $output
  status)

 " This procedure displays the file server queue interface table'
 " This proc uses RJTs new dump analyzer
 " This proc assumes that dfm$monitor_process has been added.

   set_file_attributes output fc=legible pf=continuous
  out = output.$eoi
  current = $default_module
  chadm dfm$monitor_process
 IF $nil_pva($pv(dfv$p_queue_interface_directory))
   putl ' Not using the server '  o=out
 ELSE
   FOR i = $pv(LOWERBOUND(dfv$p_queue_interface_directory^)) TO ..
           $pv(UPPERBOUND(dfv$p_queue_interface_directory^)) DO
      putl ' -----  Queue interface table entry  '//$strrep(i)//' ---- '  o=out
      address = $pv(^dfv$p_queue_interface_directory^[?i])
      dispv ?address.dft$q_interface_directory_entry o=out
      IF NOT $nil_pva($pv(?address.dft$q_interface_directory_entry.send_pp.p_element_reservations))  THEN
        dispv ?address.dft$q_interface_directory_entry.send_pp.p_element_reservations^  o=out
      IFEND
      IF NOT $nil_pva($pv(?address.dft$q_interface_directory_entry.receive_pp.p_element_reservations))  THEN
        dispv ?address.dft$q_interface_directory_entry.receive_pp.p_element_reservations^  o=out
      IFEND
   FOREND
 IFEND
 chadm current
PROCEND dum$display_queue_interface_tab
