Problem in fetching varray of Object type

Question

Below are the code,
where am calling an procedure which returns me Varray of object type test_obj(id number, name varchar2);
Am facing an problem in get the object(test_obj) from ARRAY object
the exception is java.lang.ClassCastException: java.lang.Object
at line number No 12..
Can anyone suggest me How handle this...
1. STRUCT test_objStruct ;
2. ARRAY test_arr;
3. OracleCallableStatement cs = (OracleCallableStatement)
4. con.prepareCall("{call test_data(?)}");
5. cs.registerOutParameter(1,oracle.jdbc.driver.OracleTypes.ARRAY,"TEST_ARR");
6. cs.execute();
7. test_arr = (ARRAY)cs.getObject(1);
8.System.out.println("array varible "+test_arr.getBaseTypeName());
9. System.out.println("length "+test_arr.length());
10. Map map = (Map)con.getTypeMap();
11. map.put("TEST_OBJ", Class.forName("oracle.sql.STRUCT"));
12. test_objStruct = (STRUCT)test_arr.getArray(1,1);
13.Object country_attrs[] = test_objStruct.getAttributes();
14.System.out.println ("ID: " country_attrs[0]);
15.System.out.println ("Name: " +country_attrs[1]);
the output is..
array varible TEST_OBJ
length 106
Error java.lang.ClassCastException: java.lang.Object

Answer 1

Hi,
The error occurs on line 12, the first time through the loop, when you try to execute:
vClient(iCounter).ename_obj:=i.ename;
At that point, vClient (1) is not an Employee object; it's NULL.
Try this:
DECLARE
    TYPE tvrEmploy IS VARRAY(10) OF Employee;
    vClient    tvrEmploy;
    iCounter   integer := 1;
    CURSOR client_cursor IS
        SELECT  ename, sal
        ,       empno                                                 -- ADDED
   FROM    scott.emp
   WHERE   rownum < 11;
BEGIN
    vClient := tvrEmploy (null,null,null,null,null,null,null,null,null,null) ;  
    FOR i IN client_cursor LOOP
        vClient (iCounter) := Employee (i.ename, i.empno, i.sal);     -- CHANGED
        iCounter := iCounter + 1;
   END LOOP;
FOR I IN REVERSE 1..10 LOOP
       dbms_output.put_line(to_char(I) ||' '|| vClient(I).ename_obj ||' '|| vClient(I).empno_obj ||' '||
      vClient(I).sal_obj);
   END LOOP;
END ;