select '1','1', r.name, u.name, o.name, decode(o.type#, 7, 'PROCEDURE',
8, 'FUNCTION',
9, 'PACKAGE',
13, 'TYPE',
'UNDEFINED'),
c.obj#, c.privilege#
from sys.obj$ o, sys.user$ u, sys.user$ r, sys.codeauth$ c
where o.obj# = c.obj# and u.user# = o.owner# and
(c.privilege#=r.user# and r.type#=0)
SELECT '1'
, '1'
, R.NAME
, U.NAME
, O.NAME
, DECODE(O.TYPE#
, 7
, 'PROCEDURE'
,
8
, 'FUNCTION'
,
9
, 'PACKAGE'
,
13
, 'TYPE'
,
'UNDEFINED')
,
C.OBJ#
, C.PRIVILEGE#
FROM SYS.OBJ$ O
, SYS.USER$ U
, SYS.USER$ R
, SYS.CODEAUTH$ C
WHERE O.OBJ# = C.OBJ#
AND U.USER# = O.OWNER# AND
(C.PRIVILEGE#=R.USER#
AND R.TYPE#=0)
|
|
|