File tree Expand file tree Collapse file tree 2 files changed +48
-0
lines changed Expand file tree Collapse file tree 2 files changed +48
-0
lines changed Original file line number Diff line number Diff line change 4545 COMMIT ;
4646END;
4747/
48+
49+ -- Dequeue from JSON TEQ
50+ DECLARE
51+ dequeue_options dbms_aq .dequeue_options_t ;
52+ message_properties dbms_aq .message_properties_t ;
53+ message_handle RAW(16 );
54+ message JSON;
55+
56+ BEGIN
57+ dequeue_options .dequeue_mode := DBMS_AQ .REMOVE ;
58+ dequeue_options .wait := DBMS_AQ .NO_WAIT ;
59+ dequeue_options .navigation := DBMS_AQ .FIRST_MESSAGE ;
60+ dequeue_options .consumer_name := ' teqBasicJsonSubscriber' ;
61+
62+ DBMS_AQ .DEQUEUE (
63+ queue_name => ' jsonType_TEQ' ,
64+ dequeue_options => dequeue_options,
65+ message_properties => message_properties,
66+ payload => message,
67+ msgid => message_handle);
68+ dbms_output .put_line (json_serialize(message));
69+ COMMIT ;
70+ END;
71+ /
4872EXIT;
Original file line number Diff line number Diff line change 3939 COMMIT ;
4040END;
4141/
42+ -- Enqueue for JSON Message
43+ DECLARE
44+ enqueue_options dbms_aq .enqueue_options_t ;
45+ message_properties dbms_aq .message_properties_t ;
46+ message_handle RAW(16 );
47+ message json;
48+ BEGIN
49+ message:= json('
50+ {
51+ "ORDERID":12345,
52+ "USERNAME":"name"
53+ }' );
54+ message_properties .correlation := ' teqBasicJsonSubscriber' ;
55+
56+ DBMS_AQ .ENQUEUE (
57+ queue_name => ' jsonType_TEQ' ,
58+ enqueue_options => enqueue_options,
59+ message_properties => message_properties,
60+ payload => message,
61+ msgid => message_handle);
62+ dbms_output .put_line (json_serialize(message));
63+ COMMIT ;
64+ END;
65+ /
4266EXIT;
You can’t perform that action at this time.
0 commit comments