oracle游标批量处理数据
declare
我们拥有十年网页设计和网站建设经验,从网站策划到网站制作,我们的网页设计师为您提供的解决方案。为企业提供成都网站设计、成都网站制作、微信开发、小程序开发、成都手机网站制作、H5技术、等业务。无论您有什么样的网站设计或者设计方案要求,我们都将富于创造性的提供专业设计服务并满足您的需求。
--开始时间
v_date_start date:= to_date('2015-05-28 00:00:00', 'yyyy-mm-dd hh34:mi:ss');
--结束时间
v_date_end date:= to_date('2015-11-01 00:00:00', 'yyyy-mm-dd hh34:mi:ss');
--临时变量
v_date_plus date;
type type_policy_no is table of ply_base_info.policy_no%type;
v_policy_no type_policy_no;
type type_compensation_max_amount is table of ply_duty.compensation_max_amount%type;
v_compensation_max_amount type_compensation_max_amount;
type type_id_ply_duty is table of ply_duty.id_ply_duty%type;
v_id_ply_duty type_id_ply_duty;
type type_insurance_end_date is table of ply_base_info.insurance_end_date%type;
v_insurance_end_date type_insurance_end_date;
cursor plyNumberCur is
select
pbi.policy_no,
pd.compensation_max_amount,
pd.cover_spouse,
pdn.noclaim_rate,
pdn.noclaim_amount,
pd.id_ply_duty,
trunc(pbi.insurance_end_date)
from ply_base_info pbi,
marketproduct_info mi,
ply_risk_group prg,
ply_plan pp,
ply_duty pd,
ply_duty_noclaim pdn
where pbi.created_date >=v_date_start
and pbi.created_date < v_date_plus
and pbi.policy_no is not null
and pbi.product_code= mi.marketproduct_code
and pbi.product_version=mi.version
and mi.product_class in ('02','03')
and pbi.id_ply_base_info = prg.id_ply_base_info
and prg.id_ply_risk_group = pp.id_ply_risk_group
and pp.id_ply_plan = pd.id_ply_plan
and pd.id_ply_duty = pdn.id_ply_duty(+);
v_cnt number;--用来统计是否有数据
begin
loop
v_date_plus:=v_date_start+1;--时间变化,查询游标时,每天查询一次
open plyNumberCur;--打开游标
loop
--每1000条记录取一次,最后一次不够1000的也将取出,放到变量中
fetch plyNumberCur bulk collect into
v_policy_no,v_compensation_max_amount,v_id_ply_duty,v_insurance_end_date limit 1000 ;
for i in 1..v_policy_no.count loop
if v_compensation_max_amount(i) > 0 then
select count (pda.id_ply_duty) into v_cnt from ply_duty_attribute pda where pda.id_ply_duty = v_id_ply_duty(i) and pda.duty_attr_code='6';
if v_cnt>0 then
update ply_duty_attribute pda set pda.duty_attr_amount_value=to_char(v_compensation_max_amount(i)), pda.UPDATED_BY='lxg' where pda.id_ply_duty = v_id_ply_duty(i) and pda.duty_attr_code='6' and pda.UPDATED_BY<>'lxg';
else
insert into ply_duty_attribute(ID_PLY_DUTY_ATTRIBUTE,ID_PLY_DUTY,DUTY_ATTR_CODE,DUTY_ATTR_AMOUNT_VALUE ,POLICY_NO, CREATED_DATE,CREATED_BY,UPDATED_DATE,UPDATED_BY,ARCHIVE_DATE)
values(sys_guid(),v_id_ply_duty(i),'6',to_char(v_compensation_max_amount(i)),v_policy_no(i),sysdate,'lxg',sysdate,'lxg',v_insurance_end_date(i));
end if;
end if;
end loop;--for end;
commit;
--当游标中没有数据将退出
exit when plyNumberCur%notfound;
end loop; --for end;
close plyNumberCur;
v_date_start:= v_date_start+1;
if v_date_start>= v_date_end then
exit;
end if;
end loop; --loop
end;
/
本文名称:oracle游标批量处理数据
URL链接:http://myzitong.com/article/gihhhc.html