
  TYPE
    pft$p_catalog_file = ^pft$catalog_file;

*copyc pft$catalog_file
