cd $ORACLE_HOME/network/admin目录下 新建文件sqlnet.ora
vi sqlnet.ora
SQLNET.ALLOWED_LOGON_VERSION_SERVER=8SQLNET.ALLOWED_LOGON_VERSION_CLIENT=8

CREATE OR REPLACE TYPE WM_CONCAT_IMPL AS OBJECT-- AUTHID CURRENT_USER AS OBJECT  (  CURR_STR VARCHAR2(32767),   STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT WM_CONCAT_IMPL) RETURN NUMBER,  MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT WM_CONCAT_IMPL,  P1 IN VARCHAR2) RETURN NUMBER,  MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN WM_CONCAT_IMPL,  RETURNVALUE OUT VARCHAR2,  FLAGS IN NUMBER)  RETURN NUMBER,  MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT WM_CONCAT_IMPL,  SCTX2 IN WM_CONCAT_IMPL) RETURN NUMBER  );/

CREATE OR REPLACE TYPE BODY WM_CONCAT_IMPLIS  STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT WM_CONCAT_IMPL)  RETURN NUMBER  IS  BEGIN  SCTX := WM_CONCAT_IMPL(NULL) ;  RETURN ODCICONST.SUCCESS;  END;  MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT WM_CONCAT_IMPL,  P1 IN VARCHAR2)  RETURN NUMBER  IS  BEGIN  IF(CURR_STR IS NOT NULL) THEN  CURR_STR := CURR_STR || ',' || P1;  ELSE  CURR_STR := P1;  END IF;  RETURN ODCICONST.SUCCESS;  END;  MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN WM_CONCAT_IMPL,  RETURNVALUE OUT VARCHAR2,  FLAGS IN NUMBER)  RETURN NUMBER  IS  BEGIN  RETURNVALUE := CURR_STR ;  RETURN ODCICONST.SUCCESS;  END;  MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT WM_CONCAT_IMPL,  SCTX2 IN WM_CONCAT_IMPL)  RETURN NUMBER  IS  BEGIN  IF(SCTX2.CURR_STR IS NOT NULL) THEN  SELF.CURR_STR := SELF.CURR_STR || ',' || SCTX2.CURR_STR ;  END IF;  RETURN ODCICONST.SUCCESS;  END;  END;/

CREATE OR REPLACE FUNCTION "WM_CONCAT"(P1 VARCHAR2)RETURN VARCHAR2 AGGREGATE USING WM_CONCAT_IMPL ;/

select 'grant execute on wm_concat to '|| USERNAME||';' from dba_users where account_status='OPEN' and DEFAULT_TABLESPACE not in ('SYSTEM','USERS'); 
grant execute on edw.wm_concat to prod;grant execute on edw.wm_concat to prod_cc;create public synonym wm_concat for prod.wm_concat;

对象总数select d.owner,count(1) from dba_objects d where d.owner in ('PROD','PROD_CC','PROD_OP','PROD_CB','PROD_OS') and d.owner not in ('PUBLIC') and not exists (select 1 from dba_recyclebin b where b.object_name=d.object_name and d.owner = b.owner) group by d.owner order by count(1) desc;
查找使用自建函数的 SQLselect distinct sql_id, sql_text, modulefrom V$SQL,(select object_namefrom DBA_OBJECTS Owhere owner = 'PROD'and object_type in ('FUNCTION', 'PACKAGE'))where (instr(upper(sql_text), object_name) > 0)and plsql_exec_time > 0and regexp_like(upper(sql_fulltext), '^[SELECT]')and parsing_schema_name = 'PROD';
对象类型汇总select d.owner,d.object_type,count(1) from dba_objects d where d.owner in ('PROD','PROD_CC','PROD_OP','PROD_CB','PROD_OS')  and d.owner not in ('PUBLIC') and not exists (select 1 from dba_recyclebin b where b.object_name=d.object_name and d.owner = b.owner) group by d.owner,d.object_type order by count(1) desc;
OWNER                          OBJECT_TYPE           COUNT(1)------------------------------ ------------------- ----------PROD                         INDEX                     7352PROD_CC                      INDEX                     7125PROD_OP                      INDEX                     4566PROD                         SEQUENCE                  1151PROD                         TABLE                     1144PROD_CC                      SEQUENCE                  1115PROD_CC                      TABLE                     1106PROD_OP                      SEQUENCE                   676PROD_OP                      TABLE                      668PROD                         LOB                        126PROD_CC                      LOB                        118PROD_OP                      LOB                         55PROD                         FUNCTION                    18PROD_CC                      FUNCTION                    17PROD_CB                      INDEX                       15PROD                         PROCEDURE                    3PROD_CB                      TABLE                        3PROD_CC                      PROCEDURE                    2PROD_CB                      SEQUENCE                     2PROD                         TRIGGER                      1PROD                         TYPE                         1PROD_OP                      FUNCTION                     1
22 rows selected.
检查业务用户自建对象select OWNER,OBJECT_TYPE,OBJECT_NAME from dba_objects d where d.owner in ('PROD','PROD_CC','PROD_OP','PROD_CB','PROD_OS') and OBJECT_TYPE not in ('INDEX','SEQUENCE','LOB','TABLE') order by 2,1;
检查无效索引select owner,index_name,status from dba_indexes where status='UNUSABLE' order by 1,2;
select i.owner,i.index_name,p.partition_name,p.status from dba_ind_partitions p,dba_indexes iwhere p.index_name=i.index_name and p.status='UNUSABLE' order by 1,2,3;
select i.owner,i.index_name,s.subpartition_name,s.status from dba_ind_subpartitions s,dba_indexes i where s.index_name=i.index_name and s.status='UNUSABLE' order by 1,2,3;
确认系统用户是否包含业务对象--检查SYS和SYSTEM的重复对象，返回如下行则正常。set line 345col OBJECT_NAME for a40select owner,object_name,object_type from dba_objects where (object_name,object_type) in (select object_name,object_type from dba_objects where owner='SYS') and owner='SYSTEM';
OWNER                          OBJECT_NAME                              OBJECT_TYPE------------------------------ ---------------------------------------- -------------------SYSTEM                         AQ$_SCHEDULES                     TABLESYSTEM                         AQ$_SCHEDULES_PRIMARY             INDEXSYSTEM                         DBMS_REPCAT_AUTH                 PACKAGE BODYSYSTEM                         DBMS_REPCAT_AUTH                 PACKAGE
select owner,segment_name,segment_type,tablespace_name from dba_segments where tablespace_name in('SYSTEM','SYSAUX') and owner in ('PROD','PROD_CC','PROD_OP','PROD_CB','PROD_OS');