PROCEDURE  dum$display_esm_definition_tab, display_esm_definition_table, disesmdt, dise (
  output, o: file = $output
  status)

 " This procedure displays the file server esm definition 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($mem($sa(dfv$p_esm_definition_table)))
   putl ' NO esm defined  '  o=out
 ELSE
   p_esm_definition = $mem($sa(dfv$p_esm_definition_table))
   esm_definition = 1
   REPEAT
     putl ' ============  Esm definition === '//$strrep(esm_definition)
     dispv ?p_esm_definition.dft$esm_definition_table_entry  o=out
     FOR side_door_port = 1 to 2 DO
       IF NOT $nil_pva($pv(..
?p_esm_definition.dft$esm_definition_table_entry.p_side_door_ports[?side_door_port])) THEN
         putl ' --  Side door port '//$strrep(side_door_port) o=out
         dispv ?p_esm_definition.dft$esm_definition_table_entry.p_side_door_ports[?side_door_port]^ o=out
       IFEND
    FOREND
    IF NOT $nil_pva($pv(?p_esm_definition.dft$esm_definition_table_entry.p_element_reservation)) THEN
      dispv ?p_esm_definition.dft$esm_definition_table_entry.p_element_reservation^ o=out
    IFEND
    p_esm_definition = $pv(?p_esm_definition.dft$esm_definition_table_entry.p_next_table_entry)
    esm_definition = esm_definition + 1
   UNTIL $nil_pva(p_esm_definition)
 IFEND
 chadm current
PROCEND dum$display_esm_definition_tab
