动态SQL和PL/SQL的EXECUTE选项分析

　　
　　 begin
　　　execute immediate 'set role all';
　　 end;

　　
　　 declare
　　　l_depnam varchar2(20) := 'testing';
　　　l_loc　　varchar2(10) := 'Dubai';
　　　begin
　　　execute immediate 'insert into dept values　(:1, :2, :3)'
　　　　using 50, l_depnam, l_loc;
　　　commit;
　　 end;

　　
　　 declare
　　　l_cnt　　varchar2(20);
　　 begin
　　　execute immediate 'select count(1) from emp'
　　　　into l_cnt;
　　　dbms_output.put_line(l_cnt);
　　 end;

　　
　　 declare
　　　l_routin　 varchar2(100) := 'gen2161.get_rowcnt';
　　　l_tblnam　 varchar2(20) := 'emp';
　　　l_cnt　　　number;
　　　l_status　 varchar2(200);
　　 begin
　　　execute immediate 'begin '  l_routin  '(:2, :3, :4); end;'
　　　　using in l_tblnam, out l_cnt, in out l_status;
　　
　　　if l_status != 'OK' then
　　　　 dbms_output.put_line('error');
　　　end if;
　　 end;

　
　　 declare
　　　type empdtlrec is record (empno　number(4),
　　　　　　　　　　　　　　　 ename　varchar2(20),
　　　　　　　　　　　　　　　 deptno　number(2));
　　　empdtl empdtlrec;
　　 begin
　　　execute immediate 'select empno, ename, deptno ' 
　　　　　　　　　　　 'from emp where empno = 7934'
　　　　into empdtl;
　　 end;

　　
　　 declare
　　　l_dept　　pls_integer := 20;
　　　l_nam　　 varchar2(20);
　　　l_loc　　 varchar2(20);
　　 begin
　　　execute immediate 'select dname, loc from dept where deptno = :1'
　　　　into l_nam, l_loc
　　　　using l_dept ;
　　 end;

　　 
　　 declare
　　　l_sal　 pls_integer := 2000;
　　 begin
　　　execute immediate 'insert into temp(empno, ename) ' 
　　　　　　　　　　　 '　　　　　select empno, ename from emp ' 
　　　　　　　　　　　 '　　　　　where　sal > :1'
　　　　using l_sal;
　　　commit;
　　 end;