
  TYPE
    pft$auditable_cycles = array [1 .. * ] of pft$auditable_cycle;

*copyc pft$auditable_cycle
