set heading off
set feedback off
spool c:\scad7\invalide.dat
select
‘alter ‘
|| decode(object_type,’PACKAGE BODY’,’PACKAGE’,object_type)
|| ‘ ‘
|| object_name
|| ‘ compile ‘
|| decode(object_type,’PACKAGE BODY’,’ body;’,’;’)
from user_objects
where
object_type in (‘FUNCTION’,’PACKAGE’,’PACKAGE BODY’,’PROCEDURE’,’TRIGGER’,’VIEW’)
and status = ‘INVALID’
order by object_type , object_name;
spool off
