oracle自動生成編譯所有函式、儲存過程、觸發器的語句

set feedback off
set heading off
set linesize 1000
set pagesize 0
set pause off
set trimspool on
set verify off

spool tmp.sql;
select 'alter '||object_type||' '||owner||'.'||object_name||' compile;'
from dba_objects
where status = 'INVALID'
and object_type in ('FUNCTION','JAVA SOURCE','JAVA CLASS','PROCEDURE','PACKAGE','TRIGGER');
select 'alter package '||owner||'.'||object_name||' compile body;'
from dba_objects
where status = 'INVALID'
and object_type = 'PACKAGE BODY';
spool off;
@tmp[@more@]