MQSeries.net :: View topic - 2354 (0932) (RC2354): MQRC_UOW_ENLISTMENT_ERROR

drummerboyuk · Posted: Wed Feb 08, 2012 4:02 am Post subject:

Hi,

I am getting the

2354 (0932) (RC2354): MQRC_UOW_ENLISTMENT_ERROR

error when running a COM+ (x86) (written in Delphi) on a Windows 2008 Server (64 bit) R2 server. The COM+ object has been ported from a Windows 2003 Server (32 bit) R2 server.
I am using v7.0.1.3 MQ Websphere client and the MQ Websphere server is also running on v7.

The problem appears to be happening when trying to get the message
from the queue. Does not seem to beable to read it.
-------------------------------------------------------------------------------
QueueSession := coMQSession.CreateRemote(FConfigInfo.Values[MQCOMPUTER_NAME]);

QueueManagerName := FConfigInfo.Values[MQMGR_NAME];
QueueManager := QueueSession.AccessQueueManager(QueueManagerName) as IMQQueueManager200;

Queue := QueueManager.AccessQueue(
FConfigInfo.Values[MQINBOUND_QUEUE],
MQOO_INPUT_AS_Q_DEF + MQOO_BROWSE, QueueManagerName, '', '') as IMQQueue200;

GetOptions := QueueSession.AccessGetMessageOptions as IMQGetMessageOptions200;

GetOptions.WaitInterval := StrToInt(FConfigInfo.Values[MQWAITINTERVAL]);
GetOptions.Options := MQGMO_WAIT + MQGMO_SYNCPOINT;

Queue.Get(MQMessage, GetOptions, 32000);

{$ifdef DEBUG}
TNTEventService.LogEventMessage('MQRead',
'Current queue message depth '+inttostr(Queue.CurrentDepth), EVENTLOG_INFORMATION_TYPE, 15900);
{$endif}

{$ifdef DEBUG}
TNTEventService.LogEventMessage('MQRead',
'MQMessage length '+inttostr(MQMessage.MessageLength), EVENTLOG_INFORMATION_TYPE, 15900);
{$endif}
-------------------------------------------------------------------------------
MessageLength is 0?
Queue message depth is -2? (but there is definitely a message on the queue)
and (Queue.CompletionCode = MQCC_OK) is obviously False.

I believe I have ported the COM+ objects correctly and the object timeout is set to 0.

The settings (checked) for the local DTC on the Windows 2008 server R2 (64 bit) are

Allow Remote Clients
Allow Remote Administration

Transaction Manager Communication
Allow inbound
Allow outbound

No Authentication Required

Enable XA Transactions
Enable SNA LU 6.2 Transactions

DTC logon Account
NetworkService

As a final question is it possible for me to perhaps build the COM+ objects as 64 bit components (in Delphi XE2) and get them to work? I am guessing this would this require the use of a different MQ dll?

I am pretty new to MQ Websphere so please forgive my lack of knowledge.

Any help of advice greatly appreciated (when trying to port this MQ code).
This all seems to work fine (reading from the same queues) on a Windows 2003 Server R2 (32 bit).

Thanks
Stef