
  TYPE
    pft$permit_index = 1 .. pfc$maximum_permit_count;

*copyc pfc$maximum_permit_count
