PL/SQL 对AQ 进行enqueue操作样例

最新推荐文章于 2025-08-16 15:48:38 发布

最新推荐文章于 2025-08-16 15:48:38 发布 · 472 阅读

文章标签：

#SQL #JMS

计算机与 Internet 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一个使用Oracle Advanced Queuing (AQ)的消息队列示例，展示了如何构造消息并将其发送到指定的消息队列中。具体操作包括设置消息属性、设置消息内容以及将消息入队等。


DECLARE 

    text        varchar2(32767); 
    agent       sys.aq$_agent   := sys.aq$_agent(' ', null, 0); 
    message     sys.aq$_jms_text_message; 

    enqueue_options    dbms_aq.enqueue_options_t; 
    message_properties dbms_aq.message_properties_t; 

    msgid               raw(16); 

BEGIN 

    message := sys.aq$_jms_text_message.construct; 
    message_properties.expiration :=5;
    message.set_replyto(agent); 
    message.set_type('tkaqpet2'); 
    message.set_userid('test'); 

    message.set_groupseq(1); 


    message.set_boolean_property('import', True); 
    message.set_string_property('color', 'RED'); 
    message.set_short_property('year', 1999); 
    message.set_long_property('mileage', 300000); 
    message.set_double_property('price', 16999.99); 
    message.set_byte_property('password', 127); 

    FOR i IN 1..5 LOOP 
        text := CONCAT (text, '1234567890'); 
    END LOOP; 

    message.set_text(text); 

    dbms_aq.enqueue(queue_name => 'test.test1', 
                       enqueue_options => enqueue_options, 
                       message_properties => message_properties, 
                       payload => message, 
                       msgid => msgid); 

END;