复制代码代码如下所示：
通过对2010 / 11王楠 / 04创建
声明
-这里的局部变量
我的整数；
型t_table是表VARCHAR2（10）指数VARCHAR2（2）；
v_t_table t_table；

型t_pg3是表的基础。pg3_agentcd_conversion %ROWTYPE；
v_pg3_table t_pg3；

c_pg3_vendor com.cref；
v_str VARCHAR2（250）；
开始
-这里的测试语句
打开c_pg3_vendor为SELECT * FROM asis.pg3_agentcd_conversion；

取c_pg3_vendor散装收集到v_pg3_table；
我在1…v_pg3_table.count环
v_t_table（v_pg3_table（我）。asis_agent_cd）：= v_pg3_table（我）。tobe_vendor_cd；
结束循环；

v_str：= v_t_table.first；
而v_str不是零环
dbms_output.put_line（v_str | | '：' | | v_t_table（v_str））；
v_str：= v_t_table.next（v_str）；
结束循环；

当别人例外时
dbms_output.put_line（sqlerrm）；
结束；