
  TYPE
    pft$p_file_description = ^pft$file_description;

*copyc pft$file_description
