---1.变量独立多游标模式
create or replace procedure "QY_LC_RENT_INCOME" as
Begin
----1-----
declare
变量1,
变量2,
游标1,--游标也是变量
begin
open CODE_AREA_HIS;--打开游标
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条 遍历游标
while CODE_AREA_HIS%found loop --是否有下一条
--循环体
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条
end loop;--跳出循环体
CLOSE CODE_AREA_HIS;--关闭游标
end;
----2-----
declare
变量1,
变量2,
游标1,--游标也是变量
begin
open CODE_AREA_HIS;--打开游标
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条 遍历游标
while CODE_AREA_HIS%found loop --是否有下一条
--循环体
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条
end loop;--跳出循环体
CLOSE CODE_AREA_HIS;--关闭游标
end;
COMMIT;--提交
end QY_LC_RENT_INCOME;
----2变量总体多游标模式（把第一个游标中 end放到最后）
create or replace procedure "QY_LC_RENT_INCOME" as
Begin
----1-----
declare
变量1,
变量2,
游标1,--游标也是变量
begin
open CODE_AREA_HIS;--打开游标
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条 遍历游标
while CODE_AREA_HIS%found loop --是否有下一条
--循环体
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条
end loop;--跳出循环体
CLOSE CODE_AREA_HIS;--关闭游标
----2-----
declare
变量1,
变量2,
游标1,--游标也是变量
begin
open CODE_AREA_HIS;--打开游标
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条 遍历游标
while CODE_AREA_HIS%found loop --是否有下一条
--循环体
FETCH CODE_AREA_HIS INTO r_contract_number,r_plan_list;--读取吓一条
end loop;--跳出循环体
CLOSE CODE_AREA_HIS;--关闭游标
end;
COMMIT;--提交
end;
end QY_LC_RENT_INCOME;