--重建数据库索引 PROCEDURE REBUILD_ALL_INDEX IS L_SQL VARCHAR2(52); BEGIN FOR V IN (SELECT AI.INDEX_NAME FROM ALL_INDEXES AI WHERE AI.OWNER = 'SYS') LOOP BEGIN L_SQL := ' alter index ' || V.INDEX_NAME || ' rebuild'; DBMS_OUTPUT.PUT_LINE(L_SQL); EXECUTE IMMEDIATE L_SQL; EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLERRM); END; END LOOP; END;