Advanced Queuing - Oracle

egin
end;
dopt.consumer_name := consumer;
dopt.wait := DBMS_AQ.NO_WAIT;
dopt.dequeue_mode := deqmode;
dopt.navigation := dbms_aq.FIRST_MESSAGE;
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);
deq_item_data := deq_order_data.items(1);
deq_book_data := deq_item_data.item;
deq_cust_data := deq_order_data.customer;
tkaqdocp.sql: Examples of Operational Interfaces
dbms_output.put_line(' **** next booked order **** ');
dbms_output.put_line('order_num: ' || deq_order_data.orderno ||
' book_title: ' || deq_book_data.title ||
' quantity: ' || deq_item_data.quantity);
dbms_output.put_line('ship_state: ' || deq_cust_data.state ||
' ship_country: ' || deq_cust_data.country ||
' ship_order_type: ' || deq_order_data.ordertype);
dopt.navigation := dbms_aq.NEXT_MESSAGE;
EXCEPTION
WHEN no_messages THEN
dbms_output.put_line (' ---- NO MORE BOOKED ORDERS ---- ');
new_orders := FALSE;
END;
END LOOP;
Scripts for Implementing BooksOnLine C-25