Kbase P112261: 4GL Code example exchanging JMS messages using the SonicMQ C-Client version 6.1
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
05/01/2006 |
|
Status: Unverified
GOAL:
4GL Code example exchanging JMS messages using the SonicMQ C-Client
FACT(s) (Environment):
Sonic MQ 6.x
Progress 9.x
OpenEdge 10.x
FIX:
DEF VAR chProgressJMS AS COM-HANDLE.
DEF VAR chConnection AS COM-HANDLE.
DEF VAR chSession AS COM-HANDLE.
DEF VAR chSendQueue AS COM-HANDLE.
DEF VAR chqSender AS COM-HANDLE.
DEF VAR chReceiveQueue AS COM-HANDLE.
DEF VAR chReceiver AS COM-HANDLE.
DEF VAR chListener AS COM-HANDLE.
DEF VAR chMessage AS COM-HANDLE.
DEF VAR chMessage2 AS COM-HANDLE.
CREATE "JMSCOMClient.JMSQueueConnectionFactory.1" chProgressJMS.
CREATE "JMSCOMClient.JMSQueueReceiver" chReceiver.
chProgressJMS:initialize6 ("localhost:2506","M","Administrator","Administrator") .
chConnection = chProgressJMS:CreateQueueConnection().
chSession = chConnection:CreateQueueSession(False, 1) .
chSendQueue = chSession:CreateQueue("SampleQ1") .
chqSender = chSession:CreateSender(chSendQueue) .
chReceiveQueue = chSession:CreateQueue("SampleQ1") .
chReceiver = chSession:createReceiver(chReceiveQueue).
chConnection:start().
chMessage = chSession:createTextMessage2("Test") .
chqSender:SEND(chMessage).
MESSAGE "Sent message with text: "chMessage:getText() VIEW-AS ALERT-BOX.
RELEASE OBJECT chMessage .
chMessage2 = chReceiver:receive2(200).
MESSAGE "Received message with text: "chMessage2:getText() VIEW-AS ALERT-BOX.
RELEASE OBJECT chMessage2 .
chsession:CLOSE .
chConnection:CLOSE .
RELEASE OBJECT chReceiver .
RELEASE OBJECT chReceiveQueue .
RELEASE OBJECT chqSender .
RELEASE OBJECT chSendQueue .
RELEASE OBJECT chSession .
RELEASE OBJECT chConnection .
RELEASE OBJECT chProgressJMS .