数组的用法（Record）

好久没用了，突然用到，语法都忘了。

/*create table xxuts_record_test
(
 A number,
 b number
) 

select * from xxuts_record_test for update
*/

Declare

     TYPE WK IS RECORD(
  A   NUMBER,
  B   NUMBER);
   
 TYPE R_WK IS TABLE OF WK INDEX BY BINARY_INTEGER;
 
  REC_WK WK;
  rr_wk R_WK;
 
  Cursor c1 is
  select * from xxuts_record_test;
 
  i number := 0;
Begin

   For c2 in c1 loop
     
      REC_WK.a := c2.a;
      REC_WK.b := c2.b;
      rr_wk(i) := rec_wk;
      i := i + 1;
     
   End loop;
  
   dbms_output.put_line(rr_wk(0).a);
   dbms_output.put_line(rr_wk(0).b);
   dbms_output.put_line(rr_wk(1).a);
   dbms_output.put_line(rr_wk(1).b);
   dbms_output.put_line(rr_wk(2).a);
   dbms_output.put_line(rr_wk(2).b);
   dbms_output.put_line(rr_wk(3).a);
   dbms_output.put_line(rr_wk(3).b);
  

End;