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;