--创建
CREATE OR REPLACE TYPE type_arrears AS OBJECT
(
pmaa001 VARCHAR2(20)
) ;
CREATE OR REPLACE TYPE type_arrears_tbl AS TABLE OF type_arrears ;
--测试调用
declare
-- Non-scalar parameters require additional processing
type_pmaa001 type_arrears_tbl;
begin
type_pmaa001:=type_arrears_tbl();
type_pmaa001.extend(1);
type_pmaa001(1):='2NT0186';
-- Call the procedure
arrears(type_pmaa001 => type_pmaa001,
sdate => :sdate,
edate => :edate,
refOut => :refOut,
l_return => :l_return);
end;