SQL> ed
Wrote file afiedt.buf

  1  declare
  2   v_ename varchar2(20);
  3   v_dname varchar2(20);
  4   procedure p(p_empno in number,p_ename out varchar2,p_dname out varchar2) as
  5     v_deptno number;
  6   begin
  7    execute immediate 'select ename,deptno from emp e where e.empno=:1' into p_ename,v_deptno using p_empno;
  8    execute immediate 'select dname from dept d where d.deptno=:1' into p_dname using v_deptno;
  9    null;
 10   end;
 11  begin
 12   p(7369,v_ename,v_dname);
 13   dbms_output.put_line(v_ename||' работает в '||v_dname);
 14* end;
SQL> /
SMITH работает в RESEARCH

PL/SQL procedure successfully completed.