Reg. Extracting DML/ DDL Stmnts.

Question

hi ,
I dont have access to Db . So I apologise straight away for not trying out the code myself to interpret and scrutinise.
The code is to extract DML / DDL stmnts from all_procedures. and I have tried a sample (select stmnt) of it . Please let me know if its wrong or working fine.
create or replace procedure sp_identify_stmnts (i_table in varchar2)
is
i_text varchar2(32767);
begin
select REGEXP_SUBSTR(replace(text,chr(10)),'select+;$',1,1000,'i') into i_text from ALL_PROCEDURES where
PROCEDURE_NAME=i_table ;
dbms_output.put_line('text is ' || i_text);
end;
/Oracle 10g release 2

Answer 1

It won't work, because ALL_PROCEDURES has no TEXT column with code.
I think you have to use something like this:
select text
from all_source
where type='PROCEDURE'
  and owner=:proc_owner
  and name=:proc_name
order by line -- code is splittet in multiple lines
;