select '1','1',
oo.obj#,
value(o),
sys.dbms_metadata_util.get_source_lines(oo.name,oo.obj#,oo.type#),
(select value(c) from ku$_switch_compiler_view c
where c.obj_num =oo.obj#)
from sys.obj$ oo, sys.ku$_edition_schemaobj_view o, type_misc$ t
where oo.type# = 14
and oo.obj# = o.obj_num
and t.obj# = o.obj_num
and bitand(t.properties,16+32)=0 /* exclude SQLJ type bodies (see above)*/
AND (SYS_CONTEXT('USERENV','CURRENT_USERID') IN (o.owner_num, 0) OR
EXISTS ( SELECT * FROM sys.session_roles
WHERE role='SELECT_CATALOG_ROLE' ))
SELECT '1'
, '1'
,
OO.OBJ#
,
VALUE(O)
,
SYS.DBMS_METADATA_UTIL.GET_SOURCE_LINES(OO.NAME
, OO.OBJ#
, OO.TYPE#)
,
(SELECT VALUE(C)
FROM KU$_SWITCH_COMPILER_VIEW C
WHERE C.OBJ_NUM =OO.OBJ#)
FROM SYS.OBJ$ OO
, SYS.KU$_EDITION_SCHEMAOBJ_VIEW O
, TYPE_MISC$ T
WHERE OO.TYPE# = 14
AND OO.OBJ# = O.OBJ_NUM
AND T.OBJ# = O.OBJ_NUM
AND BITAND(T.PROPERTIES
, 16+32)=0 /* EXCLUDE SQLJ TYPE BODIES (SEE ABOVE)*/
AND (SYS_CONTEXT('USERENV'
, 'CURRENT_USERID') IN (O.OWNER_NUM
, 0) OR
EXISTS ( SELECT *
FROM SYS.SESSION_ROLES
WHERE ROLE='SELECT_CATALOG_ROLE' ))
|
|
|