عمل Compile لجميع الكائنات ال inviled لديك بقاعدة البيانات

بسم الله الرحمن الرحيم ..

بينما انا اتصفح موقع أوراكل لأبحث عن Function معين أو معرفة بعض الخواص الخاصة بها

وجدت هذه التعليمة الرائعة والتي تقوم بعمل recompile لجميع الكائنات الـ inviled لديك بقاعدة البيانات .

إليك التعليمة :

with INVOBJS_INDEPENDENT_INVOBJS as (
  select OBJECT_NAME, OBJECT_TYPE
  from USER_OBJECTS where STATUS = 'INVALID'
  minus 
  select d.NAME, d.TYPE
  from USER_DEPENDENCIES d, 
   (select OBJECT_NAME, OBJECT_TYPE from USER_OBJECTS where STATUS = 'INVALID') o
  where d.REFERENCED_NAME = o.OBJECT_NAME and d.REFERENCED_TYPE = o.OBJECT_TYPE)
select 
  'alter '||rpad(decode(OBJECT_TYPE,'PACKAGE BODY','PACKAGE',OBJECT_TYPE),14,' ')||
    rpad(OBJECT_NAME,31,' ')||'compile'||
    decode(OBJECT_TYPE,'PACKAGE BODY',' body')||';' COMPILE_COMMAND
from ( select 0 L, OBJECT_NAME, OBJECT_TYPE, NULL REFERENCED_NAME, NULL REFERENCED_TYPE
  from INVOBJS_INDEPENDENT_INVOBJS union all
  select LEVEL L, NAME, TYPE, REFERENCED_NAME, REFERENCED_TYPE
  from USER_DEPENDENCIES connect by prior NAME = REFERENCED_NAME and prior TYPE = REFERENCED_TYPE
  start with (REFERENCED_NAME, REFERENCED_TYPE) in (select OBJECT_NAME, OBJECT_TYPE from INVOBJS_INDEPENDENT_INVOBJS)) group by OBJECT_NAME,OBJECT_TYPE
order by max(L);

وبالتوفيق..

عمل Compile لجميع الكائنات ال inviled لديك بقاعدة البيانات

مواضيع مشابهة