column object_name format a40;
set heading off;
select 'alter '||object_type||' '||object_name||' compile;'
from user_objects
where status = 'INVALID'
ORDER BY object_type;
spool d:\spool_text.sql;
/
spool off;
@d:\spool_text.sql;
/