select u.name, o.name, o.obj#,
decode(o.type#, 7, 'PROCEDURE', 8, 'FUNCTION', 9, 'PACKAGE',
11, 'PACKAGE BODY', 12, 'TRIGGER', 13, 'TYPE', 14, 'TYPE BODY',
22, 'LIBRARY', 87, 'ASSEMBLY', 'UNDEFINED'), o.type#,
s.line, s.source, decode(bitand(o.flags, 196608), 65536, 1, 131072, 1, 0),
to_number(sys_context('USERENV', 'CON_ID'))
from sys."_CURRENT_EDITION_OBJ" o, sys.source$ s, sys.user$ u
where o.obj# = s.obj#
and o.owner# = u.user#
and ( o.type# in (7, 8, 9, 11, 12, 14, 22) OR
( o.type# = 13 AND o.subname is null))
union all
select u.name, o.name, o.obj#, 'JAVA SOURCE', o.type#, s.joxftlno,
s.joxftsrc, decode(bitand(o.flags, 196608), 65536, 1, 131072, 1, 0),
to_number(sys_context('USERENV', 'CON_ID'))
from sys."_CURRENT_EDITION_OBJ" o, x$joxscd s, sys.user$ u
where o.obj# = s.joxftobn
and o.owner# = u.user#
and o.type# = 28
SELECT U.NAME
, O.NAME
, O.OBJ#
,
DECODE(O.TYPE#
, 7
, 'PROCEDURE'
, 8
, 'FUNCTION'
, 9
, 'PACKAGE'
,
11
, 'PACKAGE BODY'
, 12
, 'TRIGGER'
, 13
, 'TYPE'
, 14
, 'TYPE BODY'
,
22
, 'LIBRARY'
, 87
, 'ASSEMBLY'
, 'UNDEFINED')
, O.TYPE#
,
S.LINE
, S.SOURCE
, DECODE(BITAND(O.FLAGS
, 196608)
, 65536
, 1
, 131072
, 1
, 0)
,
TO_NUMBER(SYS_CONTEXT('USERENV'
, 'CON_ID'))
FROM SYS."_CURRENT_EDITION_OBJ" O
, SYS.SOURCE$ S
, SYS.USER$ U
WHERE O.OBJ# = S.OBJ#
AND O.OWNER# = U.USER#
AND ( O.TYPE# IN (7
, 8
, 9
, 11
, 12
, 14
, 22) OR
( O.TYPE# = 13
AND O.SUBNAME IS NULL))
UNION ALL
SELECT U.NAME
, O.NAME
, O.OBJ#
, 'JAVA SOURCE'
, O.TYPE#
, S.JOXFTLNO
,
S.JOXFTSRC
, DECODE(BITAND(O.FLAGS
, 196608)
, 65536
, 1
, 131072
, 1
, 0)
,
TO_NUMBER(SYS_CONTEXT('USERENV'
, 'CON_ID'))
FROM SYS."_CURRENT_EDITION_OBJ" O
, X$JOXSCD S
, SYS.USER$ U
WHERE O.OBJ# = S.JOXFTOBN
AND O.OWNER# = U.USER#
AND O.TYPE# = 28
|
|
|