一个begin跟一个end就可以了。

begin

for ... loop
...
end loop

for ... loop
...
end loop

end;
/

你这个应该把重建索引的写在第一个begin end 的循环体中，即收集好统计信息后，马上重建对应表的索引，这样才能1V1对应上你要重建哪一个表的索引，否则如果前面要收缩高水位的表很多，则可能在收缩完成所有表之前，导致这些表的索引全部失效，影响正常生产。

create or replace PROCEDURE Clean_HW_Table
as
S_SQL VARCHAR2(2000);
t_table_name varchar2(255);
t_index_name varchar2(2000);
CURSOR c1 IS SELECT
D.TABLE_NAME
FROM DBA_TABLES D
WHERE D.BLOCKS > 10
AND ROUND(D.NUM_ROWS / D.BLOCKS, 2) < 5
AND d.OWNER =(SELECT SYS_CONTEXT (‘USERENV’, ‘SESSION_USER’) ur FROM DUAL)
AND d.TABLE_NAME not like ‘VT%’;
BEGIN
FOR x IN c1
LOOP
t_table_name := x.TABLE_NAME;
S_SQL :=‘alter table ‘||t_table_name ||’ deallocate unused’;
EXECUTE IMMEDIATE S_SQL;
S_SQL :=‘alter table ‘||t_table_name ||’ move’;
EXECUTE IMMEDIATE S_SQL;
dbms_stats.gather_table_stats(‘EAS1’,t_table_name, estimate_percent => 100,cascade=>TRUE, method_opt => ‘FOR ALL COLUMNS SIZE AUTO’,degree =>6);
END LOOP;
FOR LINE2 IN (SELECT owner, index_name
FROM dba_indexes
WHERE owner =(SELECT SYS_CONTEXT (‘USERENV’, ‘SESSION_USER’) ur FROM DUAL)
AND status NOT IN (‘VALID’, ‘N/A’)
ORDER BY owner, index_name
) LOOP
t_index_name:= ‘alter index ’ || LINE2.OWNER ||’.’|| LINE2.index_name || ’ rebuild online nologging’;
DBMS_OUTPUT.PUT_LINE (t_index_name);
EXECUTE IMMEDIATE t_index_name;
END LOOP;

EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.PUT_LINE (‘NO_DATA_FOUND’);
RETURN;
WHEN OTHERS
THEN
DBMS_OUTPUT.PUT_LINE (‘OTHERS’);
RETURN;
END;
各位老师，目前的问题是第二段重建索引不执行，是那里写的不对吗？

只要游标里有数据，就是可以执行的，所以你先把第二个游标拿出来直接查下，看看是不是有数据。另外你这里写了几个异常处理，全部都是正常返回，如果第一个游标的循环里，某一条已经报错了，当然第二个循环就不会再跑了，所以建议你先把这些异常处理都拿掉，看看有些什么错