MQSeries.net :: View topic - Runtime error while connecting to mqseries from powerbuilder

saravanan_ilyan

Hi,
I am getting the following runtime error while executing the below code in power builder

The error code : error calling the external object function accessqueuemaager at line in open event of windowname.

The error number is : R0035(System error)

OLEObject MQS, QM, Q, Mw, Mr, PO , GO
String ls_mqmgr, ls_s

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
MQS.ConnectToNewObject("MQAX200.MqSession") // see note 1
ls_mqmgr = "QM_Local"// see note 2
QM = MQS.AccessQueueManager(ls_mqmgr)
Q = QM.AccessQueue("PRICING.INQUIRY.RULES.REQUEST",1 + 16) // see note 3
// WRITE
MW = MQS.AccessMessage
MW.MessageData = "hello" + string (cpu())
PO = MQS.AccessPutMessageOptions()
Q.Put( MW, PO )
// READ
MR = MQS.AccessMessage()
MR.MessageIdHex = MR.MessageIdHex // see note 4
GO = MQS.AccessGetMessageOptions()
Q.Get( MR, GO)
ls_s = MR.ReadString(MR.MessageLength)
MessageBox("MQSeries", ls_s)
Q.close()
QM.disconnect()

pls help me as soon as possible as This is very urgent

Thanks,
Saravanan.p