
  TYPE
    pft$collected_info_array = array [1 .. pfc$max_selection_id_ordinal] of
          pft$collected_info_entry;

*copyc pfc$max_selection_id_ordinal
*copyc pft$collected_info_entry
