create or replace procedure mtn_rebuild_all_idx
as
cursor indexCursor is
select * from user_indexes where table_owner='CMS4_CLEAN' and
index_type='NORMAL';
indexRow indexCursor%ROWTYPE;
sqlText varchar2(1024);
begin
open indexCursor;
loop
fetch indexCursor into indexRow;
exit when indexCursor%NOTFOUND;
sqlText :=' alter index ' || indexRow.index_name || ' rebuild ';
BEGIN
execute immediate (sqlText);
END;
end loop;
end;