
  TYPE
    pft$catalog_object_locator = record
      case catalog_type: pft$catalog_types of
      = pfc$internal_catalog =
        object_list_locator: pft$object_list_locator,
      = pfc$external_catalog =
        fmd_locator: pft$fmd_locator,
        global_file_name: dmt$global_file_name,
      casend,
    recend;

*copyc dmt$global_file_name
*copyc pft$catalog_types
*copyc pft$fmd_locator
*copyc pft$object_list_locator
