
  TYPE
    pft$p_cycle_list = ^pft$cycle_list;

*copyc pft$cycle_list
