本人写的第一个PL/SQL过程

看到别人在论坛的提问：
一个表的效率问题
今天碰到2张表
1张 有字段
表A有
jtbh(家庭编号) hzxm(户主姓名) hnbh(户内最大编号) 
1000          张三            03
1001          赵六..........................
表B有
grbh（个人编号=家庭编号+2位户内编号) xm(姓名) gz(工资)
100001                          张三      1000
100002                          李四      1000
100003                          王五      1000
2张表数据几十W。。。。现在由于之前维护不好，表A的最大编号没有更新，例如表B 1001这户人有4个编号，100101，100102 ，100103，100105这样，但是我表A户内最大编号可能只到了04，而实际上要到05，请问各位大侠如何更新有效率，我自己写了个效率太低了。。。。。
于是写了下面的过程，第一次写，记录一下。
CREATE PROCEDURE update_for_csdner();
  CURSOR v_cursor IS SELECT MAX(substr(grbh, 4, 2)) hnbh, substr(grbh, 0, 4) jtbh from b GROUP BY substr(grbh, 0, 4);
  v_jtbh VARCHAR2(4);
  v_hnbh VARCHAR2(2);
BEGIN
  OPEN v_cursor;
  LOOP
    FETCH v_cursor INTO v_hnbh, v_jtbh;
    EXIT WHEN v_cursor%NOTFOUND;
    UPDATE A SET hnbh = v_hnbh WHERE jtbh = v_jtbh;
    COMMIT;
  END LOOP;
  CLOSE v_cursor;
END;