(cursor用法一例 )小灵通群发过程

CREATE OR REPLACE procedure  game.proNumberXLT_qunfa
is
vusernumber varchar2(30);
cursor  get_usernumberxlt_tel  is
       select usernumber  from  game.xlt;
begin

       for  usernumber  in get_usernumberxlt_tel  loop
           sms.procCreateSmsCM30('',usernumber.usernumber,usernumber.usernumber,'!咨询:02986530576',1,'');    
       end loop;
end  proNumberXLT_qunfa;

----------------------------
CREATE OR REPLACE procedure proNumberXLT_operate
is
vusernumber varchar2(30);
cursor  get_usernumberxlt_tel  is
       select usernumber  from  game.numberxlt;
begin

       for  usernumber_record  in get_usernumberxlt_tel  loop
          vusernumber:='in'||usernumber_record.usernumber||')';
      
   update game.numberxlt set usernumber=vusernumber where usernumber=usernumber_record.usernumber;
  
       end loop;
end  proNumberXLT_operate;
/