ORACLE数据库中如何调试Type

icgkndmpcg

一般碰到ORACLE有需要调试存储过程参数中有是TYPE、LIST集合的时候，一般调试起来都比较麻烦。
现在用一种比较简单的方式展现下

TYPE代码

--子TYPE
CREATE OR REPLACE TYPE RSS_STR_OBJECT_TYPE IS OBJECT
(
str_value varchar2(200)
);
grant Execute on rssdata.RSS_STR_OBJECT_TYPE to rssopr;
grant execute on rssdata.RSS_STR_OBJECT_TYPE to r_rssdata_Exec;

--父TYPE代码
CREATE OR REPLACE TYPE RSS_STR_OBJECT_TYPE_LIST IS TABLE OF rssdata.RSS_STR_OBJECT_TYPE
grant Execute on rssdata.rss_str_object_type_list to rssopr;
grant execute on rssdata.rss_str_object_type_list to r_rssdata_Exec;

2.简单的存储过程

PROCEDURE rss_test_type_list_pro(in_rss_str_object_type_list IN rss_str_object_type_list,
out_retcode                 OUT Varchar2,
out_message                 OUT Varchar2) IS
i NUMBER;
begin
--修改对计数器赋值应该放到LOOP外面
i := in_rss_str_object_type_list.first;
LOOP

INSERT INTO TEST
(D)
VALUES
(in_rss_str_object_type_list(i).str_value);
EXIT WHEN i = in_rss_str_object_type_list.last;
i := in_rss_str_object_type_list.next(i);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
out_retcode := '9';
out_message := '[rss_test_type_list_pro]错误信息' || SQLCODE || ',' ||
SUBSTR(SQLERRM, 1, 120);
END rss_test_type_list_pro;

3. 调试的时候的存储过程匿名块书写

declare
-- 首先初始化这个需要测试的对象  创建一个对象
in_rss_str_object_type_list rss_str_object_type_list:= rss_str_object_type_list();
-- 再对其中需要测试的一个集合变量m1赋值
in_rss_str_object_type_m1 rss_str_object_type := rss_str_object_type('深圳常兴支行');
begin
-- 调用存储过程的时候开始
in_rss_str_object_type_list.extend();
--将成员m1赋值给集合的最后一个元素
in_rss_str_object_type_list(in_rss_str_object_type_list.last) := in_rss_str_object_type_m1;
rss_test.rss_test_type_list_pro(in_rss_str_object_type_list => in_rss_str_object_type_list,
out_retcode => :out_retcode,
out_message => :out_message);
end;