Enqueue AQ$_JMS_OBJECT_MESSAGE via PLSQL to JMS and Dequeue via Bean

Question

Hi,
I want to be able to enqueue on to AQ$_JMS_OBJECT_MESSAGE queue and the dequeue to via Java Bean.
Unfortunately I am having problems dequeuing via the messege driven bean as it is not able to dequeue any of the messages enqueued via oracle SQL plus
I am able to enqueue and dequeue via the bean. I am also able to enqueue and dequeue via oracle SQL plus and able to dequeue and messages enqueued via the Java bean . Hoever I am not able to enqueue via Oracle SQL plus and dequeue via Java bean
I am thinking that I have not set sumthing properly but I have checked everything I know
P.S. - I am still learning all about AQ, so if I have missed an obvious solution, please let me know.
my code is quite simple - see below
l_enqueue_options dbms_aq.enqueue_options_t;
l_message_properties dbms_aq.message_properties_t;
l_msg_id xxaq.xxaq_imran_qt.msgid%type;
-- specifics for JMS Queues
l_queue_name varchar2(30) := 'XXAQ.XXAQ_IMRAN_Q';
l_payload SYS.AQ$_JMS_OBJECT_MESSAGE;
l_header SYS.AQ$_JMS_HEADER;
l_properties sys.AQ$_JMS_USERPROPARRAY;
l_replyto sys.aq$_agent;
l_data_items xxserror.xxsys_event_logs.data_items%type;
l_messages xxserror.xxsys_event_logs.message%type;
e_error exception;
l_bytes_len number(38);
l_bytes_raw raw(2000);
begin
l_properties := SYS.AQ$_JMS_USERPROPARRAY(
SYS.AQ$_JMS_USERPROPERTY('JMS_OracleDeliveryMode'
,100
,'2'
,null
,27));
l_properties.extend;
l_properties(2) := SYS.AQ$_JMS_USERPROPERTY('APPLICATION_ID' -- name
,200 -- type
,null -- str_value
,p_app_id -- num_value
,24); -- java_type
l_properties.extend;
l_properties(3) := SYS.AQ$_JMS_USERPROPERTY('TRIGGER'
,100
,p_event_type
,null
,27);
-- The replyto element seems to contain the following values
l_replyto := sys.aq$_agent(' ', null, 0);
l_header := sys.aq$_jms_header
(l_replyto
,null
,'XXAQ' -- User
,null
,null
,null
,l_properties);
-- Now build up the message.
-- l_header.properties := l_properties;
l_bytes_raw := utl_raw.cast_to_raw(p_app_id);
l_bytes_len := length(l_bytes_raw);
l_payload := sys.aq$_jms_object_message
(l_header
,l_bytes_len
,l_bytes_raw
,null);
dbms_aq.enqueue(queue_name => l_queue_name
,enqueue_options => l_enqueue_options
,message_properties => l_message_properties
,payload => l_payload -- payload + header
,msgid => l_msg_id);

Answer 1

Hi, have you got the solution of the problem? I am encountering the same issue here too. Thank you!