Error in AQ JMS code

Question

Hi All,
I am trying to write a anonymous PLSQL block to read JMS data from the ORACLE AQ and getting a ClassCastException as mentioned below. Any help on this would be highly appreciated. Let me know in case any additional information is required.
QUEUE DETAILS
BEGIN
SYS.DBMS_AQADM.CREATE_QUEUE_TABLE
QUEUE_TABLE => 'SWB.TEST_MAP_QTAB'
,QUEUE_PAYLOAD_TYPE => 'SYS.AQ$_JMS_MAP_MESSAGE'
,COMPATIBLE => '8.1'
,SORT_LIST => 'ENQ_TIME'
,MULTIPLE_CONSUMERS => FALSE
,MESSAGE_GROUPING => 0
,SECURE => FALSE
End;
BEGIN
SYS.DBMS_AQADM.CREATE_QUEUE
QUEUE_NAME => 'SWB.CC_REQUEST_QUEUE'
,QUEUE_TABLE => 'SWB.TEST_MAP_QTAB'
,QUEUE_TYPE => SYS.DBMS_AQADM.NORMAL_QUEUE
,MAX_RETRIES => 5
,RETRY_DELAY => 0
,RETENTION_TIME => 0
END;
CODE SNIPPET
declare
r_dequeue_options DBMS_AQ.DEQUEUE_OPTIONS_T;
r_message_properties DBMS_AQ.MESSAGE_PROPERTIES_T;
v_message_handle RAW(500);
o_payload SYS.AQ$_JMS_MAP_MESSAGE;
namearr sys.aq$_jms_namearray;
jmsmsg SYS.AQ$_JMS_VALUE;
agent SYS.AQ$_AGENT;
cnt NUMBER := 0;
msgid PLS_INTEGER;
i_msgid CONSTANT PLS_INTEGER := -1;
java_exp exception;
PRAGMA EXCEPTION_INIT(java_exp, -24197);
begin
r_dequeue_options.dequeue_mode := DBMS_AQ.BROWSE;
DBMS_AQ.DEQUEUE(
queue_name => 'cc_request_queue',
dequeue_options => r_dequeue_options,
message_properties => r_message_properties,
payload => o_payload,
msgid => v_message_handle
-- Retrieve the header
agent := o_payload.get_replyto;
dbms_output.put_line('Type: ' || o_payload.get_type ||
' UserId: ' || o_payload.get_userid ||
' AppId: ' || o_payload.get_appid ||
' GroupId: ' || o_payload.get_groupid ||
' GroupSeq: ' || o_payload.get_groupseq);
msgid := o_payload.prepare(i_msgid);-- Passing -1 reserve a new slot within the message store of sys.aq$_jms_map_message.
dbms_output.put_line(msgid);
namearr := o_payload.get_names(msgid);
FOR i in namearr.FIRST..namearr.LAST
LOOP
o_payload.get_object(msgid,namearr(i),jmsmsg);
CASE jmsmsg.type
WHEN sys.dbms_jms_plsql.DATA_TYPE_BYTE THEN dbms_output.put_line('read_object/byte:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_SHORT THEN dbms_output.put_line('read_object/short:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_INTEGER THEN dbms_output.put_line('read_object/int:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_LONG THEN dbms_output.put_line('read_object/long:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_FLOAT THEN dbms_output.put_line('read_object/float:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_DOUBLE THEN dbms_output.put_line('read_object/double:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_BOOLEAN THEN dbms_output.put_line('read_object/boolean:' || jmsmsg.num_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_CHARACTER THEN dbms_output.put_line('read_object/char:' || jmsmsg.char_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_STRING THEN
dbms_output.put_line('read_object/string:');
display_clob(jmsmsg.text_val);
WHEN sys.dbms_jms_plsql.DATA_TYPE_BYTES THEN
dbms_output.put_line('read_object/bytes:');
display_blob(jmsmsg.bytes_val);
ELSE dbms_output.put_line('No such data type');
END CASE;
END LOOP;
o_payload.clean(msgid);
EXCEPTION
WHEN java_exp THEN
dbms_output.put_line('exception information:');
display_exp(sys.aq$_jms_map_message.get_exception());
end;
ERROR DETAILS
exception information:
exception:java.lang.ClassCastException
err_msg:
stack:288
java.lang.ClassCastException
     at oracle.jms.plsql.MapMsgEntity.<init>(MapMsgEntity.java:49)
     at oracle.jms.plsql.MsgEntity.createMsgEntity(MsgEntity.java:37)
     at oracle.jms.plsql.MsgStore.createMsgEntity(MsgStore.java:65)
     at oracle.jms.plsql.MapMsgHandler.prepare(MapMsgHandler.java:50)
References
http://filibeto.org/sun/lib/nonsun/oracle/10.1.0.2/B14117_01/appdev.101/b10802/t_jms.htm#1007681

Answer 1

This issue is fixed as part of AQ JMS bug 16756136 and associated backport bugs.