-- #############################################################################################
--
-- Autor:       Trivadis AG / Bernhard Obrist
--
-- %Purpose:    Recompilieren aller INVALID DB-Objekte mit Berücksichtigung der Abhängigkeiten 
--
-- Environment: Starten unter DB-User SYSTEM mit @COMPILE_ALL
--
-- #############################################################################################
--
set heading off;
set feed off;
set pagesize 10000;
set wrap off;
set linesize 200;
set tab on;
set scan off;
set verify off;
--
spool comp_all.tmp

select decode (OBJECT_TYPE, 'PACKAGE BODY',
               'alter package ' || OWNER ||'.'||OBJECT_NAME || ' compile body;',
               'alter ' || OBJECT_TYPE || ' ' || OWNER||'.'||OBJECT_NAME || ' compile;'
              )
from   DBA_OBJECTS A,
       SYS.ORDER_OBJECT_BY_DEPENDENCY B
where  A.OBJECT_ID = B.OBJECT_ID (+)
and    A.STATUS = 'INVALID'
and    A.OBJECT_TYPE in ('PACKAGE BODY','PACKAGE','FUNCTION','PROCEDURE','TRIGGER','VIEW')
order by B.DLEVEL desc,
         A.OBJECT_TYPE,
         A.OBJECT_NAME;
--
spool off;
set heading on;
set feed on;
set scan on;
set verify on;
--
@comp_all.tmp