
  TYPE
    pft$p_permit = ^pft$physical_permit;

*copyc pft$physical_permit
