authorized_emps_4.sql

OReilly Oracle PL SQL Programming第4版源代码

create or replace function authorized_emps
(
   p_schema_name    in varchar2,
   p_object_name    in varchar2
)
return varchar2
is
  l_deptno            number;
  l_return_val        varchar2(2000);
begin
  if (p_schema_name = USER) then
     l_return_val := null;
  else
     select deptno
     into l_deptno
     from emp
     where ename = SYS_CONTEXT ('WEB_CTX','WEBUSER');
     l_return_val := 'DEPTNO = '||l_deptno;
  end if;
  return l_return_val;
end;