MQSeries.net :: View topic

saurabh.mk2003 · Posted: Mon Oct 29, 2007 5:36 am Post subject:

Hi,

I have a carrot delimited file containing header & line items. The format of this input file is ::

01^empid^empname^empadd
02^id^name

where '01' represents headers & '02' represents line items.
I want to bring this file in XML format in RFH util.
In its compute node, I have written the logic ::

CREATE COMPUTE MODULE MF_Exam_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL CopyMessageHeaders();
CALL CopyEntireMessage();

DECLARE parseOptions INTEGER BITOR(ValidateValue, ValidateContent,ValidateException, ValidateComplete, ValidateFullConstraints);
CREATE LASTCHILD OF Environment.Variables DOMAIN 'MRM' PARSE(InputRoot.BLOB.BLOB OPTIONS parseOptions SET 'dfd' TYPE 'Rec-type' FORMAT 'TDS1');
DECLARE Record_Ref REFERENCE TO Environment.Variables.MRM; --Reference to the MRM data

RETURN TRUE;
END;

CREATE PROCEDURE CopyMessageHeaders() BEGIN
DECLARE I INTEGER;
DECLARE J INTEGER;
SET I = 1;
SET J = CARDINALITY(InputRoot.*[]);
WHILE I < J DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I = I + 1;
END WHILE;
END;

CREATE PROCEDURE CopyEntireMessage() BEGIN
SET OutputRoot = InputRoot;
END;
END MODULE;

After running this, it is showing only the headers in the Environment tree. And also the message is not coming in the XML format.

Could you plz pick out and tell where i am going wrong ?