  CONST
    dfc$maximum_partner_mainframes = 256;

  TYPE
    dft$partner_mainframe_list = array [1 .. * ] of
          dft$partner_mainframe_entry,

    dft$partner_mainframe_count = 0 .. dfc$maximum_partner_mainframes,

    dft$partner_mainframe_entry = record
      mainframe_id: pmt$binary_mainframe_id,
      mainframe_name: pmt$mainframe_id,
      partner_state: dft$server_state,
    recend;

*copyc dft$server_state
*copyc pmt$mainframe_id
*copyc pmt$binary_mainframe_id
