Why objects are invalid?

Question

Hi all,
IS there any specificreasons why there are so many objects are invalid....
[per]
SQL>
SQL> select A.Owner Oown,
2 A.Object_Name Oname,
3 A.Object_Type Otype,
4 'Miss Pkg Body' Prob
5 from DBA_OBJECTS A
6 where A.Object_Type = 'PACKAGE'
7 and A.Owner ='data'
8 and not exists
9 (select 'x'
10 from DBA_OBJECTS B
11 where B.Object_Name = A.Object_Name
12 and B.Owner = A.Owner
13 and B.Object_Type = 'PACKAGE BODY')
14 union
15 select Owner Oown,
16 Object_Name Oname,
17 Object_Type Otype,
18 'Invalid Obj' Prob
19 from DBA_OBJECTS
20 where Object_Type in
21 ('PROCEDURE','PACKAGE','FUNCTION','TRIGGER','PACKAGE BODY','VIEW')
22 and Owner ='data'
23 and Status != 'VALID'
24 order by 1,4,3,2
25 /
data
CHK_CURR_CORR_REG_ART_CO_DEEP
FUNCTION Invalid Obj
data
FN_CHK_MAIN_ACT
FUNCTION Invalid Obj
data
F_GET_FC_OPBAL
FUNCTION Invalid Obj
data
F_GET_LC_OPBAL
FUNCTION Invalid Obj
data
F_GET_MAIN_FC_OPBAL
FUNCTION Invalid Obj
data
F_GET_MAIN_LC_OPBAL_DIV_1
FUNCTION Invalid Obj
data
F_GET_MAIN_LC_OPBAL_DIV_DEPT
FUNCTION Invalid Obj
data
F_GET_SUB_FC_OPBAL
FUNCTION Invalid Obj
data
F_GET_SUB_LC_OPBAL
FUNCTION Invalid Obj
data
ODB_CHK_COMB_FIRM
FUNCTION Invalid Obj
data
O_DGET_JOB_AUTO_CSV_STS_AUTO
FUNCTION Invalid Obj
data
O_DGET_JOB_CSV_STATUS
FUNCTION Invalid Obj
data
O_GET_SRN_APPL_DT
FUNCTION Invalid Obj
data
O_GET_SRN_CCT_REG_DT
FUNCTION Invalid Obj
data
O_GET_SRN_NAME1
FUNCTION Invalid Obj
data
O_GET_SRN_PAID_FEES
FUNCTION Invalid Obj
data
REM_TEST
FUNCTION Invalid Obj
data
SAR_TEST_FUNC
FUNCTION Invalid Obj
data
CUSTOMER_UPDATE
PACKAGE Invalid Obj
data
OVERLOAD_EG
PACKAGE Invalid Obj
data
PACK1
PACKAGE Invalid Obj
data
PDM_STUD_REFUND_PECS
PROCEDURE Invalid Obj
data
PDM_STUD_REFUND_TCS
PROCEDURE Invalid Obj
data
PDM_STUD_REG_CCT
PROCEDURE Invalid Obj
data
PDM_STUD_REG_FND
PROCEDURE Invalid Obj
data
PDM_STUD_REG_INT
PROCEDURE Invalid Obj
data
PDM_STUD_REG_INT_DUMMY
PROCEDURE Invalid Obj
data
PDM_STUD_REG_INT_DUP_FND_NO
PROCEDURE Invalid Obj
data
PDM_STUD_REG_PE2ART
PROCEDURE Invalid Obj
data
PDM_STUD_REG_PE2ART_RAGHU
PROCEDURE Invalid Obj
data
PDM_STUD_REG_PEI
PROCEDURE Invalid Obj
data
PDM_STUD_REG_PEII
PROCEDURE Invalid Obj
data
ODBTRG101_ITEM
TRIGGER Invalid Obj
data
ODBTRG103_REF
TRIGGER Invalid Obj
data
ODBTRG437_AAT_ACVT_UPT_DAK
TRIGGER Invalid Obj
data
ODBTRG437_AFCD
TRIGGER Invalid Obj
data
ODBTRG437_AFCD_01
TRIGGER Invalid Obj
data
ODBTRG437_AR
TRIGGER Invalid Obj
data
ODBTRG437_BIN
TRIGGER Invalid Obj
data
OV_MEM_FEE_CHK
VIEW Invalid Obj
data
A_DUMMY
PACKAGE Miss Pkg Body
data
CUSTOMER_UPDATE
PACKAGE Miss Pkg Body
data
DBMS_LOCK
PACKAGE Miss Pkg Body
data
ORNDBPKG_ART_FEE_COLL
PACKAGE Miss Pkg Body
data
OVERLOAD_EG
PACKAGE Miss Pkg Body
data
PACK1
PACKAGE Miss Pkg Body
data
PKS
PACKAGE Miss Pkg Body
data
RECEIPT_NO_VARIABLE
PACKAGE Miss Pkg Body
data
STAGE_PACK
PACKAGE Miss Pkg Body
SQL> spool off

