select '1','0',
o.obj_num,
value(o),
case when o.type_num = 2
then (SELECT replace(t.audit$,chr(0),'-') from sys.tab$ t
where t.obj# = o.obj_num)
when o.type_num = 4
then (SELECT replace(v.audit$,chr(0),'-') from sys.view$ v
where v.obj# = o.obj_num)
when o.type_num = 6
then (SELECT replace(s.audit$,chr(0),'-') from sys.seq$ s
where s.obj# = o.obj_num)
when (o.type_num in (7, 9))
then (SELECT replace(p.audit$,chr(0),'-') from sys.procedure$ p
where p.obj# = o.obj_num)
when o.type_num = 13
then (SELECT replace(ty.audit$,chr(0),'-') from sys.type_misc$ ty
where ty.obj#= o.obj_num)
when o.type_num = 22
then (SELECT replace(l.audit$,chr(0),'-') from sys.library$ l
where l.obj# = o.obj_num)
when o.type_num = 23
then (SELECT replace(d.audit$,chr(0),'-') from sys.dir$ d
where d.obj# = o.obj_num)
else null end,
sys.dbms_metadata_util.get_audit(o.obj_num,o.type_num)
from ku$_schemaobj_view o
where bitand(o.flags,4)=0 -- exclude system-generated objects
SELECT '1'
, '0'
,
O.OBJ_NUM
,
VALUE(O)
,
CASE WHEN O.TYPE_NUM = 2
THEN (SELECT REPLACE(T.AUDIT$
, CHR(0)
, '-')
FROM SYS.TAB$ T
WHERE T.OBJ# = O.OBJ_NUM)
WHEN O.TYPE_NUM = 4
THEN (SELECT REPLACE(V.AUDIT$
, CHR(0)
, '-')
FROM SYS.VIEW$ V
WHERE V.OBJ# = O.OBJ_NUM)
WHEN O.TYPE_NUM = 6
THEN (SELECT REPLACE(S.AUDIT$
, CHR(0)
, '-')
FROM SYS.SEQ$ S
WHERE S.OBJ# = O.OBJ_NUM)
WHEN (O.TYPE_NUM IN (7
, 9))
THEN (SELECT REPLACE(P.AUDIT$
, CHR(0)
, '-')
FROM SYS.PROCEDURE$ P
WHERE P.OBJ# = O.OBJ_NUM)
WHEN O.TYPE_NUM = 13
THEN (SELECT REPLACE(TY.AUDIT$
, CHR(0)
, '-')
FROM SYS.TYPE_MISC$ TY
WHERE TY.OBJ#= O.OBJ_NUM)
WHEN O.TYPE_NUM = 22
THEN (SELECT REPLACE(L.AUDIT$
, CHR(0)
, '-')
FROM SYS.LIBRARY$ L
WHERE L.OBJ# = O.OBJ_NUM)
WHEN O.TYPE_NUM = 23
THEN (SELECT REPLACE(D.AUDIT$
, CHR(0)
, '-')
FROM SYS.DIR$ D
WHERE D.OBJ# = O.OBJ_NUM)
ELSE NULL END
,
SYS.DBMS_METADATA_UTIL.GET_AUDIT(O.OBJ_NUM
, O.TYPE_NUM)
FROM KU$_SCHEMAOBJ_VIEW O
WHERE BITAND(O.FLAGS
, 4)=0 -- EXCLUDE SYSTEM-GENERATED OBJECTS
|
|
|