
  TYPE
    pft$collected_info_entry = record
      case entry_type: pft$collected_info_entry_types of
      = pfc$free =
        ,
      = pfc$used =
        file_selections: pft$file_selections,
        file_id: amt$file_identifier,
        p_directory_array: pft$p_directory_array,
        directory_array_index: pft$directory_array_index,
        info_type: pft$file_information,
        selection_position: pft$selection_position,
        case cycle_numbers_selected: boolean of
        = FALSE =
          ,
        = TRUE =
          p_body: pft$p_info,
          p_cycle_array: pft$p_cycle_array,
          cycle_array_index: pft$cycle_array_index,
        casend,
      casend,
    recend;

*copyc amt$file_identifier
*copyc pft$collected_info_entry_types
*copyc pft$cycle_array_index
*copyc pft$directory_array_index
*copyc pft$file_information
*copyc pft$file_selections
*copyc pft$p_cycle_array
*copyc pft$p_directory_array
*copyc pft$p_info
*copyc pft$selection_position
