Compil

Question

Hi ,
I have 125 APPS_MRC invalid objects :
SQL> select count(*), owner from dba_objects
where status like '%INVALID%'
group by owner;
COUNT(*) OWNER
14 APPS
125 APPS_MRC
I look for SQl instruction to compile them. Thank you.

Answer 1

Hi,
I have written this procedure:
CREATE OR REPLACE PROCEDURE PR_COMPILE_ALL_OBJECTS  ( ip_SCHEMA VARCHAR2 Default Null
, op_error_message VARCHAR2 )
IS
   lv_SCHEMA                         VARCHAR2(32);
   lv_owner                          VARCHAR2(32);
   lv_object_name                    VARCHAR2(128);
   lv_object_type                    VARCHAR2(18);
   lv_execute_statement              VARCHAR2(2000);
   lv_count_outer_invalid_objects    NUMBER := 0;
   lv_count_inner_invalid_objects    NUMBER := 0;
   prev_invalid_objects              NUMBER;
   CURSOR lc_objects IS
   SELECT owner, object_name, object_type
     FROM All_Objects
    WHERE Status      = 'INVALID'
      AND owner       =  upper(lv_SCHEMA)
      AND owner not   in ('SYS','SYSTEM','OUTLN','DBSNMP','WMSYS','ORDSYS','ORDPLUGINS','MDSYS','CTXSYS','XDB','ANONYMOUS','SQLP','PERFSTAT')
      AND object_name not in ('PR_COMPILE_ALL_OBJECTS')
      AND object_type IN ('TRIGGER', 'VIEW', 'PACKAGE', 'PACKAGE BODY', 'PROCEDURE',  'FUNCTION')
    ORDER BY owner desc, object_type, object_name;
BEGIN
   If ip_SCHEMA is Null Then
      Select upper(username)
        Into lv_SCHEMA
        from user_users;
   Else
      lv_SCHEMA := upper(ip_SCHEMA);
   End If;
   LOOP
      SELECT nvl(count(*),0)
        INTO lv_count_outer_invalid_objects
        FROM all_objects
       WHERE Status      = 'INVALID'
         AND owner       =  upper(lv_SCHEMA)
         AND owner not   in ('SYS','SYSTEM','OUTLN','DBSNMP','WMSYS','ORDSYS','ORDPLUGINS','MDSYS','CTXSYS','XDB','ANONYMOUS','SQLP','PERFSTAT')
         AND object_name not in ('PR_COMPILE_ALL_OBJECTS')
         AND object_type IN ('TRIGGER', 'VIEW', 'PACKAGE', 'PACKAGE BODY', 'PROCEDURE',  'FUNCTION');
      EXIT WHEN lv_count_outer_invalid_objects = lv_count_inner_invalid_objects;
      dbms_output.put_line ('Invalid Object Count: ' || lv_count_outer_invalid_objects);
      OPEN lc_objects;
         SELECT nvl(count(*),0)
           INTO lv_count_inner_invalid_objects
           FROM all_objects
          WHERE Status      = 'INVALID'
            AND owner       =  upper(lv_SCHEMA)
            AND owner not  in ('SYS','SYSTEM','OUTLN','DBSNMP','WMSYS','ORDSYS','ORDPLUGINS','MDSYS','CTXSYS','XDB','ANONYMOUS','SQLP','PERFSTAT')
            AND object_name not in ('PR_COMPILE_ALL_OBJECTS')
            AND object_type IN ('TRIGGER', 'VIEW', 'PACKAGE', 'PACKAGE BODY', 'PROCEDURE',  'FUNCTION');
      LOOP
         FETCH lc_objects INTO lv_owner, lv_object_name, lv_object_type;
         EXIT WHEN lc_objects%NOTFOUND;
         IF lv_object_type = 'PACKAGE' THEN
            lv_execute_statement := 'Alter package '||lv_owner || '.' || lv_object_Name||' Compile';
            op_error_message := 'Packages successfully compiled';
         ELSIF
            lv_object_type = 'PACKAGE BODY' THEN
            lv_execute_statement := 'Alter Package '||lv_owner || '.' || lv_object_Name||' Compile body';
            op_error_message := 'Package body successfully compiled';
         ELSIF
            lv_object_type = 'TRIGGER' THEN
            lv_execute_statement := 'Alter trigger '||lv_owner || '.' || lv_object_Name||' Compile';
            op_error_message := 'triggers successfully compiled';
         ELSIF
            lv_object_type = 'VIEW' THEN
            lv_execute_statement := 'Alter view '||lv_owner || '.' || lv_object_Name||' Compile';
            op_error_message := 'Views successfully compiled';
         ELSIF
            lv_object_type = 'PROCEDURE' THEN
            lv_execute_statement := 'Alter Procedure '||lv_owner || '.' || lv_object_Name||' Compile';
            op_error_message := 'Procedures successfully compiled';
         ELSIF
            lv_object_type = 'FUNCTION' THEN
            lv_execute_statement := 'Alter Function '||lv_owner || '.' || lv_object_Name||' Compile';
            op_error_message := 'Functions successfully compiled';
         END IF;
         BEGIN
            EXECUTE IMMEDIATE lv_execute_statement;
         EXCEPTION
            WHEN others THEN
               Null;
         END;
      END LOOP;
      CLOSE lc_objects;
   END LOOP;
   EXCEPTION
     WHEN others THEN
             dbms_output.put_line ('***Error: ' || SQLERRM);
END pr_compile_all_objects;
EXEC pr_compile_all_objects
DROP PROCEDURE pr_compile_all_objects;
[br]Hope this helps
Ghulam