
  CONST
    pfc$subcatalog_path_index = pfc$master_catalog_path_index + 1;

*copyc pfc$master_catalog_path_index
