Поиск повторяющихся идентификаторов

Идеология платформы Гедымин требует уникальности идентификаторов объектов в пределах файла базы данных. Дублирующиеся идентификаторы являются следствием физического повреждения базы данных или логических сбоев в программном обеспечении.

Для поиска дубликатов создадим временную таблицу TEMP:

CREATE TABLE temp (
  id dintkey, 
  relid dintkey
)

Заполним ее:

EXECUTE BLOCK
AS
  DECLARE VARIABLE RN CHAR(31);
  DECLARE VARIABLE RID INTEGER;
BEGIN
  FOR
    SELECT DISTINCT
      r.rdb$relation_name, r.rdb$relation_id
    FROM
      rdb$relation_fields rf JOIN rdb$relations r
        ON r.rdb$relation_name = rf.rdb$relation_name
      LEFT JOIN
        (
          SELECT relc.rdb$relation_name
          FROM
            rdb$relation_constraints relc JOIN rdb$ref_constraints refc
              ON refc.rdb$constraint_name = relc.rdb$constraint_name
            JOIN rdb$index_segments iseg
              ON iseg.rdb$index_name = relc.rdb$index_name
                AND iseg.rdb$field_name = 'ID'
        ) constr ON constr.rdb$relation_name = r.rdb$relation_name
    WHERE
      rf.rdb$field_name = 'ID' AND r.rdb$relation_name <> 'TEMP'
        AND r.rdb$relation_name <> 'GD_RUID'
        AND r.rdb$view_source IS NULL
        AND constr.rdb$relation_name IS NULL
    INTO :RN, :RID
  DO BEGIN
    EXECUTE STATEMENT
      'INSERT INTO TEMP (id, relid) ' ||
      '  SELECT id, ' || :RID || ' FROM ' || :RN ||
      '  WHERE id > 32 '
      WITH AUTONOMOUS TRANSACTION;
  END
END

Теперь, получить список ИД, встречающихся более одного раза можно так:

SELECT
  t.id, COUNT(t.id), list(TRIM(r.rdb$relation_name))
FROM
  temp t JOIN rdb$relations r
    ON t.relid = r.rdb$relation_id
GROUP BY
  t.id
HAVING
  COUNT(t.id) > 1