Advanced Queuing - Oracle

Enqueuing and Dequeuing Of Messages
mesg->data = (OCIString *)0;
OCIStringAssignText(envhp, errhp,
(CONST text *)"NORMAL MESSAGE", strlen("NORMAL MESSAGE"),
&mesg->subject);
OCIStringAssignText(envhp, errhp,
(CONST text *)"OCI ENQUEUE", strlen("OCI ENQUEUE"),
&mesg->data);
nmesg->null_adt = nmesg->null_subject = nmesg->null_data = OCI_IND_NOTNULL;
/* Enqueue into the msg_queue */
OCIAQEnq(svchp, errhp, (CONST text *)"msg_queue", 0, 0,
mesg_tdo, (dvoid **)&mesg, (dvoid **)&nmesg, 0, 0);
OCITransCommit(svchp, errhp, (ub4) 0);
/* Dequeue from the msg_queue */
OCIAQDeq(svchp, errhp, (CONST text *)"msg_queue", 0, 0,
mesg_tdo, (dvoid **)&deqmesg, (dvoid **)&ndeqmesg, 0, 0);
printf("Subject: %s\n", OCIStringPtr(envhp, deqmesg->subject));
printf("Text: %s\n", OCIStringPtr(envhp, deqmesg->data));
OCITransCommit(svchp, errhp, (ub4) 0);
}
Enqueuing and Dequeuing of Messages to/from a Multiconsumer Queue Using
PL/SQL
/* Create subscriber list: */
DECLARE
subscriber aq$_agent;
/* Add subscribers RED and GREEN to the suscriber list: */
BEGIN
subscriber := aq$_agent(’RED’, NULL, NULL);
DBMS_AQADM.ADD_SUBSCRIBER(queue_name => ’msg_queue_multiple’,
subscriber => subscriber);
subscriber := aq$_agent(’GREEN’, NULL, NULL);
DBMS_AQADM.ADD_SUBSCRIBER(queue_name => ’msg_queue_multiple’,
subscriber => subscriber);
END;
DECLARE
enqueue_options DBMS_AQ.enqueue_options_t;
message_properties DBMS_AQ.message_properties_t;
A-44 Oracle9i Application Developer’s Guide - Advanced Queuing