SQL> SET NUMF 999999999999999999999999999999 
SQL> DECLARE 
TYPE C_TYPE IS REF CURSOR; 
CV C_TYPE; 
V_ONAME VARCHAR2(30); 
V_OWNER VARCHAR2(30); 
V_OBJID NUMBER; 
V_HASH NUMBER; 
BEGIN 
DBMS_OUTPUT.ENABLE(100000); 
OPEN CV FOR 'SELECT U.NAME,O.NAME,O.OBJ# FROM SYS.OBJ$ O, 
SYS.USER$ U WHERE O.OWNER#=U.USER# AND O.TYPE# = 11 
ORDER BY U.NAME'; 
LOOP 
FETCH CV INTO V_OWNER,V_ONAME,V_OBJID; 
EXECUTE IMMEDIATE 'SELECT 
SUM(SYS.DBMS_UTILITY.GET_HASH_VALUE 
(SOURCE,1,1073741824)) FROM SYS.SOURCE$ WHERE OBJ# = :1' 
INTO V_HASH USING V_OBJID; 

DBMS_OUTPUT.PUT_LINE(V_OWNER||'.'||V_ONAME||':'||V_HASH); 

EXIT WHEN CV%NOTFOUND; 
END LOOP; 
CLOSE CV; 
END; 
/