Answer 1

SET SERVEROUTPUT ON;
SET LINESIZE 1000;
DECLARE
     || Cursor to all Object types in All_Objects belonging to the current user.
     CURSOR Cur_Object_Types
     IS
     SELECT DISTINCT Object_Type
       FROM All_Objects
      WHERE Owner = User;
     || Select the Invalid objects for the given object type.
     CURSOR Cur_Invalid_Objects(
          p_Object_Type     IN All_Objects.Object_Type%TYPE
     IS
     SELECT Object_Name, Status      
       FROM All_Objects
      WHERE Object_Type = p_Object_Type
        AND Status <> 'VALID'
        AND Owner = User;
     || Cursor to select the status of function based indexes.
     CURSOR Cur_FuncIdx
     IS
     SELECT Index_Name, FuncIdx_Status
       FROM User_Indexes
      WHERE FuncIdx_Status <> 'ENABLED';
     || Select all public synonyms created for current user object for
     || which underlying objects does not exists.
     CURSOR Cur_Synonyms
     IS
     SELECT Synonym_Name
           FROM All_Synonyms
      WHERE Owner = 'PUBLIC'
        AND Table_Owner = User
        AND Synonym_Name NOT IN (SELECT Object_Name
                             FROM User_Objects);
     ln_LoopCnt     NUMBER;
     ln_TabIdxCnt     NUMBER;
     lv_Object_Type     VARCHAR2(100);
     lv_Object_Name     VARCHAR2(100);
     lv_Status     VARCHAR2(100);
     TYPE IObj_Type
     IS
     RECORD (Object_Type     VARCHAR2(100)
            ,Object_Name     VARCHAR2(100)
            ,Status          VARCHAR2(100)
     TYPE IObj_Tab_Type
     IS
     TABLE OF IObj_Type;
     IObj_Table      IObj_Tab_Type;
BEGIN
     DBMS_OUTPUT.DISABLE;
     DBMS_OUTPUT.ENABLE(999999999999);
     DBMS_OUTPUT.PUT_LINE(CHR(10));
     IObj_Table   := IObj_Tab_Type();
     ln_TabIdxCnt := 0;
     FOR I IN Cur_Object_Types
     LOOP
            ln_LoopCnt := 0;
          FOR J IN Cur_Invalid_Objects(I.Object_Type)
          LOOP
               ln_TabIdxCnt := ln_TabIdxCnt + 1;
               ln_LoopCnt   := ln_LoopCnt + 1;          
               IObj_Table.Extend;
               IObj_Table(ln_TabIdxCnt).Object_Type := I.Object_Type;
               IObj_Table(ln_TabIdxCnt).Object_Name := J.Object_Name;
               IObj_Table(ln_TabIdxCnt).Status      := J.Status;
          END LOOP;
     IF ln_LoopCnt = 0 THEN
          ln_TabIdxCnt := ln_TabIdxCnt + 1;
          IObj_Table.Extend;
          IObj_Table(ln_TabIdxCnt).Object_Type := I.Object_Type;
          IObj_Table(ln_TabIdxCnt).Object_Name := ' ';
          IObj_Table(ln_TabIdxCnt).Status      := 'NONE';
     END IF;
     END LOOP;
     ln_LoopCnt := 0;
     FOR K IN Cur_FuncIdx
     LOOP
          ln_TabIdxCnt := ln_TabIdxCnt + 1;
          ln_LoopCnt   := ln_LoopCnt + 1;          
          IObj_Table.Extend;
          IObj_Table(ln_TabIdxCnt).Object_Type := 'FUNCTION BASED INDEX';
          IObj_Table(ln_TabIdxCnt).Object_Name := K.Index_Name;
          IObj_Table(ln_TabIdxCnt).Status      := K.FuncIdx_Status;
     END LOOP;
     IF ln_LoopCnt = 0 THEN
          ln_TabIdxCnt := ln_TabIdxCnt + 1;
          IObj_Table.Extend;
          IObj_Table(ln_TabIdxCnt).Object_Type := 'FUNCTION BASED INDEX';
          IObj_Table(ln_TabIdxCnt).Object_Name := ' ';
          IObj_Table(ln_TabIdxCnt).Status      := 'NONE';
     END IF;     
     ln_LoopCnt := 0;
     FOR L IN Cur_Synonyms
     LOOP
          ln_TabIdxCnt := ln_TabIdxCnt + 1;
          ln_LoopCnt   := ln_LoopCnt + 1;          
          IObj_Table.Extend;
          IObj_Table(ln_TabIdxCnt).Object_Type := 'PUBLIC SYNONYM WITHOUT UNDELYING OBJECT IN SCHEMA '||USER;
          IObj_Table(ln_TabIdxCnt).Object_Name := L.Synonym_Name;
          IObj_Table(ln_TabIdxCnt).Status      := 'UNDERLYING OBJECT NOT FOUND';
     END LOOP;
     IF ln_LoopCnt = 0 THEN
          ln_TabIdxCnt := ln_TabIdxCnt + 1;
          IObj_Table.Extend;
          IObj_Table(ln_TabIdxCnt).Object_Type := 'PUBLIC SYNONYM WITHOUT UNDELYING OBJECT IN SCHEMA '||USER;
          IObj_Table(ln_TabIdxCnt).Object_Name := ' ';
          IObj_Table(ln_TabIdxCnt).Status      := 'NONE';
     END IF;          
     IF IObj_Table.COUNT > 0 THEN
          FOR I IN 1..IObj_Table.COUNT
          LOOP
          lv_Object_Type     := IObj_Table(I).Object_Type;     
          lv_Object_Name     := IObj_Table(I).Object_Name;     
          lv_Status     := IObj_Table(I).Status;
               IF I = 1 THEN
                    DBMS_OUTPUT.PUT_LINE('+-----------------------------------------------------------------------------------------------------------------------------+');
                    DBMS_OUTPUT.PUT_LINE(RPAD('|                                               LIST OF INVALID OBJECTS',134,' ')||'|');
                    DBMS_OUTPUT.PUT_LINE('|-----------------------------------------------------------------------------------------------------------------------------|');
                    DBMS_OUTPUT.PUT_LINE(RPAD('|                   OBJECT TYPE                              |               OBJECT NAME        |               STATUS',134,' ')||'|');
                    DBMS_OUTPUT.PUT_LINE('|-----------------------------------------------------------------------------------------------------------------------------|');
               END IF;
               DBMS_OUTPUT.PUT_LINE('| '||RPAD(lv_Object_Type,59,' ')||'| '||RPAD(lv_Object_Name,32,' ')||' | '||RPAD(lv_Status,28,' ')||'|');
          END LOOP;
          DBMS_OUTPUT.PUT_LINE('|-----------------------------------------------------------------------------------------------------------------------------|');
     ELSE
          DBMS_OUTPUT.PUT_LINE('THERE ARE NO INVALID OBJECTS IN SCHEMA '||USER||'.');
     END IF;
     DBMS_OUTPUT.PUT_LINE(RPAD('| NOTE: ',134,' ')||'|');
     DBMS_OUTPUT.PUT_LINE(RPAD('|      If you find any object in status INVALID / DISABLED / UNDERLYING OBJECT NOT FOUND, then ',134,' ')||'|');
     DBMS_OUTPUT.PUT_LINE(RPAD('|      execute the procedure RECOMPILE_INVALID_OBJECTS to fix the same.',134,' ')||'|');
     DBMS_OUTPUT.PUT_LINE('+-----------------------------------------------------------------------------------------------------------------------------+');
END;
[\pre]
HTH..