
  TYPE
    jmt$mainframes_searched_list = array [1 .. jmc$maximum_mainframes] of
          pmt$binary_mainframe_id;

*copyc jmc$maximum_mainframes
*copyc pmt$binary_mainframe_id
