COMPILER LES OBJECTS EN ERREUR SOUS ORACLE

-- pour ne pas avoir de saut de page
SET PAGES 0

-- on n'affiche rien à l'écran
SET ECHO OFF

-- Le nom du script sql qui sera généré
SPOOL ${ORACLE_SID}_compile.sql

PROMPT SET ECHO ON

-- selection de tous les objets en status invalide
-- et génération de la ligne de commande pour les compiler 
-- suivi d'un 'show error ' dans le script
SELECT 'alter '||
       decode(object_type, 'PACKAGE BODY','PACKAGE',object_type) ||
       ' '||object_name||
       ' compile '||decode(object_type,'PACKAGE','PACKAGE', 'PACKAGE BODY','body',null)
       ||chr(10)||'/'||chr(10)||'show errors'
 FROM user_objects
WHERE object_type IN ('PACKAGE','PACKAGE BODY','VIEW', 'FUNCTION','TRIGGER','PROCEDURE')
  AND status = 'INVALID'
ORDER BY decode(object_type,'VIEW',1,
                            'FUNCTION',2,
                            'PROCEDURE',3,
                            'PACKAGE',4,
                            'PACKAGE BODY',5,
                            'TRIGGER',6,7)
/
PROMPT SET ECHO OFF
-- on ferme le script généré
SPOOL OFF

-- création d'un fichier log pour archivé les SHOW ERROR après chaque compilation
SPOOL ${ORACLE_SID}_compile.log

-- execution du script généré
@${ORACLE_SID}_compile.sql

SPOOL OFF
REM

-- et enfin on affiche de nouveau les objets toujours 
-- en statu 'INVALIDE' après la compilation

SET PAGESIZE 500
TTITLE 'Invalid Objects'
COLUMN c format a70 HEADING 'Object_name(Object_type)'

SELECT object_name||'('||object_type||')' c 
  FROM user_objects 
 WHERE status='INVALID'
ORDER BY object_type,object_name;

Télécharger le zip

23 juin 2005 13:16:56 :

N/A