
  CONST
    pfc$subcatalog_name_index = pfc$master_catalog_name_index + 1;

*copyc pfc$master_catalog_name_index
