On propagation from queue to queue on same instance

Question

Hi !
I have a queue that I need to propagate into another queue (and later add a transformation during the process). I have created the ques for the moment with the same payload type in order to test easily, but the propagate does not work. The messages gets in the first queue, state READY.
I'm on 10.2.0.3 on AIX
Here is my code:
{color:#0000ff}CREATE OR REPLACE TYPE mst_input_type AS object(
sender_id VARCHAR2(30),
subject VARCHAR2(30),
text VARCHAR2(1000));{color}
{color:#0000ff}--input kø
exec DBMS_AQADM.stop_QUEUE ('MST_INPUT_QUEUE');{color}
{color:#0000ff}exec DBMS_AQADM.drop_QUEUE ('MST_INPUT_QUEUE');{color}
{color:#0000ff}exec DBMS_AQADM.drop_QUEUE_TABLE (queue_table => 'MST_INPUT_QUEUE_TABLE');{color}
{color:#0000ff}-- output samme format
exec DBMS_AQADM.stop_QUEUE ('MST_OUTPUT_QUEUE2');{color}
{color:#0000ff}exec DBMS_AQADM.drop_QUEUE ('MST_OUTPUT_QUEUE2');{color}
{color:#0000ff}exec DBMS_AQADM.drop_QUEUE_TABLE (queue_table => 'MST_OUTPUT_QUEUE_TABLE2');{color}
{color:#0000ff}-- input kø/tabel
exec DBMS_AQADM.CREATE_QUEUE_TABLE (
queue_table => 'MST_INPUT_QUEUE_TABLE',
queue_payload_type => 'mst_input_type'
, multiple_consumers => TRUE
);{color}
{color:#0000ff}BEGIN
DBMS_AQADM.CREATE_QUEUE (
queue_name => 'MST_input_QUEUE',
queue_table => 'MST_input_QUEUE_TABLE'
DBMS_AQADM.START_QUEUE (
queue_name => 'MST_input_QUEUE'
END;{color}
{color:#0000ff}-- output kø/tabel samme format
exec DBMS_AQADM.CREATE_QUEUE_TABLE (
queue_table => 'MST_output_QUEUE_TABLE2',
queue_payload_type => 'mst_input_type'
);{color}
{color:#0000ff}BEGIN
DBMS_AQADM.CREATE_QUEUE (
queue_name => 'MST_output_QUEUE2',
queue_table => 'MST_output_QUEUE_TABLE2'
DBMS_AQADM.START_QUEUE (
queue_name => 'MST_output_QUEUE2'
END;{color}
{color:#0000ff}-- slet subscriber
DECLARE
subscriber sys.aq$_agent;
BEGIN
subscriber := sys.aq$_agent('subscriber1', 'MST_output_QUEUE2', null);
DBMS_AQADM.REMOVE_SUBSCRIBER(queue_name => 'MST_input_QUEUE',subscriber => subscriber);
END;{color}
{color:#0000ff}--- lav en subscriber
DECLARE
subscriber sys.aq$_agent;
BEGIN
subscriber := sys.aq$_agent('subscriber1', 'mst.MST_output_QUEUE2', null);
DBMS_AQADM.ADD_SUBSCRIBER(queue_name => 'MST_input_QUEUE',subscriber => subscriber, queue_to_queue => TRUE);
END;{color}
{color:#0000ff}BEGIN
DBMS_AQADM.SCHEDULE_PROPAGATION(queue_name => 'MST_input_QUEUE', destination => NULL,
destination_queue => 'mst.MST_output_QUEUE2',
Next_time => 'SYSDATE + 1/(24*60)');
END;{color}
{color:#0000ff}--- Skriv en besked
declare
message_handle RAW(16);
enqueue_options dbms_aq.enqueue_options_t;
message_properties dbms_aq.message_properties_t;
payload mst_input_type;
BEGIN
message_properties.priority := 5;
message_properties.delay := 1; -- one second delay before sending
payload := mst_input_type(null,null,null);
payload.sender_id := user;
payload.subject := 'Message fra ' || user ;
payload.text := 'Dette er en message fra ' || user || ' sendt ca. kl. ' || systimestamp ;
DBMS_AQ.ENQUEUE(queue_name => 'MST_input_QUEUE',
enqueue_options => enqueue_options,
message_properties => message_properties,
payload => payload,
msgid => message_handle);
plog.info('Messageid=' || message_handle);
commit;
end;{color}
{color:#000000}Can you give me a hint on how to get further? I have tried with and without the queue-to-queue options, but with little sucess.
{color}
Regards
Mette, DK
Edited by: mettemusens on Jan 11, 2009 7:57 PM

Answer 1

By trying and trying I got it to work .... long hours
I removed the queue to queue option and the subscriber name from the subscriptions definition. And then I removed the destination-queue on the propagation schedule. Then it worked.
Mette