Question

如何在pl/sql developer中查看一个包的存储过程的定义

Answer 1

找到包，在上面鼠标右键，查看包说明与体。

Answer 2

Connected as SYS

SQL>
SQL> select text from all_source
2 where type='PACKAGE BODY'
3 and owner='SCOTT'
4 order by name,line;

TEXT
--------------------------------------------------------------------------------
PACKAGE BODY myDemoPack AS
FUNCTION prodFunc RETURN myTableType PIPELINED IS
BEGIN
FOR i in 1 .. 5
LOOP
PIPE ROW (myObjectFormat(i,SYSDATE+i,'Row '||i));
END LOOP;
RETURN;
END;
END;
package body pkg_show_emp as
function func_get_emp
return t_ref_cursor
as emp_ref_cursor t_ref_cursor;
begin
open emp_ref_cursor for
select * from emp;
return emp_ref_cursor;
end func_get_emp;
procedure pro_show_emp(ename_in in emp.ename%type) as
v_sign number;
v_empno emp.empno%type;
v_deptno emp.deptno%type;
begin
select 1 into v_sign
from dual
where exists(select 1 from emp where ename=ename_in);
if v_sign=1 then
select empno,deptno into v_empno,v_deptno
from emp where ename=ename_in;
dbms_output.put_line('information of '||ename_in||' are:');
dbms_output.put_line('empno:'||v_empno||',ename:'||ename_in||',de
end if;
exception
when others then
dbms_output.put_line('no data found');
end pro_show_emp;
end pkg_show_emp;

42 rows selected

SQL>