MQSeries.net :: View topic

vi.va · Posted: Thu Feb 11, 2010 2:28 pm Post subject:

i set system environment variables
MQSERVER = DC/TCP/192.168.100.228(2000)

PB code:
OLEObject MQS, QM, Q, MW, MR, PO, GO
String ls_mqmgr, ls_s
integer i

MQS = CREATE OLEObject // MQSeries Session
QM = CREATE OLEObject // QueueManager
Q = CREATE OLEObject // Queue
MW = CREATE OLEObject // Message Written
MR = CREATE OLEObject // Message Read
PO = CREATE OLEOBject // Put options
GO = CREATE OLEOBject // Get options

I = MQS.ConnectToNewObject("MQAX200.MqSession")
MessageBox("",string (i))
ls_mqmgr = "0326GSB"
QM = MQS.AccessQueueManager(ls_mqmgr)
Q = QM.AccessQueue("032601B01",16)
// WRITE
MW = MQS.AccessMessage
MW.MessageData = "HELLO WORLD " + string(cpu())
PO = MQS.AccessPutMessageOptions()
Q.Put( MW, PO)
// READ
MR = MQS.AccessMessage()
MR.MessageIdHex = MR.MessageIdHex
GO = MQS.AccessGetMessageOptions()
Q.Get( MR, GO)
ls_s = MR.ReadString(MR.MessageLength)
MessageBox("MQSeries", ls_s)

Q.close()
QM.disconnect()

but massage note:
error calling external object function accessqueuemanager line 16 in clicked event of object cb_1 of w_1