Event based Decoupling in PL/SQL – your first Advanced Queue adventure

Back in 2004 when we started with the AMIS Technology Blog, my main objective was to record the things I infrequently do in order to have notes describing the steps to go through whenever I needed to do the thing again. I was own primary audience, so to say. Over the years, the articles have increased in complexity and sometimes in absurdity too. This one is back to that original intention. This article is not fancy at all – even though it touches upon a powerful (and underrated) subject: the Advanced Queue in the Oracle RDBMS. For the 1000s of database developers and architects that make frequent use of AQ, I am not going to add anything: this article merely shows the steps for creating an Advanced Queue, how to register a listener on the queue and how to publish a message on the queue. That is not fancy at all, obviously.

Event based Decoupling in PL/SQL - your first Advanced Queue adventure aqEmailEvents


What is extremely fancy and powerful – and not nearly used enough – is the architectural pattern that AQ allows us to introduce. Queues are a key concept for achieving decoupling. Decoupling itself is like the holy grail of architects – because it allows agility and reuse. Through a Queue, a publisher (or discoverer) of events can make them available to consumers that may or may not exist and that may or may not be available at the time of publishing the event. The publisher of the event does its duty by putting the event on the queue and is then free to go. The queue infrastructure will take it from there.

This article is not about the decoupling that can be achieved, nor does it discuss Event Driven Architecture, even though queues are a foundational component for EDA. It simply shows the syntax for creating a queue, a publisher and a consumer. So whenever I next need to set this up, I remember how to do it.

In this article I will first create a queue, then register a listener on it and finally publish a message on it. Note that messages can of course be published to a queue, even in the absence of subscribers.

Create the Advanced Queue

Steps in creating a queue through Advanced Queuing

  1. Define an Object Type to represent the message on the queue
  2. Create a Queue Table (as the messages on the Advanced Queue are persisted to a database table); the payload type specified for the Queue Table is the Object Type
  3. Create the Queue itself, associated with the Queue Table
  4. Start the Queue – activating it for receiving messages

First, define the payload of the messages that will be sent through the queue. We use an Object Type for this. In this example, the events represent Emails that have been received. The Object Type is called EMAIL_TYPE and it contains attributes for the essential aspects of an email:

create type email_type as object
( sent_date      timestamp(6)
, retrieved_date timestamp(6)
, subject        varchar2(1000)
, contents       varchar2(4000)
, from_sender    varchar2(1000)
, to_adressee    varchar2(1000)
, from_address   varchar2(1000)
);

Next, create the queue table, based on the payload type created above.

BEGIN
  dbms_aqadm.create_queue_table
  ( queue_table         => 'email_received_events_qt'
  , queue_payload_type  => 'email_type'
  , multiple_consumers  => true
  , comment             => 'Email Received Events Notification Queue'
  );
END;

Then create the queue itself, based on the queue table (and thereby indirectly associated with the payload type email_type):

BEGIN
  dbms_aqadm.create_queue
  ( queue_name  => 'emaileventsqueue'
  , queue_table => 'email_received_events_qt'
  );
END;

Finally, after creating the queue we have to formally get it going: just creating it is not enough to enable it to start receiving messages:

begin
  dbms_aqadm.start_queue( queue_name => 'emaileventsqueue');
end;

With this, the AQ queue has been set up. It is ready for anything that is coming.

Creating and Subscribing a Queue Consumer

A Consumer of messages from an Advanced Queue is a PL/SQL procedure with a predefined signature. It has to accept five input parameters that the AQ infrastructure provides. Using these parameters, the consumer can get its hands on the message itself. The message is effectively dequeued through a call to dbms_aq.dequeue:

create or replace
procedure notify_email_event
( context  in raw
, reginfo  in sys.aq$_reg_info
, descr    in sys.aq$_descriptor
, payload  in raw
, payloadl in number)
as
  dequeue_options dbms_aq.dequeue_options_t;
  message_properties dbms_aq.message_properties_t;
  message_handle raw(16);
  message email_type;
begin
  dequeue_options.msgid := descr.msg_id;
  dequeue_options.consumer_name := descr.consumer_name;
  dbms_aq.dequeue
  ( queue_name         => descr.queue_name
  , dequeue_options    => dequeue_options
  , message_properties => message_properties
  , payload            => message
  , msgid              => message_handle
  );
  -- take an action based on the message that was received from the queue
  email_service_package.send
  ( p_from    => 'maggie@stmatthews.com'
  , p_to      => message.from_address
  , p_subject => 'response to: '||message.subject
  , p_body    => 'Your email was received and will be processed'
  );
end;

When the PL/SQL procedure has been created according to the predefined signature, it can be registered with the queue as a consumer for its messages. With the following call to dbms_aqadm.add_subscriber, this procedure is identified as a recipient for messages that appear on the emaileventsqueue. Note that the add_subscriber procedure takes an optional parameter rule that can be used to specify a condition that messages should satisfy in order to be handed to this particular subscriber. It also accepts an optional parameter that may specify a transformation (PL/SQL function) to be performed on the message before delivery.

declare
  l_queue_name varchar2(30):='emaileventsqueue';
begin
  dbms_aqadm.add_subscriber
  ( queue_name => l_queue_name
  , subscriber => sys.aq$_agent( 'recipient', null, null )
  );
  dbms_aq.register
  ( sys.aq$_reg_info_list
    ( sys.aq$_reg_info
      ( l_queue_name||':recipient'
      , dbms_aq.namespace_aq
      , 'plsql://notify_email_event' -- name of the PL/SQL procedure that should be invoked to handle the message
      , hextoraw('ff')
      )
    )
  , 1
  );
end;

Event based Decoupling in PL/SQL - your first Advanced Queue adventure aqEmailEvents

Publishing a message on the queue

Messages are published to an Advanced Queue from PL/SQL. Note that the publication of a message is is transactional: it occurs inside a database transaction and is only complete when the transaction is committed. This is unlike message sent through a database pipe (with dbms_pipe).

create or replace
procedure enqueue_email_event
( p_email in email_type)
is
  queue_options dbms_aq.enqueue_options_t;
  message_properties dbms_aq.message_properties_t;
  message_id raw(16);
begin
  dbms_aq.enqueue
  ( queue_name         => 'emaileventsqueue'
  , enqueue_options    => queue_options
  , message_properties => message_properties
  , payload            => p_email
  , msgid              => message_id
  );
  commit;
end;

A simple message can be send via the queue through a call to enqueue_email_event:

begin
  enqueue_email_event( p_email => email_type( systimestamp
, null
, 'email subject'
, 'some query '
, 'frank'
, 'maggie@stmatthews.com'
, 'frank@stmatthews.com'
)
);
end;

Miscellaneous

Queues can be enabled for single or multiple (publish/subscribe pattern)consumers – much like Queues and Topics in JMS. Consumers can be registered – as we have seen above – and invoked by the AQ infrastructure. Alternatively, consumers can actively inspect the queue for new messages to dequeue. Messages can be retained on the queue (for a specified period of time). Delivery of messages for which the delivery has failed can be automatically retried (after a specified period of time).

Messages can also be scheduled for automatic propagation to another queue. This propagation can be done conditionally – only when the payload of the message satisfies a specific condition – and can include a transformation – that turns the orginal payload into a different type according to a PL/SQL function that must be specified. The propagation can be controlled, for example to throttle the message flow, or to only propagate messages in specific time windows.

For documentation on AQ in 11gR2, see: http://download.oracle.com/docs/cd/E11882_01/server.112/e11013/aq_admin.htm

No Responses

  1. Pingback: frank September 20, 2010