
  TYPE
    pft$cycle_array_entry = record
      cycle_number: fst$cycle_number,
      cycle_statistics: pft$cycle_statistics,
      expiration_date_time: ost$date_time,
    recend;

*copyc fst$cycle_number
*copyc ost$date_time
*copyc pft$cycle_statistics
