[Oracle] 如何实现只授予用户查看存储过程定义的权限

PRIVILEGE NAME      PROPERTY 
 
--------- ---------------------------------------- ---------- 
 
  -140 CREATE PROCEDURE     0 
 
  -141 CREATE ANY PROCEDURE    0 
 
  -142 ALTER ANY PROCEDURE    0 
 
  -143 DROP ANY PROCEDURE    0 
 
  -144 EXECUTE ANY PROCEDURE    0 
 
  -241 DEBUG ANY PROCEDURE    0

CREATE OR REPLACE PROCEDURE ESCMUSER.PROC_TEST 
 
AS 
 
BEGIN 
 
 DBMS_OUTPUT.PUT_LINE('It is only test'); 
 
END;

SQL> create user temp identified by temp; 
 
User created. 
 
SQL> grant connect,resource to temp; 
 
Grant succeeded.

SQL> COL GRANTEE FOR A12; 
 
SQL> COL TABLE_NAME FOR A30; 
 
SQL> COL GRANTOR FOR A12; 
 
SQL> COL PRIVILEGE FOR A8; 
 
SQL> SELECT * FROM USER_TAB_PRIVS_MADE WHERE GRANTEE='TEMP'; 
 
 
GRANTEE  TABLE_NAME  GRANTOR  PRIVILEGE  GRA HIE 
 
---------- --------------------- ------------ --------------------------- --- --- 
 
TEMP   PROC_TEST  ESCMUSER  DEBUG   NO NO 
 
TEMP   PROC_TEST  ESCMUSER  EXECUTE   NO NO 
 
 
SQL>

SQL>REVOKE ALL ON PROC_TEST FROM TEMP; 
 
SQL>GRANT DEBUG ON PROC_TEST TO TEMP;

SQL> SET SERVEROUT ON; 
 
SQL> EXEC escmuser.proc_test; 
 
begin escmuser.proc_test; end; 
 
ORA-06550: line 2, column 16: 
 
PLS-00904: insufficient privilege to access object ESCMUSER.PROC_TEST 
 
ORA-06550: line 2, column 7: 
 
PL/SQL: Statement ignored

SELECT * FROM ALL_SOURCE WHERE NAME='PROC_TEST'