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

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日
  */