DECLARE 
TYPE C_TYPE IS REF CURSOR; 
CV C_TYPE; 
V_ONAME VARCHAR2(30); 
V_OWNER VARCHAR2(30); 
V_OBJID NUMBER:=52296; 
V_HASH NUMBER:=0; 
V_BUFFER LONG(32767); 
CUR NUMBER; 
RES NUMBER; 
POS NUMBER; 
LEN NUMBER; 
BEGIN 
DBMS_OUTPUT.ENABLE(1000000); 
OPEN CV FOR 'SELECT U.NAME,O.NAME,O.OBJ# FROM SYS.OBJ$ O, 
SYS.USER$ U WHERE U.USER# = O.OWNER# AND O.TYPE# = 12 ORDER BY 
U.NAME'; 
LOOP 
FETCH CV INTO V_OWNER,V_ONAME,V_OBJID; 
EXIT WHEN CV%NOTFOUND; 
CUR:=DBMS_SQL.OPEN_CURSOR; 
DBMS_SQL.PARSE(CUR,'SELECT T.ACTION# FROM SYS.TRIGGER$ T  
WHERE T.OBJ# = :1',DBMS_SQL.NATIVE); 
DBMS_SQL.BIND_VARIABLE(CUR, ':1', V_OBJID); 
DBMS_SQL.DEFINE_COLUMN_LONG (CUR, 1); 
RES := DBMS_SQL.EXECUTE_AND_FETCH (CUR); 
IF RES > 0 THEN 
POS:=0; 
V_HASH:=0; 
LOOP 
DBMS_SQL.COLUMN_VALUE_LONG( 
CUR,1,32767,POS,V_BUFFER,LEN); 
EXIT WHEN LEN = 0; 
V_HASH:= V_HASH + SYS.DBMS_UTILITY.GET_HASH_VALUE  
(V_BUFFER,1,1073741824); 
POS := POS + LEN; 
END LOOP; 
DBMS_SQL.CLOSE_CURSOR (CUR); 
END IF; 
DBMS_OUTPUT.PUT_LINE(V_OWNER||'.'||V_ONAME||':'||V_HASH); 
V_BUFFER:=NULL; 
END LOOP; 
CLOSE CV; 

END; 
/

DECLARE 
TYPE C_TYPE IS REF CURSOR; 
CV C_TYPE; 
V_ONAME VARCHAR2(30); 
V_OWNER VARCHAR2(30); 
V_OBJID NUMBER:=52296; 
V_HASH NUMBER:=0; 
V_BUFFER LONG(32767); 
CUR NUMBER; 
RES NUMBER; 
POS NUMBER; 
LEN NUMBER; 
BEGIN 
DBMS_OUTPUT.ENABLE(1000000); 
OPEN CV FOR 'SELECT U.NAME,O.NAME,O.OBJ# FROM SYS.OBJ$ O, 
SYS.USER$ U WHERE U.USER# = O.OWNER# AND O.TYPE# = 4 ORDER BY U.NAME, 
O.NAME'; 
LOOP 
FETCH CV INTO V_OWNER,V_ONAME,V_OBJID; 
EXIT WHEN CV%NOTFOUND; 
CUR:=DBMS_SQL.OPEN_CURSOR; 
 



DBMS_SQL.PARSE(CUR,'SELECT V.TEXT FROM SYS.VIEW$ V WHERE 
V.OBJ# = :1',DBMS_SQL.NATIVE); 
DBMS_SQL.BIND_VARIABLE(CUR, ':1', V_OBJID); 
DBMS_SQL.DEFINE_COLUMN_LONG (CUR, 1); 
RES := DBMS_SQL.EXECUTE_AND_FETCH (CUR); 
IF RES > 0 THEN 
POS:=0; 
V_HASH:=0; 
LOOP 
DBMS_SQL.COLUMN_VALUE_LONG( 
CUR,1,32767,POS,V_BUFFER,LEN); 
EXIT WHEN LEN = 0; 
V_HASH:= V_HASH + SYS.DBMS_UTILITY.GET_HASH_VALUE  
(V_BUFFER,1,1073741824); 
POS := POS + LEN; 
END LOOP; 
DBMS_SQL.CLOSE_CURSOR (CUR); 
END IF; 
DBMS_OUTPUT.PUT_LINE(V_OWNER||'.'||V_ONAME||':'||V_HASH); 
V_BUFFER:=NULL; 
END LOOP; 
CLOSE CV; 
END; 
/

DECLARE 
TYPE C_TYPE IS REF CURSOR; 
CV C_TYPE; 
V_ONAME VARCHAR2(30); 
V_OWNER VARCHAR2(30); 
V_OBJID NUMBER:=52296; 
V_HASH NUMBER:=0; 
V_BUFFER RAW(32767); 
CUR NUMBER; 
RES NUMBER; 
POS NUMBER; 
LEN NUMBER; 
BEGIN 
DBMS_OUTPUT.ENABLE(1000000); 
OPEN CV FOR 'SELECT U.NAME,O.NAME,O.OBJ# FROM SYS.OBJ$ O, 
SYS.USER$ U WHERE U.USER# = O.OWNER# AND O.TYPE# = 29 ORDER BY 
U.NAME'; 
LOOP 
FETCH CV INTO V_OWNER,V_ONAME,V_OBJID; 
EXIT WHEN CV%NOTFOUND; 
CUR:=DBMS_SQL.OPEN_CURSOR; 
DBMS_SQL.PARSE(CUR,'SELECT S.PIECE FROM SYS.IDL_UB1$ S 
WHERE S.OBJ# = :1',DBMS_SQL.NATIVE); 
DBMS_SQL.BIND_VARIABLE(CUR, ':1', V_OBJID); 
DBMS_SQL.DEFINE_COLUMN_RAW (CUR, 1, V_BUFFER, 32767); 
RES := DBMS_SQL.EXECUTE_AND_FETCH (CUR); 
IF RES > 0 THEN 
POS:=0; 
V_HASH:=0; 
DBMS_SQL.COLUMN_VALUE_RAW(CUR,1,V_BUFFER); 
V_HASH:= V_HASH + SYS.DBMS_UTILITY.GET_HASH_VALUE 
(V_BUFFER,1,1073741824); 
DBMS_SQL.CLOSE_CURSOR (CUR); 
END IF; 
DBMS_OUTPUT.PUT_LINE(V_OWNER||'.'||V_ONAME||':'||V_HASH); 
V_BUFFER:=NULL; 
END LOOP; 
CLOSE CV; 
END; 
/