
  TYPE
    pft$selection_record = record
      case kind: pft$file_information of
      = pfc$catalog_names =
        catalog_name: pft$name,
      = pfc$file_names =
        file_name: pft$name,
      = pfc$cycle_numbers =
        cycle_number: fst$cycle_number,
      casend,
    recend;

*copyc fst$cycle_number
*copyc pft$file_information
*copyc pft$name
