
  TYPE
    pft$permit_array = array [1 .. * ] of pft$permit_array_entry;

*copyc pft$permit_array_entry
