oracle 复合变量 record

create or replace procedure twininfo_info

is
  type t_rec is record(
   sjxl twininfo.actsellamt%type,
   yxxl twininfo.validsellamt%type,
   wingrade twininfo.wingrade%type,
   winmoney twininfo.winmoney%type,
   winnum   twininfo.winnumber%type,
   forward  twininfo.forwardamt%type
  );

  v_rec t_rec;
  v_info varchar2(1000);

begin

   select w.actsellamt,w.validsellamt,w.wingrade,w.winmoney ,w.winnumber,w.forwardamt into v_rec  from twininfo w where rownum=1;

 
      dbms_output.put_line(v_rec.sjxl);
  


end;

调用：

declare

begin
  
twininfo_info;
end;

注意：
record 是单个的复合变量

游标的例子

declare
v_agencyflowno varchar2(60);
v_realflowno varchar2(60);
type t_cur is ref cursor;
v_cur t_cur;
begin
dbms_output.enable(1000000);
     
  open v_cur for
  select agencyflowno,flowno  from(
  select m.agencyflowno,t.flowno from tlotmap m left join tlot t on t.torderid=m.realflowno 
where m.agencyno=t.userno and m.agencyno='00872034') ;
  fetch v_cur into v_agencyflowno,v_realflowno;
  while v_cur%found
    loop 
      
        dbms_output.put_line(v_agencyflowno||'---'||v_realflowno); 
         update  tlotmap  set realflowno=v_realflowno where agencyflowno=v_agencyflowno;
     fetch v_cur into v_agencyflowno,v_realflowno;
        end loop;                
  close v_cur;
end;