Advanced Queuing - Oracle

General Features of Advanced Queuing
AS
msgprop dbms_aq.message_properties_t;
enqopt dbms_aq.enqueue_options_t;
enq_msgid RAW(16);
payload adtmsg;
BEGIN
/* Visibility must always be immediate for NonPersistent queues: */
enqopt.visibility:=dbms_aq.IMMEDIATE;
msgprop.correlation:= 'LOGOFF';
msgprop.recipient_list(0) := aq$_agent(app_process, NULL, NULL);
/* Payload is NOT NULL: */
payload := adtmsg(1, 'Logging Off');
dbms_aq.enqueue(
queue_name => 'LOGON_LOGOFF',
enqueue_options => enqopt,
message_properties => msgprop,
payload => payload,
msgid => enq_msgid);
END;
/
/* If there is a login at APP1, enqueue a message into 'login_logoff' with
correlation 'LOGIN': */
EXECUTE User_logon('APP1');
/* If there is a logout at APP3, enqueue a message into 'login_logoff' with
correlation 'LOGOFF' and payload adtmsg(1, 'Logging Off'): */
EXECUTE User_logoff('App3');
/* The OCI program which waits for notifications: */
#include
#include
#include
#include
#ifdef WIN32COMMON
#define sleep(x) Sleep(1000*(x))
#endif
/* LOGON / password: */
static text *username = (text *) "OE";
static text *password = (text *) "OE";
/* The correlation strings of messages: */
A Sample Application Using AQ 8-19