
  TYPE
    dft$defined_server_translation = array
          [1 .. dfc$max_number_of_mainframes] of pmt$binary_mainframe_id;


*copyc dfc$esm_allocation_constants
*copyc pmt$binary_mainframe_id

