
  TYPE
    pft$p_internal_catalog_name = ^pft$internal_catalog_name;

*copyc pft$internal_catalog_name
