Advanced Queuing - Oracle

ack_order_queue_name := 'WS.WS_backorders_que';
ELSIF sale_region = 'EAST' THEN
back_order_queue_name := 'ES.ES_backorders_que';
ELSE
back_order_queue_name := 'OS.OS_backorders_que';
END IF;
/* Enqueue the order with expiration set to 7 days: */
msgprop.expiration := 7*60*60*24;
dbms_aq.enqueue(back_order_queue_name, enqopt, msgprop,
backorder, enq_msgid);
END;
/
Visual Basic (OO4O): Example Code
set oraaq1 = OraDatabase.CreateAQ("WS.WS_backorders_que")
set oraaq2 = OraDatabase.CreateAQ("ES.ES_backorders_que")
set oraaq3 = OraDatabase.CreateAQ("CBADM.deferbilling_que")
Set OraMsg = OraAq.AQMsg(ORATYPE_OBJECT, "BOLADM.order_typ")
Set OraBackOrder = OraDatabase.CreateOraObject("BOLADM.order_typ")
Private Sub Requeue_backorder
Dim q as oraobject
If sale_region = WEST then
q=oraaq1
else if sale_region = EAST then
q=oraaq2
else
q=oraaq3
end if
OraMsg.delay = 7*60*60*24
OraMsg = OraBackOrder 'OraOrder contains the order details
Msgid = q.enqueue
End Sub
Enqueue Features
Java (JDBC): Example Code
/* Re-enqueue a back order into a back order queue and set a delay of 7 days;
all back orders must be processed in 7 days or they are moved to the
exception queue */
public static void requeue_back_order(Connection db_conn,
A Sample Application Using AQ 8-49