清理重复姓名多个主键的I的存储过程 update 不成功

create or replace
PROCEDURE update_new(param in varchar2) IS
CURSOR cur1 IS SELECT l.id from leaguer l where l.imei =param order by l.id desc;
curid number :=0;
idx number := 1;
maxId number;
msg varchar2(200);
BEGIN
BEGIN
OPEN cur1;
LOOP

FETCH cur1 INTO curid;
EXIT WHEN cur1%NOTFOUND;

dbms_output.put_line(curid);
if idx = 1 then
maxId := curid;
idx :=2;
else
msg := to_char(maxId);
msg := msg || '-';
msg := msg || to_char(curid);

update PRODUCT_CLICK qb set qb.leaguer_id = maxId where qb.leaguer_id = curid;
if sql%rowcount >0 then
msg := msg ||' PRODUCT_CLICK ' ||to_char(sql%rowcount);
end if;





dbms_output.put_line(msg);
msg := null;
commit;
end if;

END LOOP;
CLOSE cur1;

END;
END update_new ;


CREATE OR REPLACE PROCEDURE loopImei IS
CURSOR cur1 IS SELECT imei from leaguer group by imei having count(imei)>1;
imei varchar(200);
BEGIN
BEGIN
OPEN cur1;
LOOP

FETCH cur1 INTO imei;
EXIT WHEN cur1%NOTFOUND;

if not imei is null then
-- dbms_output.put_line(imei);
update_new(imei);
end if;
END LOOP;
CLOSE cur1;
END;
END loopImei;


过程遇到的问题：
1、update不成功，因为我一开始curid的声明为id，而在leaguer表中就有id字段，变为curid即可。
总是遗漏end if；导致报错。

异常处理，写上后报错。未找到原因。