View defination privilege on Procedures by all the users

Question

Hello,
I was looking for some query where i can view the defination or select the procedures of any schema
for example we have procedures owned by ML schema, other users such as fft, fft_read etc wants to view the defination of the procedures or select privileges on the procedures owned by ML Schema.
is there anything like grant select any procedure owned by any schema can view the procedures by all other schema's in the database.
Thanks

Answer 1

You can not grant select on a procedure;
SQL> grant select on tsb.example_defaults to test01;
grant select on tsb.example_defaults to test01
ERROR at line 1:
ORA-02225: only EXECUTE and DEBUG privileges are valid for procedures
However, you can grant debug on the objects and then you will be able to see the definitions from ALL_SOURCE. Additionally they will still not be able to excute the code.
SQL> select object_name from all_objects where object_type='PROCEDURE' and owner='TSB';
OBJECT_NAME
NEW_EXAMPLE
EXAMPLE_DEFAULTS
SQL> connect test01/password
Connected.
SQL>  select object_name from all_objects where object_type='PROCEDURE' and owner='TSB';
no rows selected
SQL> connect tsb
Enter password:
Connected.
SQL> select 'GRANT DEBUG ON TSB.'||OBJECT_NAME||' TO TEST01;'  from all_objects where object_type='PROCEDURE' and owner='TSB';
*'GRANTDEBUGONTSB.'||OBJECT_NAME||'TOTEST01;'*
GRANT DEBUG ON TSB.NEW_EXAMPLE TO TEST01;
GRANT DEBUG ON TSB.EXAMPLE_DEFAULTS TO TEST01;
SQL> GRANT DEBUG ON TSB.NEW_EXAMPLE TO TEST01;
Grant succeeded.
SQL> GRANT DEBUG ON TSB.EXAMPLE_DEFAULTS TO TEST01;
Grant succeeded.
SQL> CONNECT test01/test01
Connected.
SQL>  select text from all_source where owner='TSB' order by name, line;
TEXT
procedure example_defaults
*(n_1 in number :=5,*
n_2 in number :=6,
n_3 in number :=7)
as
begin
dbms_output.put_line(n_1||n_2||n_3);
end;
procedure new_example
*(n_1 in number :=8,*
n_2 in number :=10)
as begin
dbms_output.put_line(n_1+n_2);
end;
*14 rows selected.*
SQL> set serveroutput on
SQL> exec tsb.example_defaults(1,2,3);
BEGIN tsb.example_defaults(1,2,3); END;
ERROR at line 1:
ORA-06550: line 1, column 11:
PLS-00904: insufficient privilege to access object TSB.EXAMPLE_DEFAULTS
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
Hope this helps.
Regards
Tim