>

Simples Assim

$title =

How to Receive a Message from an Apache ActiveMQ Queue with Visual COBOL

;

$content = [

class-id ActiveMQSample public.

method-id main public static.

local-storage section.

01 connFactory type javax.jms.ConnectionFactory.

01 conn type javax.jms.Connection.

01 sess type javax.jms.Session.

01 dest type javax.jms.Destination.

01 cons type javax.jms.MessageConsumer.

01 msg type javax.jms.Message.

procedure division.
  set connFactory to new org.apache.activemq.ActiveMQConnectionFactory()

  set conn to connFactory::createConnection()

  set sess to conn::createSession(false, type javax.jms.Session::AUTO_ACKNOWLEDGE)

  set dest to sess::createQueue("SampleQueue")

  set cons to sess::createConsumer(dest)

  invoke conn::start()

  set msg to cons::receive()

  display msg

  invoke conn::close()

  goback.
end method.

end class.

];

$date =

;

$category =

;

$author =

Fernando Ribeiro

;

$previous =

;

$next =

;