Firebird - Recalcula Índice de Seletividade dos Índices

CREATE PROCEDURE SP_RECALCULA_SELETIVIDADE_INDICE
AS
DECLARE variable S VARCHAR(200);
BEGIN

FOR SELECT RDB$INDEX_NAME FROM RDB$INDICES INTO :S DO
BEGIN
    S = 'SET statistics INDEX ' || s || ';';
    EXECUTE STATEMENT :s;
END

SUSPEND;

END