Sample JMS Built-in Procedure

As an introduction to how built-in procedures can be used, here is an example that uses several built-in procedures from /lib/jms:

PROCEDURE jmsExampleProc()

BEGIN

 -- Create queue_connector and topic_connector beforehand using Manager.

 -- Declare a row type variable to send a map message. 

 -- The message has keys named using the attributes of the 

 -- following ROW type variable.

 DECLARE mapmsg ROW( A INT, B VARCHAR );

 -- Declare a variable to send JMS properties.

 DECLARE complexProperties ROW ( uname VARCHAR, utime INT );

 SET mapmsg = ( 1, 'var' );

 -- Set a simple JMS property.

 CALL SetMessageProperty( 'userId', 'admin' );

 -- Send the map message.

 CALL SendMapMessage( 'topic_connector', 'my.topic', mapmsg );

 -- Clear all properties.

 CALL ClearMessageProperties();

 -- Set values for the ROW type variable, which is used to set JMS properties. 

 -- The names of such properties are created using the attributes 

 -- of the ROW variable.

 -- The value of the property is specified by the following assignment.

 SET complexProperties = ( 'admin', 1001 );

 CALL SetMessageProperties( complexProperties );

 -- Send several messages. Each message uses the properties in effect.

 CALL SendTextMessage( 'queue_connector', 'my.queue', 'hello world' );

 CALL SendTextMessage( 'queue_connector', 'my.queue', 'hello world2' );

 -- Properties are cleared upon returning. 

END