Advanced Queuing - Oracle

tkaqdocp.sql: Examples of Operational Interfaces
begin
end;
/
show errors;
msgprop.correlation := cust_ord_typ;
OE_enq_cust_data := BOLADM.customer_typ(NULL, NULL, NULL, NULL,
cust_state, NULL, cust_country);
OE_enq_book_data := BOLADM.book_typ(book_title, NULL, NULL, NULL);
OE_enq_item_data := BOLADM.orderitem_typ(book_qty,
OE_enq_book_data, NULL);
OE_enq_item_list := BOLADM.orderitemlist_vartyp(
BOLADM.orderitem_typ(book_qty,
OE_enq_book_data, NULL));
OE_enq_order_data := BOLADM.order_typ(order_num, NULL,
cust_ord_typ, cust_region,
OE_enq_cust_data, NULL,
OE_enq_item_list, NULL);
-- Put the shipping priority into message property before
-- enqueueing the message
msgprop.priority := shipping_priority;
dbms_aq.enqueue('OE.OE_bookedorders_que', enqopt, msgprop,
OE_enq_order_data, enq_msgid);
grant execute on order_enq to OE;
Rem now create a procedure to dequeue booked orders for shipment processing
create or replace procedure shipping_bookedorder_deq(
consumer in varchar2,
deqmode in binary_integer) as
deq_cust_data BOLADM.customer_typ;
deq_book_data BOLADM.book_typ;
deq_item_data BOLADM.orderitem_typ;
deq_msgid RAW(16);
dopt dbms_aq.dequeue_options_t;
mprop dbms_aq.message_properties_t;
deq_order_data BOLADM.order_typ;
qname varchar2(30);
no_messages exception;
pragma exception_init (no_messages, -25228);
new_orders BOOLEAN := TRUE;
C-24 Oracle9i Application Developer’s Guide - Advanced Queuing