
  TYPE
    pft$attached_permanent_file_id = record
      case family_location: pft$family_location of
      = pfc$local_mainframe =
        attached_pf_table_index: pft$attached_pf_table_index,
      = pfc$server_mainframe =
        server_attached_pf_table_index: pft$attached_pf_table_index,
        served_family_table_index: dft$served_family_table_index,
        server_lifetime: dft$lifetime,
      casend,
    recend;

*copyc dft$lifetime
*copyc dft$served_family_table_index
*copyc pft$attached_pf_table_index
*copyc pft$family_location

