
  TYPE
    pft$internal_cycle_path = record
      cycle_name: pft$internal_name,
      path: pft$internal_path,
    recend;

*copyc pft$internal_name
*copyc pft$internal_path
