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;
