select /*+ no_merge */
'1','1',
o1.obj#,o2.obj#,
(select value(o) from sys.ku$_edition_schemaobj_view o
where o.obj_num=o2.obj#),
sys.dbms_metadata_util.get_source_lines(o2.name,o2.obj#,o2.type#),
(select value(c) from sys.ku$_switch_compiler_view c
where c.obj_num = o2.obj#)
from sys.ku$_edition_obj_view o1, sys.ku$_edition_obj_view o2,
sys.type$ ty, type_misc$ tm
where o1.type# = 13 and o2.type#=14
and o1.name=o2.name and o1.owner#=o2.owner#
and ty.toid=o1.oid$
and o1.subname is null /* latest type version */
/* type$ properties bits:
8388608=0 - not transient type
262144=0 - latest type version
other bits=0 - not system-generated type
*/
and bitand(ty.properties,8388608+262144+2048+64+16)=0
and tm.obj# = o2.obj#
and bitand(tm.properties,16+32)=0 /* exclude SQLJ type bodies */
AND (SYS_CONTEXT('USERENV','CURRENT_USERID') IN (o2.owner#, 0) OR
EXISTS ( SELECT * FROM sys.session_roles
WHERE role='SELECT_CATALOG_ROLE' ))
SELECT /*+ NO_MERGE */
'1'
, '1'
,
O1.OBJ#
, O2.OBJ#
,
(SELECT VALUE(O)
FROM SYS.KU$_EDITION_SCHEMAOBJ_VIEW O
WHERE O.OBJ_NUM=O2.OBJ#)
,
SYS.DBMS_METADATA_UTIL.GET_SOURCE_LINES(O2.NAME
, O2.OBJ#
, O2.TYPE#)
,
(SELECT VALUE(C)
FROM SYS.KU$_SWITCH_COMPILER_VIEW C
WHERE C.OBJ_NUM = O2.OBJ#)
FROM SYS.KU$_EDITION_OBJ_VIEW O1
, SYS.KU$_EDITION_OBJ_VIEW O2
,
SYS.TYPE$ TY
, TYPE_MISC$ TM
WHERE O1.TYPE# = 13
AND O2.TYPE#=14
AND O1.NAME=O2.NAME
AND O1.OWNER#=O2.OWNER#
AND TY.TOID=O1.OID$
AND O1.SUBNAME IS NULL /* LATEST TYPE VERSION */
/* TYPE$ PROPERTIES BITS:
8388608=0 - NOT TRANSIENT TYPE
262144=0 - LATEST TYPE VERSION
OTHER BITS=0 - NOT SYSTEM-GENERATED TYPE
*/
AND BITAND(TY.PROPERTIES
, 8388608+262144+2048+64+16)=0
AND TM.OBJ# = O2.OBJ#
AND BITAND(TM.PROPERTIES
, 16+32)=0 /* EXCLUDE SQLJ TYPE BODIES */
AND (SYS_CONTEXT('USERENV'
, 'CURRENT_USERID') IN (O2.OWNER#
, 0) OR
EXISTS ( SELECT *
FROM SYS.SESSION_ROLES
WHERE ROLE='SELECT_CATALOG_ROLE' ))
|
|
|