存储过程游标的使用

create or replace procedure MAS_SEND_STATUS_UPDATE(mid in varchar2) is
v_status number;
v_phone varchar2(20);
v_mid  varchar2(21);
type cursor is ref cursor;
proparmList cursor;
begin
  
   open proparmList for select sendstatus,sendphone,sendsrcid from t_send_sms where sendstatus!=400 and sendsrcid=mid;
   loop
   fetch proparmList into v_status,v_phone,v_mid;
   update mas_send set s_sendflag=0 where mobile_phone=v_phone and m_id=substr(v_mid,10);
   exit when proparmList%notfound;
   end loop;
   close proparmList;
end MAS_SEND_STATUS_UPDATE;