如何查看已封装的ORACLE程序包体的原代码

查看Oracle的dba用户创建的directories:select * from dba_directories--select * from all_directories查看表空间使用的数据文件位置：select name from v$datafile查看临时表空间使用的数据文件位置：select name from v$tempfile查看dba用户创宴正纤建的表空间数据晌仿文件位置：select file_name from dba_data_files查看dba用户创建的临时表空清手间数据文件位置：select file_name from dba_temp_files当然，查看dba用户的相关信息时需要登录有dba权限的数据库用户

create or replace package pk2 is

  闷肆procedure jobs(empid scott.emp.job%type,numbs out number)

  function depts(deptid scott.emp.deptno%type) return number

end pk2

/

create or replace package body pk2 is

  procedure jobs(empid scott.emp.job%type,numbs out number) is

  begin

    select count(*)

       into numbs

      from emp

    where job = empid

 exception

 蚂乱轿    when others then

        numbs := 0

  end

  function depts(deptid scott.emp.deptno%type) return number is

    陪缺numbs number

  begin

    select count(*)

       into numbs

      from emp

    where deptno = deptid

    return numbs

 exception

     when others then

        return 0

  end

end pk2

/

视图洞拦坦的名称 和 存储过程包体名称别一样 换换试试

还有 函数不能像这纳桐样调用啊

你这样调用 只能是衡兄用procedure 不能用函数方法 具体你自己调试编译一下吧 编译成功应该就O了。。

create or replace package fs_view_param is

procedure get_value return varchar2

procedure set_value(ps_time in varchar2)

end fs_view_param

create or replace package body fs_view_param is

m_v varchar2(6)

procedure set_value(ps_time in varchar2) is

begin

m_v := ps_time

end

procedure get_value return varchar2 is

begin

return m_v

end

end fs_view_param

---