
  TYPE
    pft$p_permit_list = ^pft$permit_list;

*copyc pft$permit_list
