{   This procedure determines if the attached permanent file is on the
{ requested mainframe.

  PROCEDURE [INLINE] pfp$check_apfid_location
    (    requested_mainframe_id: pmt$binary_mainframe_id;
         apfid: pft$attached_permanent_file_id;
     VAR correct_mainframe: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      apfid_mainframe_id: pmt$binary_mainframe_id,
      family: ost$family_name,
      index_valid: boolean,
      p_queue_interface_table: dft$p_queue_interface_table,
      queue_index: dft$queue_index;

    IF apfid.family_location = pfc$local_mainframe THEN
      pmp$get_pseudo_mainframe_id (apfid_mainframe_id);
      correct_mainframe := (apfid_mainframe_id = requested_mainframe_id);
    ELSE { Server file
      dfp$fetch_served_family_info (apfid.served_family_table_index, family,
            apfid_mainframe_id, p_queue_interface_table, queue_index,
            index_valid);
      correct_mainframe := index_valid AND
            (apfid_mainframe_id = requested_mainframe_id);

    IFEND;

  PROCEND pfp$check_apfid_location;

*copyc pft$attached_permanent_file_id
*copyc pmt$binary_mainframe_id
*copyc dfp$fetch_served_family_info
*copyc pmp$get_pseudo_mainframe_id
?? POP ??
