
  TYPE
    pft$p_permit_array = ^pft$permit_array;

*copyc pft$permit_array
