DEQUEUE procedure problem (never stoped)

Question

create or replace
PROCEDURE deq_proc2 IS
queue_options DBMS_AQ.DEQUEUE_OPTIONS_T;
message_properties DBMS_AQ.MESSAGE_PROPERTIES_T;
message_id RAW(2000);
new_data BOOLEAN := TRUE;
my_message bombac.queue_message_type;
no_messages EXCEPTION;
next_trans EXCEPTION;
pragma exception_init (next_trans, -25235);
pragma exception_init (no_messages, -25228);
BEGIN
queue_options.wait := 1;
WHILE (new_data) LOOP
BEGIN
DBMS_AQ.DEQUEUE(
queue_name => 'bombac.message_queue',
dequeue_options => queue_options,
message_properties => message_properties,
payload => my_message,
msgid => message_id );
queue_options.navigation := DBMS_AQ.NEXT;
DBMS_OUTPUT.PUT_LINE(
'Dequeued no: ' || my_message.no);
DBMS_OUTPUT.PUT_LINE(
'Dequeued title: ' || my_message.title);
DBMS_OUTPUT.PUT_LINE(
'Dequeued text: ' || my_message.text);
COMMIT;
EXCEPTION
WHEN next_trans THEN
queue_options.navigation := DBMS_AQ.NEXT_TRANSACTION;
WHEN no_messages THEN
new_data := FALSE;
DBMS_OUTPUT.PUT_LINE('No more data');
WHEN OTHERS THEN
new_data := FALSE;
DBMS_OUTPUT.PUT_LINE('No more data');
END;
END LOOP;
END;
but i never get message "No more data". Procedure waiting for new data all the time. I want that if quee has no message "No more data" will be shown.
i am writting to quee like:
EXEC enq_proc2(2,'test','test');
COMMIT;
and read like:
SET SERVEROUTPUT ON SIZE 100000
EXEC deq_proc2();

Answer 1

Hi,
Change the code portion
queue_options.wait := 1;
WHILE (new_data) LOOP
BEGIN
DBMS_AQ.DEQUEUE(
queue_name => 'bombac.message_queue',
dequeue_options => queue_options,
message_properties => message_properties,
payload => my_message,
msgid => message_id );
queue_options.navigation := DBMS_AQ.NEXT;
TO
--queue_options.wait := 1;
queue_options.wait             := DBMS_AQ.NO_WAIT;
WHILE (new_data) LOOP
BEGIN
-- queue_options.navigation := DBMS_AQ.NEXT;
queue_options.navigation             := DBMS_AQ.FIRST_MESSAGE;
queue_options.dequeue_mode     := DBMS_AQ.REMOVE;
DBMS_AQ.DEQUEUE(
queue_name => 'bombac.message_queue',
dequeue_options => queue_options,
message_properties => message_properties,
payload => my_message,
msgid => message_id );
and try
Thanks,
Merz