How to initialize the array with object?

Question

Here is type I have.
CREATE OR REPLACE TYPE SYSADM.AP_COMMENT_TYPE AS OBJECT
BU_AP VARCHAR2(5),
VOUCHER VARCHAR2(10),
V_LINE INTEGER,
USERID VARCHAR2(20),
COMMENT_DTTM DATE,
COMMENT VARCHAR2(254)
CREATE OR REPLACE TYPE SYSADM.AP_COMMENT_COLL AS VARRAY(1000) OF SYSADM.AP_COMMENT_TYPE;
Then I created a procedure to grab some data.
PROCEDURE get_voucher_comments (
v_bu_in IN VARCHAR2,
v_voucher_in IN VARCHAR2,
v_line_in IN NUMBER,
v_userid IN VARCHAR2,
voucher_comment OUT      sysadm.ap_comment_coll
IS
i NUMBER := 1;
v_comments VARCHAR2 (254) := ' ';
comment_type sysadm.ap_comment_type;
v_line_num NUMBER := 0;
CURSOR get_all_comment
IS
SELECT voucher_line_num, descr254_mixed
FROM ps_fas_ap_comment
WHERE business_unit = voucher_comment (i).bu_ap
AND voucher_id = voucher_comment (i).voucher;
CURSOR get_line_comment
IS
SELECT descr254_mixed
FROM ps_fas_ap_comment
WHERE business_unit = voucher_comment (i).bu_ap
AND voucher_id = voucher_comment (i).voucher
AND voucher_line_num = voucher_comment (i).v_line;
BEGIN
voucher_comment (1) := ap_comment_type (' ', ' ', 0, ' ', '', ' ');
--voucher_comment (1) := ap_comment_type (null, null, null, null, null,null);
IF voucher_comment (i).v_line = 0
THEN
OPEN get_all_comment;
LOOP
FETCH get_all_comment
INTO v_line_num, v_comments;
          voucher_comment.EXTEND;
voucher_comment (i) :=
ap_comment_type (v_bu_in,
v_voucher_in,
v_line_num,
v_userid,
TO_DATE (TO_CHAR (SYSDATE,
'DD-MON-YYYY HH24:MI:SS'
'DD-MON-YYYY HH24:MI:SS'
v_comments
i := i + 1;
END LOOP;
ELSE
OPEN get_line_comment;
LOOP
FETCH get_line_comment
INTO v_comments;
          voucher_comment.EXTEND;
voucher_comment (i) :=
ap_comment_type (v_bu_in,
v_voucher_in,
v_line_num,
v_userid,
TO_DATE (TO_CHAR (SYSDATE,
'DD-MON-YYYY HH24:MI:SS'
'DD-MON-YYYY HH24:MI:SS'
v_comments
i := i + 1;
END LOOP;
END IF;
END get_voucher_comments;
But when I tried to test the procedure, got error: ORA-06531: Reference to uninitialized collection. Does anyone have experience of handling array with object?
declare
O_voucher_comment SYSADM.AP_COMMENT_COLL;
begin
FAS_AP_EXCEPTIONS.GET_VOUCHER_COMMENTS('FCCAN', '20494753', 1, 'KEHE', O_voucher_comment);
end;

Answer 1

Thanks for that. I changed it a little bit, but when i ran this script, got ORA-06532: Subscript outside of limit.
declare
O_voucher_comment SYSADM.AP_COMMENT_COLL := sysadm.ap_comment_coll(null);
begin
FAS_AP_EXCEPTIONS.GET_VOUCHER_COMMENTS('FCCAN', '20494753', 0, 'KEHE', O_voucher_comment);
end;
PROCEDURE get_voucher_comments (
v_bu_in IN VARCHAR2,
v_voucher_in IN VARCHAR2,
v_line_in IN NUMBER,
v_userid IN VARCHAR2,
voucher_comment OUT      sysadm.ap_comment_coll
IS
i NUMBER := 1;
v_comments VARCHAR2 (254) := ' ';
comment_type sysadm.ap_comment_type;
v_line_num NUMBER := 0;
CURSOR get_all_comment
IS
SELECT voucher_line_num, descr254_mixed FROM ps_fas_ap_comment
WHERE business_unit = v_bu_in AND voucher_id = v_voucher_in;
CURSOR get_line_comment
IS
SELECT descr254_mixed FROM ps_fas_ap_comment
WHERE business_unit = v_bu_in AND voucher_id = v_voucher_in
AND voucher_line_num = v_line_in;
BEGIN
--voucher_comment() := SYSADM.ap_comment_type (NULL, NULL, NULL, NULL, NULL, NULL);
--' ', ' ', 0, ' ', '', ' ' sysadm.ap_comment_coll
voucher_comment := sysadm.ap_comment_coll(null);
IF v_line_in = 0
THEN
OPEN get_all_comment;
LOOP
FETCH get_all_comment
INTO v_line_num, v_comments;
          if i > 1
          then
               voucher_comment.EXTEND;
          end if;
voucher_comment (i) := ap_comment_type (v_bu_in,
v_voucher_in, v_line_num, v_userid,
TO_DATE (TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS'), 'DD-MON-YYYY HH24:MI:SS'), v_comments );
i := i + 1;
END LOOP;
ELSE
OPEN get_line_comment;
LOOP
FETCH get_line_comment
INTO v_comments;
          voucher_comment.extend(6);
voucher_comment (i) := ap_comment_type (v_bu_in, v_voucher_in, v_line_num, v_userid, TO_DATE (TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS' ), 'DD-MON-YYYY HH24:MI:SS'), v_comments);
i := i + 1;
END LOOP;
END IF;
END get_voucher_comments;