利用Oracle动态游标实现动态SQL循环遍历

create or replace procedure P_TEST_SQL is
TYPE ref_cursor_type IS REF CURSOR;  --定义一个动态游标
tablename varchar2(200) default 'ess_client';
v_sql varchar2(1000);
mobile varchar2(15);
usrs ref_cursor_type;
begin
--使用连接符拼接成一条完整SQL
v_sql := 'select usrmsisdn from '||tablename||' where rownum < 11';
--打开游标
open usrs for v_sql ;
loop
fetch usrs into mobile;
exit when usrs%notfound;
insert into tmp(usrmsisdn) values(mobile);
end loop;
close usrs;
commit;
end P_TEST_SQL;