
  TYPE
    pft$catalog_heap = ost$heap;

*copyc ost$heap
