Schedule propagation doubt

Question

Hi,
My propagation is not working. What am I doing wrong?
I have two users in the same database and they have separate queues for them. They are able to dequeue and enqueue with their respecive queues.
But I want user2 to dequeue message from his own queue( which is que2) which user1 enqueue in his queue(which is que1).
I have scheduled propagation like this
execute dbms_aqadm.schedule_propagation(queue_name => 'user1.que');
when I check the user1 quetable there are the enqueued messages but in user2 queuetable there are no messages at all.
What am I doing wrong?

Answer 1

This code works:
create database link LoopBack connect to bradym identified by password using 'ccg10gd';
CREATE or replace type Message_typ as object(subject VARCHAR2(30), text VARCHAR2(80));
begin
-- Make Source Queue and Table
DBMS_AQADM.CREATE_QUEUE_TABLE(queue_table => 'xtest_mqt', queue_payload_type => 'Message_typ', multiple_consumers => TRUE);
DBMS_AQADM.CREATE_QUEUE(queue_name => 'MSG_QUEUE', queue_table => 'xtest_mqt');
DBMS_AQADM.START_QUEUE(queue_name => 'MSG_QUEUE');
-- Make destination Queue and Table
DBMS_AQADM.CREATE_QUEUE_TABLE(queue_table => 'xdest_mqt', queue_payload_type => 'Message_typ', multiple_consumers => TRUE);
DBMS_AQADM.CREATE_QUEUE(queue_name => 'MSG_QUEUEX', queue_table => 'xdest_mqt');
DBMS_AQADM.START_QUEUE(queue_name => 'MSG_QUEUEX');
end;
create or replace procedure enqueue_msg(p_msg in varchar2,
p_add in varchar2 default null)
as
enqueue_options dbms_aq.enqueue_options_t;
message_properties dbms_aq.message_properties_t;
message_handle RAW(16);
message message_typ;
recipients DBMS_AQ.aq$_recipient_list_t;
BEGIN
-- ADDED
-- SMD: here's where the parameter is used
recipients(1) := SYS.aq$_agent('RECIPIENT', p_add, null);
message_properties.recipient_list := recipients;
message := message_typ('NORMAL MESSAGE', p_msg );
dbms_aq.enqueue(queue_name => 'msg_queue',
enqueue_options => enqueue_options,
message_properties => message_properties,
payload => message,
msgid => message_handle);
end;
-- SMD: this msgs is meant for THIS queue and will not be propagated.
begin enqueue_msg('This is a test....'); commit; end;
-- ADDED: Setup scheduling for messages
begin DBMS_AQADM.Schedule_Propagation(Queue_Name => 'MSG_QUEUE',
Destination => 'LoopBack',
Start_Time => sysdate,
Latency => 0);
end;
-- SMD: this msgs is meant for the MSG_QUEUEX queue and WILL BE propagated.
begin enqueue_msg('This should be propagated.', 'MSG_QUEUEX@LoopBack'); commit; end;
One thing I don't understand is why do I have to create a dblink just to get this to work. If I change the Schedule_prop call to set the DESTINATION_QUEUE to MSG_QUEUEX and change the ENQUEUE_MSG call to pass MSG_QUEUEX as the second arg it doesn't work.
So obviously this is without a subscriber but with an addressed message.
Ok, so the docs for the schd_prop command says "destination_queue == Name of the target queue to which messages are to be propagated in the form of a dblink" so i suppose the silly loopback dblink is unavoidable
But my alterations to the working cod break it. In summary, I set up the destination queue as a subscriber and enqueue the message without a recipient list
create database link LoopBack connect to bradym identified by password using 'ccg10gd';
CREATE or replace type Message_typ as object(subject VARCHAR2(30), text VARCHAR2(80));
begin
-- Make Source Queue and Table
DBMS_AQADM.CREATE_QUEUE_TABLE(queue_table => 'xtest_mqt', queue_payload_type => 'Message_typ', multiple_consumers => TRUE);
DBMS_AQADM.CREATE_QUEUE(queue_name => 'MSG_QUEUE', queue_table => 'xtest_mqt');
DBMS_AQADM.START_QUEUE(queue_name => 'MSG_QUEUE');
-- Make destination Queue and Table
DBMS_AQADM.CREATE_QUEUE_TABLE(queue_table => 'xdest_mqt', queue_payload_type => 'Message_typ', multiple_consumers => TRUE);
DBMS_AQADM.CREATE_QUEUE(queue_name => 'MSG_QUEUEX', queue_table => 'xdest_mqt');
DBMS_AQADM.START_QUEUE(queue_name => 'MSG_QUEUEX');
end;
-- NEW section to working code
DECLARE
subscriber sys.aq$_agent;
BEGIN
subscriber := sys.aq$_agent(NULL,'MSG_QUEUEX@LOOPBACK',0); -- <--- again docs show dblink as optional...
DBMS_AQADM.ADD_SUBSCRIBER(queue_name => 'MSG_QUEUE', subscriber => subscriber, queue_to_queue => TRUE);
END;
create or replace procedure enqueue_msg(p_msg in varchar2) -- removed the recip list param
as
enqueue_options dbms_aq.enqueue_options_t;
message_properties dbms_aq.message_properties_t;
message_handle RAW(16);
message message_typ;
BEGIN
message := message_typ('NORMAL MESSAGE', p_msg );
dbms_aq.enqueue(queue_name => 'msg_queue',
     enqueue_options => enqueue_options,
     message_properties => message_properties,
     payload => message,
     msgid => message_handle);
end;
begin enqueue_msg('This is a test....'); commit; end;
-- ADDED: Setup scheduling for messages
begin DBMS_AQADM.Schedule_Propagation(Queue_Name => 'MSG_QUEUE',
Destination => 'LoopBack',
Start_Time => sysdate,
Latency => 0);
end;
begin enqueue_msg('This should be propagated.'); commit; end;
Edited by: skipjacker on Oct 20, 2008 5:13 PM