Advanced Queuing - Oracle

Dequeue Features
pragma exception_init (no_messages, -25228);
new_orders BOOLEAN := TRUE;
begin
end;
/
dopt.consumer_name := consumer;
dopt.wait := 1;
dopt.correlation := ’RUSH’;
IF (consumer = ’West_Shipping’) THEN
qname := ’WS.WS_bookedorders_que’;
ELSIF (consumer = ’East_Shipping’) THEN
qname := ’ES.ES_bookedorders_que’;
ELSE
qname := ’OS.OS_bookedorders_que’;
END IF;
WHILE (new_orders) LOOP
BEGIN
dbms_aq.dequeue(
queue_name => qname,
dequeue_options => dopt,
message_properties => mprop,
payload => deq_order_data,
msgid => deq_msgid);
commit;
deq_item_data := deq_order_data.items(1);
deq_book_data := deq_item_data.item;
dbms_output.put_line(’ rushorder book_title: ’ ||
deq_book_data.title ||
’ quantity: ’ || deq_item_data.quantity);
EXCEPTION
WHEN no_messages THEN
dbms_output.put_line (’ ---- NO MORE RUSH TITLES ---- ’);
new_orders := FALSE;
END;
END LOOP;
CONNECT EXECUTE on get_rushtitles to ES;
8-60 Oracle9i Application Developer’s Guide - Advanced Queuing