
  TYPE
    pft$permit_list = array [1 .. * ] of pft$physical_permit;

*copyc pft$physical_permit
*copyc pfc$permit_contraction_count
