oracle 批量重建索引

create or replace procedure p_rebuild_all_index
   (tablespace_name in varchar2)
as
   sqlt varchar(200);
begin

    for idx in (select index_name, tablespace_name, status from user_indexes where tablespace_name=tablespace_name and status='VALID' and temporary = 'N') loop
    begin
           sqlt := 'alter index ' || idx.index_name || ' rebuild ';
           dbms_output.put_line(idx.index_name);
           dbms_output.put_line(sqlt);
           EXECUTE IMMEDIATE sqlt;
           --錯誤後迴圈繼續執行。
           EXCEPTION
           WHEN OTHERS THEN
                dbms_output.put_line(SQLERRM);
     end;              
     end loop;
end;

oracle 預存程序批量重建索引。
測試方法
declare
    --資料表空間名稱
  tablespace_name varchar2(100);
begin
  tablespace_name:='dddd';
  p_rebuild_all_index(tablespace_name);
end;