Actualizar Indices para optimizar el Tunning de Firebird SQL

Revisando sobre tunning de Firebird SQL encontre un procedimiento almacenado que actualiza los indices. Esto hace mucho bien a las tablitas y velocidad de consultas (en teoría)

SET TERM ^ ;

CREATE PROCEDURE MAINTENANCE_SELECTIVITY
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
^
SET TERM ; ^

Tomado de: http://www.dotnetfirebird.org/blog/2005/03/improving-query-performance-through.html