重建所有表的索引的存储过程

迈不过友情╰ 2022-04-14 03:13 201阅读 0赞

create or replace procedure p\_rebuild\_all\_index  
   (tablespace\_name in varchar2,--这里是表空间名，如果不改变表空间，可以传入null  
   only\_unusable in boolean)    --是否仅对无效的索引操作  
as  
   sqlt varchar(200);  
begin  
    --只取非临时索引  
    for idx in (select index\_name, tablespace\_name, status from user\_indexes where temporary = 'N') loop  
        --如果是如重建无效的索引，且当索引不是无效时，则跳过  
        if only\_unusable = true and idx.status <> 'UNUSABLE' then  
           goto continue;  
        end if;

if (tablespace\_name is null) or idx.status = 'UNUSABLE' then  
           --如果没有指定表空间，或索引无效，则在原表空间重建  
           sqlt := 'alter index ' || idx.index\_name || ' rebuild ';  
        elsif upper(tablespace\_name) <> idx.tablespace\_name then  
           --如果指定的不同的表空间，则在指定表空间待建索引  
           sqlt := 'alter index ' || idx.index\_name || ' rebuild tablespace ' || tablespace\_name;  
        else  
           --如果表空间相同，则跳过  
           goto continue;  
        end if;

dbms\_output.put\_line(idx.index\_name);  
        EXECUTE IMMEDIATE sqlt;  
        <<continue>>  
        null;  
     end loop;  
end;  
/\*  
功能：重建索引。  
说明：如果表空间参数传入null，则在原表空间内重建索引，否则在目标表空间重建索引。  
      如果表空间相同，则跳过。  
      only\_unusable表示是否只对无效的索引进行重建  
作者：81,   2007年6月26日  
\*/

本文来自CSDN博客，转载请标明出处：[http://blog.csdn.net/sscsgss/archive/2009/08/21/4468580.aspx][http_blog.csdn.net_sscsgss_archive_2009_08_21_4468580.aspx]

[http_blog.csdn.net_sscsgss_archive_2009_08_21_4468580.aspx]: http://blog.csdn.net/sscsgss/archive/2009/08/21/4468580.aspx