Recriar os indices fragmentados

Recriacao dos indices é uma tarefa constante do DBA, se os indices estao fragmentados, pode ser penoso ao banco de dados, percorrer os indices para que eles possam informar a localizacao da informacao da qual buscamos.
Entao, outro dia precisei de recriar os indices que estavam fragmentados. Entao porque nao, criar um script para que o proprio banco, no domingo a noite, uma vez por semana fizesse isso?

Assim, o script abaixo foi transformado em uma procedure da qual, criei um job para rodar no domingo.

########################## INICIO PROCEDURE

CREATE OR REPLACE PROCEDURE "SYS"."PROC_CRIAINDICEFRAG" is
begin
/* Sao dois blocos identicos, para garantir que os indices foram recriados */
FOR cur_rec IN
(SELECT 'alter index '||table_owner||'.'||index_name||' rebuild tablespace '|| tablespace_name||' ' myddl
FROM DBA_indexes
WHERE blevel >=4
-- and ROWNUM <=1
) loop
execute immediate cur_rec.myddl;
/*
if l_status != 'OK' then
dbms_output.put_line('error');
end if;
*/
END LOOP;

FOR cur_rec IN
(SELECT 'alter index '||table_owner||'.'||index_name||' rebuild tablespace '|| tablespace_name||' ' myddl
FROM DBA_indexes
WHERE blevel >=4
-- and ROWNUM <=1
) loop
execute immediate cur_rec.myddl;
/*
if l_status != 'OK' then
dbms_output.put_line('error');
end if;
*/
END LOOP;

end;

################################################# FIM PROCEDURE
-- Bloco de chamada dentro do JOB

begin
SYS.PROC_CRIAINDICEFRAG;
end;