Aq message grouping

Question

Hi,
I have 10.1.0.2.0 EE. I am trying to test transactional message grouping. Below is my code
-- create queueus
begin
dbms_aqadm.create_queue_table(queue_table => 'testtranqtable',
queue_payload_type => 'message_typ',
compatible => '8.1',
message_grouping => dbms_aqadm.TRANSACTIONAL);
dbms_aqadm.create_queue(queue_name => 'testtranq',
queue_table => 'testtranqtable');
dbms_aqadm.start_queue('testtranq');
end;
-- code to dequeue messages
declare
local_msgid RAW(16);
local_dequeueOptions DBMS_AQ.DEQUEUE_OPTIONS_T;
local_msgOptions DBMS_AQ.MESSAGE_PROPERTIES_T;
local_msg message_typ;
local_noMoreMsgs BOOLEAN := TRUE;
NO_MESSAGES EXCEPTION;
END_OF_GROUP EXCEPTION;
PRAGMA EXCEPTION_INIT (NO_MESSAGES, -25228);
PRAGMA EXCEPTION_INIT (END_OF_GROUP,-25235);
lc pls_integer := 0;
begin
local_dequeueOptions.WAIT := 1;
local_dequeueOptions.NAVIGATION := DBMS_AQ.FIRST_MESSAGE;
WHILE (local_noMoreMsgs) LOOP
BEGIN
LOOP
BEGIN
dbms_aq.dequeue(queue_name => 'testtranq',
dequeue_options => local_dequeueOptions,
message_properties => local_msgOptions,
payload => local_msg,
msgid => local_msgid);
dbms_output.put_line('subj:' || local_msg.subject || ',text:' || local_msg.text);
local_dequeue_Options.NAVIGATION := DBMS_AQ.NEXT_MESSAGE;
EXCEPTION
WHEN END_OF_GROUP THEN
dbms_output.put_line('end of group');
commit;
local_dequeueOptions.NAVIGATION := DBMS_AQ.NEXT_TRANSACTION;
END;
END LOOP;
EXCEPTION
WHEN NO_MESSAGES THEN
dbms_output.put_line('no more messages');
local_noMoreMsgs := FALSE;
END;
END LOOP;
end;
when I dequeue messages END_OF_GROUP exception is never raised. I do get messages only after I commit enqueue. What am I missing?
thanks for the help

Answer 1

Hi!
I had the same problem. Check if you are enqueing with
enqueue_options.visibility := DBMS_AQ.IMMEDIATE.
It has to be DBMS_AQ.ON_COMMIT.
/Lasse