Advanced Queuing - Oracle

compatible => '8.1', \
primary_instance => 2, \
secondary_instance => 1);
EXECUTE dbms_aqadm.create_queue ( \
queue_name => 'OE_bookedorders_que', \
queue_table => 'OE_orders_pr_mqtab');
Enqueue Features
/* When an order arrives, the order entry application can use the following
procedure to enqueue the order into its booked orders queue. A shipping
priority is specified for each order: */
CREATE OR REPLACE procedure order_enq(book_title IN VARCHAR2,
book_qty IN NUMBER,
order_num IN NUMBER,
shipping_priority IN NUMBER,
cust_state IN VARCHAR2,
cust_country IN VARCHAR2,
cust_region IN VARCHAR2,
cust_ord_typ IN VARCHAR2) AS
OE_enq_order_data BOLADM.order_typ;
OE_enq_cust_data BOLADM.customer_typ;
OE_enq_book_data BOLADM.book_typ;
OE_enq_item_data BOLADM.orderitem_typ;
OE_enq_item_list BOLADM.orderitemlist_vartyp;
enqopt dbms_aq.enqueue_options_t;
msgprop dbms_aq.message_properties_t;
enq_msgid RAW(16);
BEGIN
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 enqueuing
A Sample Application Using AQ 8-39