
  TYPE
    pft$selection_identifier = record
      ordinal: pft$selection_id_ordinal,
      sequence: pft$selection_id_sequence,
    recend;

*copyc pft$selection_id_ordinal
*copyc pft$selection_id_sequence
