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

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'