PROCEDURE  dum$display_job_server_table, display_job_server_table, disjst (
  output, o: file = $output
  status)

 " This procedure displays all of the servers that the current job is using.
 " This proc uses RJTs new dump analyzer.
 " This proc assumes that dfm$job_server_manager has been added.

  set_file_attributes f=output fc=legible pf=continuous
  out = output.$eoi
  current = $default_module
  change_default_module m=dfm$job_server_manager

  job_server_count = $program_value(dfv$job_server_count)
  IF job_server_count = 0 THEN
    put_line l=' Not using the server ' o=out
  ELSE
    FOR server = $program_value(lowerbound(dfv$p_job_server_table^)) TO job_server_count DO
      put_line l=' -----  Server '//$strrep(server)//' ---- ' o=out
      dispv dfv$p_job_server_table^[?server] o=out
    FOREND
  IFEND
  change_default_module m=current

PROCEND dum$display_job_server_table
