在Oracle过程中使用游标

create or replace procedure SS_C002_tm14to13(p_errcode out number,
p_errtext out varchar2) is
/*
isbn转换条码,14位错误的转换成13位正确的
yc
2008-04-18
*/

cursor c_gckc is
select *
from t_gckc
where length(isbn)=14;

v_isbn varchar2(20);
v_tm varchar2(30); --条码
v_rowcount number(12, 0) := 0;
v_row number(12, 0) := 0;
v_sysdate date;
v_isbn2 varchar2(20); --原书号
v_rows number(12, 0) := 0;
begin
v_sysdate := sysdate;
--循环读取数据
for vc_gckc in c_gckc loop
v_rows := v_rows + 1;
v_isbn2 := vc_gckc.isbn; --原书号

v_tm:=substr(v_isbn2,1,12)||'0';
--计算库存是否有记录
select count(*)
into v_row
from t_gckc
where dm = vc_gckc.dm
and xydm = vc_gckc.xydm
and isbn = v_tm;
--没有，进行修改
if v_row = 0 then
update t_gckc
set isbn = v_tm, gxrq = v_sysdate
where dm = vc_gckc.dm
and xydm = vc_gckc.xydm
and isbn = vc_gckc.isbn;

end if;
--记录数
v_rowcount := v_rowcount + 1;

if v_rows = 1000 then
commit;
v_rows := 0;
end if;
end loop;
--提交数据
commit;
p_errcode := 0;
p_errtext := '共' || v_rowcount || '条记录转换成功';
exception
when others then
rollback;
p_errcode := -1;
p_errtext := '[' || v_isbn2 || ']错误信息:' || sqlerrm;
end;