
  TYPE
    pft$physical_cycle = record
      checksum: pft$checksum,
      cycle_entry: pft$cycle_entry,
    recend;

*copyc pft$checksum
*copyc pft$cycle_entry
