https://www.cnblogs.com/Bouger/p/4318322.html
create or replace package body test_lu is
---创建一个自定义数据类型 TYPE c_user IS RECORD ( id number, name varchar2(30) ); ---根据自定义数据类型创建一个集合 TYPE c_user_array IS TABLE OF c_user INDEX BY BINARY_INTEGER; ---集合对象 user_array c_user_array; ---数据对象 user c_user; ---计数器 v_counter number; procedure test1 is begin user.id:=1; user.name:=‘luu‘; user_array(user.id):=user; user.id:=2; user.name:=‘lii‘; user_array(user.id):=user; end; procedure test2 is begin for v_counter in 1..user_array.count loop DBMS_OUTPUT.put_line(user_array(v_counter).id||‘...‘||user_array(v_counter).name); end loop; end; procedure test3 is begin test1; test2; end;end test_lu;原文：https://www.cnblogs.com/zuochencun/p/11309403.html