elect object_name, object_type from user_objects where status=''''INVALID''''; rec_columns cur_invalid_objects%ROWTYPE; err_status NUMERIC; BEGIN dbms_output.enable(10000); open cur_invalid_objects; loop fetch cur_invalid_objects into rec_columns; EXIT WHEN cur_invalid_objects%NOTFOUND;
dbms_output.put_line (''''Recompiling '''' || rec_columns.object_type || '''' '''' || rec_columns.object_name); dbms_ddl.alter_compile(rec_columns.object_type,NULL,rec_columns.object_name); end loop; close cur_invalid_objects; EXCEPTION When others then begin err_status := SQLCODE; dbms_output.put_line('''' Recompilation failed : '''' || SQLERRM(err_status));
if ( cur_invalid_objects%ISOPEN) then CLOSE cur_invalid_objects; end if;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
