
  TYPE
    pft$p_catalog_heap = ^pft$catalog_heap;

*copyc pft$catalog_heap
