Как оптимизировать запрос на удаление SQL с подзапросом для Firebird?

Firebird 3 добавил опцию DELETE в предложение MERGE. Впервые он упоминается в примечаниях к выпуску. Теперь он правильно задокументирован в Справочник по SQL для Firebird 3.

Моделируя на примерах, запрос на очистку будет выглядеть так:

merge into HISTORY HDel
using ( select ID, SOURCE, ROW_NUMBER() over
                (partition by SOURCE order by ID desc) as NUM 
        from HISTORY ) HVal
   on (HVal.NUM > 100) and (HVal.ID = HDel.ID) and (HVal.Source = HDel.Source)
WHEN MATCHED THEN DELETE

В вашей конкретной базе данных (HVal.Source = HDel.Source) фильтрация кажется излишней, но я все же решил добавить ее, чтобы сделать запрос как можно более общим для будущих читателей. Береженого Бог бережет :-)

В Firebird 2.x такой возможности не было, а при отсутствии в FB3 функций MERGE/DELETE и оконных функций можно вернуться к явному императивному программированию и писать старые добрые циклы. Потребуется написать и выполнить небольшую программу PSQL (либо постоянную именованную хранимую процедуру, либо специальный оператор EXECUTE BLOCK) с явным циклом по SOURCE значениям.

Что-то вроде (я не проверял синтаксис, просто царапал по памяти):

execute block as
declare variable SRC_VAL integer;
declare variable ID_VAL integer;
begin
  for select distinct SOURCE from HISTORY into :SRC_VAL do begin
     :ID_VAL = NULL;
     select first(1) skip(100) ID from HISTORY
       where SOURCE = :SRC_VAL
       order by ID desc
       into :ID_VAL;
     if (:ID_VAL IS NOT NULL) then
       delete from HISTORY 
         where SOURCE = :SRC_VAL 
           and ID <= :ID_VAL;
  end
end