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 45
45
COMMIT ;
46
46
END;
47
47
/
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
+ /
48
72
EXIT;
Original file line number Diff line number Diff line change 39
39
COMMIT ;
40
40
END;
41
41
/
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
+ /
42
66
EXIT;
You can’t perform that action at this time.
0 commit comments