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;
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> --这些信息(Procedure,Function,Package,Trigger)都可以从all_objects视图里面获得
view spec & body不就可以吗?
然后选择第二个选项卡就是包体了