
  TYPE
    pft$cycle_directory_array_entry = record
      internal_name: ost$binary_unique_name,
      cycle_number: fst$cycle_number,
      info_offset: pft$info_offset,
    recend;

*copyc fst$cycle_number
*copyc ost$binary_unique_name
*copyc pft$info_offset
