How to extract the details of the stored procedures in the database?

Question

Dear all,
How to extract the details of them?
Bst Rgds,
Edward

Answer 1

Hi Wa-Man Edward Chan,
Following is the PLSQL Block Which Will Give Package, Procedure, Function Source
set verify off
undefine which_object;
undefine which_line;
declare
Shows lines with context of:
VIEW
FUNCTION
PROCEDURE
TRIGGER
PACKAGE SPECIFICATION
PACKAGE BODY
The script uses to temporary tables ERROR_TABLE_TEMP and ERROR_CLOB_TEMP created with:
CREATE GLOBAL TEMPORARY TABLE ERROR_TABLE_TEMP(line number, text varchar2(4000));
CREATE GLOBAL TEMPORARY TABLE ERROR_CLOB_TEMP(TEXT CLOB);
v_offset number:= 5; -- Controls how many lines before and after the line in focus are to be shown
v_obj_name varchar2(100);
v_obj_type varchar2(100);
v_obj_type_new varchar2(100);
v_obj_line number;
v_counter number := 0;
v_text varchar2(32767);
v_subtext varchar2(1000);
v_from number;
v_len number;
v_marker varchar2(10);
v_found number;
v_line_from number;
v_line_to number;
v_long_text clob;
procedure ins_line (p_text in varchar2) is
begin
v_counter := v_counter + 1;
insert into error_table_temp(line,text)
values (v_counter,p_text);
end;
begin
delete error_table_temp;
select ltrim(rtrim(upper('&which_object'))), nvl(to_number('&which_line'),0)
into v_obj_name, v_obj_line
from dual;
begin
select decode(object_type,'PACKAGE','PACKAGE BODY',object_type)
into v_obj_type
from user_objects
where object_name = v_obj_name
and nvl(v_obj_line,0) > 0
and rownum = 1;
exception when no_data_found then
ins_line('ERROR: Object/line not found');
return;
end;
ins_line(v_obj_name||' ('||v_obj_type||')');
if v_obj_type in ('PACKAGE BODY','PACKAGE','FUNCTION','PROCEDURE') then
v_obj_type_new := v_obj_type;
ins_line('----------------------- PROGRAM LISTING -------------------------');
for code in (select trim(text) text, lpad(line,4,' ')||' '||decode(line,v_obj_line,'>>>>> ',' ') marker, type
from user_source
where name = v_obj_name
and line between v_obj_line-v_offset and v_obj_line+v_offset
order by decode(type,v_obj_type,1,2),line) loop
if v_obj_type_new != code.type then
ins_line(null);
v_obj_type_new := code.type;
v_counter := -100000; -- In order to show specification before body
ins_line(v_obj_name||' ('||v_obj_type_new||')');
ins_line('----------------------- PROGRAM LISTING -------------------------');
end if;
ins_line(code.marker||code.text);
end loop;
elsif v_obj_type = 'VIEW' then
select text
into v_text
from user_views
where view_name = v_obj_name;
v_line_from := v_obj_line-v_offset;
v_line_to := v_obj_line+v_offset;
v_obj_line := v_obj_line -1;
ins_line('------------------------------- PROGRAM LISTING -------------------------------');
for i in v_line_from..v_line_to loop
begin
if i = v_obj_line then
v_marker := '>>>>> ';
else
v_marker := ' ';
end if;
if i = 0 then
v_from := 0;
v_len := instr(v_text,chr(10));
else
v_from := instr(v_text,chr(10),1,i);
v_len := instr(v_text,chr(10),1,i+1) - v_from;
end if;
v_subtext := substr(v_text,v_from+1,v_len-1);
if v_len > 0 then
ins_line(lpad(to_char(i+1),4,' ')||' '||v_marker||v_subtext);
end if;
exception when others then
null;
end;
end loop;
elsif v_obj_type = 'TRIGGER' then
ins_line('----------------------- PROGRAM LISTING -------------------------');
delete error_clob_temp;
execute immediate 'insert into error_clob_temp (text) '||
'select to_lob(trigger_body) '||
'from user_triggers ' ||
'where trigger_name = '''||v_obj_name||'''';
select text
into v_long_text
from error_clob_temp;
v_obj_line := v_obj_line-1;
v_line_from := v_obj_line-v_offset;
v_line_to := v_obj_line+v_offset;
for i in v_line_from..v_line_to loop
begin
if i = v_obj_line then
v_marker := '>>>>> ';
else
v_marker := ' ';
end if;
if i = 0 then
v_from := 0;
v_len := dbms_lob.instr(v_long_text,chr(10));
else
v_from := dbms_lob.instr(v_long_text,chr(10),1,i);
v_len := dbms_lob.instr(v_long_text,chr(10),1,i+1) - v_from;
end if;
v_subtext := dbms_lob.substr(v_long_text,v_len-1,v_from+1);
if v_len > 0 then
ins_line(lpad(to_char(i+1),4,' ')||' '||v_marker||v_subtext);
end if;
exception when others then
null;
end;
end loop;
end if;
if v_counter = 0 then
ins_line('*********** NO CODE FOUND ***********');
else
ins_line(null);
end if;
exception when others then
ins_line('*********** ERROR: NOT POSSIBLE TO SHOW THE CODE ***********');
ins_line(' FEJL: '||sqlerrm);
end;
set linesize 4000
set heading off
set feedback off
set verify on
select text
from error_table_temp
order by line;
set linesize 80
set heading on
set feedback on
Prashant