Enqueue JMS type message in Oracle AQ

enqueue_jms_msg_oracle_aq.sql

declare 
  -- Local variables here
  queue_options DBMS_AQ.ENQUEUE_OPTIONS_T;
  message_properties DBMS_AQ.MESSAGE_PROPERTIES_T;
  message_id RAW(16);
  agent SYS.AQ$_AGENT := SYS.AQ$_AGENT(' ', null, 0);
  my_message SYS.AQ$_JMS_TEXT_MESSAGE;
begin
  my_message := SYS.AQ$_JMS_TEXT_MESSAGE.construct;
  my_message.set_text('<< sample message >>');

  -- Test statements here
  DBMS_AQ.ENQUEUE(
    queue_name => '<< queue_name >>',
    enqueue_options => queue_options,
    message_properties => message_properties,
    payload => my_message,
    msgid => message_id);
  commit;
end;