How to deal with error ORA-06531 for collection

Question

All,
Can anybody see anything wrong with my code below. As far as I can see everything is in order but I am getting the ORA-06531 error.
Thanks in advance
CREATE OR REPLACE
Type T_PREO_PRIV is Object
PRIVILEGE_ID NUMBER(10),
PRIVILEGE_NAME VARCHAR2(20),
PRIVILEGE_TYPE CHAR(1))
CREATE OR REPLACE
TYPE T_PRIVInfo IS TABLE OF PREORDER.
T_PREO_PRIV
SQL> CREATE OR REPLACE Procedure PREORDER.P_GetUserPrivlegetest(Userid in number, UserPriv out T_PRI
VInfo, status out number)
2 as
3 V_UserPriv T_PRIVInfo;
4 begin
5 select T_PREO_PRIV(preo_priv.privilege_id, PRIVILEGE_NAME, PRIVILEGE_TYPE)
6 BULK COLLECT INTO V_UserPriv
7 from preo_user_role, preo_role_priv, preo_priv
8 where preo_user_role.role_id = preo_role_priv.role_id
9 and preo_role_priv.privilege_id = preo_priv.privilege_id
10 and user_id = Userid;
11
12 V_UserPriv := UserPriv;
13
14 status := 0;
15
16 EXCEPTION
17 WHEN OTHERS THEN
18
19 Status := -1;
20 end;
21 /
Procedure created.
SQL>
SQL> DECLARE
2 profile_info T_PRIVInfo;
3 Status smallint;
4 BEGIN
5
6 --preo_security.P_GetUserPrivlege(42, profile_info, status);
7 P_GetUserPrivlegeTest(42, profile_info, status);
8 dbms_output.put_line('P_GetUserPrivlege '||Status);
9 For i in profile_info.FIRST..profile_info.LAST loop
10
11 dbms_output.put_line('******************************* ');
12 -- dbms_output.put_line('privilege_id '||UserPriv(i).privilege_id);
13 -- dbms_output.put_line('privilege_name '||UserPriv(i).privilege_name);
14 -- dbms_output.put_line('privilege_type '||UserPriv(i).privilege_type);
15 end loop;
16
17 END;
18 /
P_GetUserPrivlege -1
DECLARE
ERROR at line 1:
ORA-06531: Reference to uninitialized collection
ORA-06512: at line 9

Answer 1

As in your other post, you have these reversed. The line that says
V_UserPriv := UserPriv;
should be
UserPriv := V_UserPriv;
There may also be other errors; I didn't check.