MQSeries.net :: View topic

meenas · Posted: Tue Dec 06, 2005 4:18 am Post subject:

Hi All,
I'm new to WBIMB and learning the tool myself. Please help me with the following problem.
I have created a simple message flow(MQInput -> Compute -> MQOutput) where I'm mapping data from an incoming XML to a custom wire format. I don't see any errors but the message in MQOutput Node is of length 0. The Format property of the message in the queue is also not set.

Here is my code:
CREATE COMPUTE MODULE XML2CWF_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL CopyMessageHeaders();
-- CALL CopyEntireMessage();
DECLARE MyOutput REFERENCE TO OutputRoot.MRM;
MyOutput.Field1 = 'aaa';
-- Similarly I have mapped other fields.
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;
SET OutputRoot.MQMD.StrucId = MQMD_STRUC_ID;
SET OutputRoot.MQMD.Version = MQMD_CURRENT_VERSION;
SET OutputRoot.MQMD.Format = MQFMT_STRING;
SET OutputRoot.MQMD.CodedCharSetId = 437;
SET OutputRoot.MQMD.Encoding = 546;

SET OutputRoot.Properties.MessageDomain = 'MRM';
SET OutputRoot.Properties.MessageSet = 'PKFE34G002001';
SET OutputRoot.Properties.MessageType = 'REQMSG';
SET OutputRoot.Properties.MessageFormat = 'CWF1';

END;

I'm I doing anything wrong while mapping? In the Trace node I'm able to see that all the fields have been mapped correctly.

Would appreciate you suggestion.

Thanks & Regards,
Meena.