Table Of Object - collections

Question

Hi,
I need to dynamically add (append) value to the "list_name" variable. How should I achieve this. I am using 10g.
================================================
create or replace
TYPE OBJ_NAME AS OBJECT
NAME VARCHAR2(30)
create or replace TYPE TBL_OBJ_NAME AS TABLE OF OBJ_NAME;
create or replace
PROCEDURE TYPE_TEST AS
NAME OBJ_NAME;
LIST_NAME TBL_OBJ_NAME;
BEGIN
LIST_NAME := TBL_OBJ_NAME(OBJ_NAME('MICK1'),OBJ_NAME('MICK2'),OBJ_NAME('MICK3'),OBJ_NAME('MICK4'));
DBMS_OUTPUT.PUT_LINE(LIST_NAME(3).NAME);
HOW SHOULD I APPEND MORE VALUE TO THE "LIST_NAME" VARIABLE.
NOTE: CREATE TYPE SHOULD NOT BE CHANGED
END TYPE_TEST;
========================================================
Advance thanks.

Answer 1

Use LIST_NAME.last
create or replace PROCEDURE TYPE_TEST AS
NAME OBJ_NAME;
LIST_NAME TBL_OBJ_NAME;
i number;
BEGIN
LIST_NAME := TBL_OBJ_NAME(OBJ_NAME('MICK1'),OBJ_NAME('MICK2'),OBJ_NAME('MICK3'),OBJ_NAME('MICK4'));
DBMS_OUTPUT.PUT_LINE(LIST_NAME(3).NAME);
HOW SHOULD I APPEND MORE VALUE TO THE "LIST_NAME" VARIABLE.
NOTE: CREATE TYPE SHOULD NOT BE CHANGED
i :=LIST_NAME.last+1;
LIST_NAME(i).name := 'lalalalala';
for i in 1..LIST_NAME.count loop
dbms_output.put_line(LIST_NAME(i).name);
end loop;
END TYPE_TEST;