Dequeue elements from an apply - queue table

Question

hi Everyone?
I'm tried dequeue elements from a queue table. This one, is associated to an apply streams process. I'd wrote this procedure to test a manual dequeue, but this error message appears :
ORA-25228: timeout or end-of-fetch during message dequeue from STADMIN.Q_APP_SELECTS_FROM_CRM
The queue is not empty
Help me please... thank you
The Procedure code is:
create or replace procedure str_clean_queue (cola in varchar2, tabla in varchar2, comando in varchar2) is
next_trans EXCEPTION;
pragma exception_init (next_trans, -25235);
no_messages EXCEPTION;
pragma exception_init (no_messages, -25228);
dequeueOpt dbms_aq.dequeue_options_t;
message_properties dbms_aq.message_properties_t;
message SYS.ANYDATA;
msgid raw(16);
newMess boolean;
lcr SYS.LCR$_ROW_RECORD;
a number :=0;
begin
dequeueOpt.CONSUMER_NAME := 'APP_SELECTS_FROM_CRM';
dequeueOpt.DEQUEUE_MODE := DBMS_AQ.LOCKED;
dequeueOpt.NAVIGATION := DBMS_AQ.FIRST_MESSAGE;
dequeueOpt.VISIBILITY := DBMS_AQ.IMMEDIATE;
dequeueOpt.WAIT :=10;
dequeueOpt.MSGID := null;
newMess:=True;
while (newMess) loop
begin
DBMS_AQ.DEQUEUE (
queue_name => 'STADMIN.'|| cola,
dequeue_options => dequeueOpt,
message_properties => message_properties,
payload => message,
msgid => msgid);
-- analizamos lo que llego en el payload
lcr := DBMS_STREAMS.CONVERT_ANYDATA_TO_LCR_ROW(message);
if (lcr.get_command_type = comando AND
lcr.get_object_name = tabla AND
lcr.get_object_owner = 'DBADMIN') then
-- hacer desaparecer el lcr de la cola
dequeueOpt.DEQUEUE_MODE := DBMS_AQ.REMOVE;
dequeueOpt.MSGID := msgid;
DBMS_AQ.DEQUEUE (
queue_name => 'STADMIN.'|| cola,
dequeue_options => dequeueOpt,
message_properties => message_properties,
payload => message,
msgid => msgid);
a:=a+1;
end if;
dbms_output.put_line(a);
exception
WHEN next_trans THEN
dequeueOpt.navigation := DBMS_AQ.NEXT_TRANSACTION;
WHEN no_messages THEN
dbms_output.put_line(sqlerrm);
newMess := FALSE;
end;
end loop;
end str_clean_queue;

Answer 1

Hello,
as you wrote you already have a code snippet with DBMS_AQ.DEQUEUE of an exception queue.
Wrap this DEQUEUE in an infinite loop (LOOP ... END LOOP). In order to have this procedure as an autonomous session
you can start it as a database job:
DECLARE
   v_jobno NUMBER(6);
BEGIN
    DBMS_JOB.SUBMIT( v_jobno,
                    'BEGIN <your module>; END;',
                    SYSDATE, NULL );
    COMMIT;
END;
/Kind regards,
WoG