Advanced Queuing - Oracle

Dequeue Features
end;
/
IF (deq_cust_data.country = ’Canada’ OR
deq_cust_data.country = ’Mexico’ ) THEN
dopt.dequeue_mode := dbms_aq.REMOVE_NODATA;
dopt.msgid := deq_msgid;
dbms_aq.dequeue(
queue_name => qname,
dequeue_options => dopt,
message_properties => mprop,
payload => deq_order_nodata,
msgid => deq_msgid);
commit;
8-72 Oracle9i Application Developer’s Guide - Advanced Queuing
dbms_output.put_line(’ **** next booked order **** ’);
dbms_output.put_line(’order_no: ’ || 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);
END IF;
commit;
dopt.dequeue_mode := DBMS_AQ.LOCKED;
dopt.msgid := NULL;
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;
CONNECT EXECUTE on get_northamerican_orders to OS;
CONNECT ES/ES;
/* Browse all booked orders for East_Shipping: */
EXECUTE BOLADM.shipping_bookedorder_deq(’East_Shipping’, DBMS_AQ.BROWSE);
CONNECT OS/OS;