动态游标可以遍历动态的表,
格式:
TYPE 游标类型 IS REF CURSOR; --定义一个动态游标
游标名 游标类型;
如果查询的表的数据不同的,动态变化的,这时候可以用动态游标。
需要注意的是,动态游标的定义,
在普通存储过程中:需要放在 is 后面的第一行。
动态游标通过:open 游标 for 字符串,形式使用,遍历。
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;
下面是一个实例
create or replace procedure DDGZ1--订单跟踪
(
P_flag varchar,--订单类型
P_operate varchar,--操作类型
P_BH varchar --传入的编号ID
)
is
TYPE ref_cursor_type IS REF CURSOR;
v_cur_CKD ref_cursor_type;
begin
open v_cur_CKD for 'select v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jlsj from tmp_DDGZ1';
fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;
while v_cur_CKD%found
loop
insert into DRPDDGZJL2 (JLID,DRP,ERP,JXS,JXSMC,JLSJ,GZJL,CZR,BHID) values(SYS_GUID(),v_drp,v_erp,v_jxs,v_jxsmc,v_jzsj,v_DWMC||'受托代销成品库接收订单,组织发货',v_CZR,'出库单'||P_BH);
fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;
end loop;
close v_cur_CKD;
end;