MQSeries.net :: View topic

satyasheel · Posted: Tue Mar 30, 2004 12:57 am Post subject:

Question:

I am using two compute node. Using the first compute node, I am passing the value 'MQ' using the code:

CREATE COMPUTE MODULE TestMessageFlow_Compute2
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN

CALL CopyMessageHeaders();

SET OutputRoot.Properties.MessageDomain = 'XML';
SET OutputRoot.Properties.MessageFormat = 'XML';
SET InputLocalEnvironment.Variables.OutputLocation = 'MQ';

SET OutputRoot.XML.Product.Detail1 = InputRoot.XML.Invoice.Customer[2].FirstName ;
SET OutputRoot.XML.Product.Detail2 = InputRoot.XML.Invoice.Customer[2].LastName ;

RETURN TRUE;
END;

CREATE PROCEDURE CopyMessageHeaders()
BEGIN
DECLARE I INTEGER 1;
DECLARE J INTEGER CARDINALITY(InputRoot.*[]);

WHILE(I<J) DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I = I + 1;
END WHILE;
END;
END MODULE;

And in the second Compute Node, I have written the code:
___________________________________________________
CREATE COMPUTE MODULE TestMessageFlow_Compute3
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL CopyMessageHeaders();

SET OutputRoot.Properties.MessageDomain = 'XML';
SET OutputRoot.Properties.MessageFormat = 'XML';

IF InputLocalEnvironment.Variables.OutputLocation = 'MQ' THEN

SET OutputLocalEnvironment.Destination.MQDestinationList.DestinationData.queueManagerName = 'MQSIV';
SET OutputLocalEnvironment.Destination.MQDestinationList.DestinationData.queueName = 'CC.OUT4';

SET OutputRoot = InputRoot ;

END IF;

RETURN TRUE;
END;

CREATE PROCEDURE CopyMessageHeaders()
BEGIN
DECLARE I INTEGER 1;
DECLARE J INTEGER CARDINALITY(InputRoot.*[]);

WHILE(I<J) DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I = I + 1;
END WHILE;
END;
END MODULE;

I have also set the Output Node Properties to the Destination List and also set the properties of both the compute node to pass Local Environment and Message. But the message is not going to the queue CC.OUT4 which I had mentioned in the queue.
Please advise.

--- Satyasheel
IBM India.
_________________
Satyasheel
IBM Global Services India Private Limited
Calcutta, India