oracle数组使用笔记

CREATE OR REPLACE Type dev_test Is Object(
c_Rcpt_No     Nvarchar2(50),  --收据号
c_clm_no      Nvarchar2(100)
)

--使用1
declare
  testObj dev_test;
begin

  testObj := dev_test('888', '9999');
  dbms_output.put_line(testObj.c_Rcpt_No);

exception
  when others then
    dbms_output.put_line(sqlcode || sqlerrm);
end;


--使用2
declare
  Type tt Is Table Of dev_test;
  testObj tt;
begin

  testObj := tt();
  testObj.Extend(1);
  testObj(1) := new dev_test('12', '43');

  dbms_output.put_line(testObj(1).c_Rcpt_No);
exception
  when others then
    dbms_output.put_line(sqlcode || sqlerrm);
end;