数据库

定义游标：

    cursor calenderStatus_cur 
    is
    select * from ut_calenderStatus ;
    vr_calenderStatus      ut_calenderStatus % rowtype;

打开游标，提取游标中的数据到游标行中：

    open calenderStatus_cur;
        loop
          fetch calenderStatus_cur into vr_calenderStatus;
          exit when calenderStatus_cur % notfound;
          up_日历_产品开放期设置(pi_serviceid,pi_opid,vr_calenderStatus.Calenderstatus,vr_calenderStatus.Fundcode,'0',pi_rq,pi_begin,pi_end,
                                       vr_calenderStatus.m,vr_calenderStatus.n,vr_calenderStatus.Prolong,po_returnmsg ,po_returncode); 
          if po_returncode <> '0000' then
           rollback;
           return;
          end if;          
        end loop;
    close calenderStatus_cur;