Access result set in user define type of table

Question

here is the situation. I have a stored procedure that dequeues messages of a AQ and passes them as an OUT parameter in a collection of a user defined type. The same type used to define the queues. The java code executes properly but seems like we don't/can't access the result set. We don't receive any erros but don't know how to access the results. I've included relevant parts of the problem.
I know this should be doable but........Can someone please tell us what we are doing wrong....thanks in advance.
-----create object type
create type evt_ot as object(
table_name varchar(40),
table_data varchar(4000));
---create table of object types.
create type msg_evt_table is table of evt_ot;
----create queue table with object type
begin
DBMS_AQADM.CREATE_QUEUE_TABLE (
Queue_table => 'etlload.aq_qtt_text',
Queue_payload_type => 'etlload.evt_ot');
end;
---create queues.
begin
DBMS_AQADM.CREATE_QUEUE (
Queue_name => 'etlload.aq_text_que',
Queue_table => 'etlload.aq_qtt_text');
end;
Rem
Rem Starting the queues and enable both enqueue and dequeue
Rem
EXECUTE DBMS_AQADM.START_QUEUE (Queue_name => 'etlload.aq_text_que');
----create procedure to dequeue an array and pass it OUT using msg_evt_table ---type collection.
create or replace procedure test_aq_q (
i_array_size in number ,
o_array_size out number ,
text1 out msg_evt_table) is
begin
DECLARE
message_properties_array dbms_aq.message_properties_array_t :=
dbms_aq.message_properties_array_t();
msgid_array dbms_aq.msgid_array_t;
dequeue_options dbms_aq.dequeue_options_t;
message etlload.msg_evt_table;
id pls_integer := 0;
retval pls_integer := 0;
total_retval pls_integer := 0;
ctr number :=0;
havedata boolean :=true;
java_exp exception;
no_messages exception;
pragma EXCEPTION_INIT (java_exp, -24197);
pragma exception_init (no_messages, -25228);
BEGIN
DBMS_OUTPUT.ENABLE (20000);
dequeue_options.wait :=0;
dequeue_options.correlation := 'event' ;
id := i_array_size;
-- Dequeue this message from AQ queue using DBMS_AQ package
begin
retval := dbms_aq.dequeue_array(
queue_name => 'etlload.aq_text_que',
dequeue_options => dequeue_options,
array_size => id,
message_properties_array => message_properties_array,
payload_array => message,
msgid_array => msgid_array);
text1 := message;
o_array_size := retval;
EXCEPTION
WHEN java_exp THEN
dbms_output.put_line('exception information:');
WHEN no_messages THEN
havedata := false;
o_array_size := 0;
end;
end;
END;
----below is the java code....
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Struct;
import oracle.jdbc.driver.OracleCallableStatement;
import oracle.jdbc.driver.OracleTypes;
public class TestOracleArray {
     private final String SQL = "{call etlload.test_aq_q(?,?,?)}";//array size, var name for return value, MessageEventTable
     private final String driverClass = "oracle.jdbc.driver.OracleDriver";
     private final String serverName = "OurServerName";
     private final String port = "1500";
     private final String sid = "OurSid";
     private final String userId = "OurUser";
     private final String pwd = "OurPwd";
     Connection conn = null;
     public static void main(String[] args){
          TestOracleArray toa = new TestOracleArray();
          try {
               toa.go();
          } catch (InstantiationException e) {
               // TODO Auto-generated catch block
               e.printStackTrace();
          } catch (IllegalAccessException e) {
               // TODO Auto-generated catch block
               e.printStackTrace();
          } catch (ClassNotFoundException e) {
               // TODO Auto-generated catch block
               e.printStackTrace();
          } catch (SQLException e) {
               // TODO Auto-generated catch block
               e.printStackTrace();
     private void go() throws InstantiationException, IllegalAccessException, ClassNotFoundException, SQLException{
          Class.forName(driverClass).newInstance();
          String url = "jdbc:oracle:thin:@"+serverName+":"+port+":"+sid;
          conn = DriverManager.getConnection(url,userId,pwd);
          OracleCallableStatement stmt = (OracleCallableStatement)conn.prepareCall(SQL);
          //set 1 input
          stmt.setInt(1, 50);
          //register out 1
          stmt.registerOutParameter(2, OracleTypes.NUMERIC);
          //register out 2
          stmt.registerOutParameter(3, OracleTypes.ARRAY, "MSG_EVT_TABLE");
          * This code returns a non-null ResultSet but there is no data in the ResultSet
          * ResultSet rs = stmt.executeQuery();
          * rs.close();
          * Tried all sorts of combinations of getXXXX(1);
          * All return the same error Message: Invalid column index
          * So it appears that the execute statment returns no data.
          stmt.execute();
          Struct myObject = (Struct)stmt.getObject(1);
          stmt.close();
          conn.close();
}

Answer 1

Hi,
Sorry but I'd refer you to the following sections (and code samples/snippets) in my book:
Mapping User-Defined Object Types (AD) to oracle.sql.STRUCT in section 3.3, shows how to pass user defined types as IN, OUT,IN/OUT
JMS over Streams/AQ in the Database: shows how to consume AQ
message paylod in section 4.2.4
CorporateOnine, in section 17.2, show how to exchanges user defined type objects b/w AQ and JMS
All these will hopefully help you achieve what you are trying to do.
Kuassi