Oracle 10g使用游标遍历表数据

Oracle 10g使用游标遍历表数据，代码如下：

CREATE OR REPLACE PROCEDURE PRO_SENDMSG
IS
--创建游标，用于遍历单位表数据
CURSOR MYCUS IS
       SELECT U.UNITINFO_ID,U.UNITINFO_NAME FROM T_ER_UNITINFO U WHERE U.UNITINFO_TYPE=13;
TYPE rowType IS RECORD(
    id NUMBER,
    name NVARCHAR2(100)
);
currRowType rowType;
UnitID NUMBER;  --单位ID
UnitName NVARCHAR2(100);  --单位名称
BEGIN
   --1、遍历单位ID，单位名称
     OPEN MYCUS; --开启游标
     LOOP
     FETCH MYCUS INTO currRowType;
     EXIT WHEN  MYCUS%NOTFOUND;
     UnitID:=currRowType.id; --为要的值：单位ID
     UnitName:=currRowType.name; --为要的值：单位名称

     Dbms_Output.put_line(UnitID); --输出值

     END LOOP;
     CLOSE MYCUS; --关闭游标
END PRO_SENDMSG;