MQSeries.net :: View topic

Testo · Posted: Thu Dec 04, 2003 3:29 am Post subject:

I've developed the eSQL below:

DECLARE C INTEGER;
SET C = CARDINALITY(InputRoot.*[]);
DECLARE I INTEGER;
SET I = 1;
WHILE I < C DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I=I+1;
END WHILE;
-- Enter SQL below this line. SQL above this line might be regenerated, causing any modifications to be lost.
SET OutputRoot.Properties.MessageFormat = 'SWIFT';

SET OutputRoot.MQMD.Format = MQFMT_RF_HEADER_2;

SET OutputRoot.MQRFH2.(MQRFH2.Field)Version = 2;
SET OutputRoot.MQRFH2.(MQRFH2.Field)StrucLength = MQRFH_STRUC_LENGTH_FIXED_2 + 224;
SET OutputRoot.MQRFH2.(MQRFH2.Field)CodeCharSetId = 500;
SET OutputRoot.MQRFH2.(MQRFH2.Field)Format = MQFMT_STRING;
SET OutputRoot.MQRFH2.(MQRFH2.Field)NameValueCCSID = 1208;

SET OutputRoot.MQRFH2.ComIbmFml.Version = '1.0';
SET OutputRoot.MQRFH2.ComIbmFml.Payment.Msg_type = 'S' || Environment.Variables.msg;
SET OutputRoot.MQRFH2.ComIbmFml.Payment.Message_format = 'SWIFT';
SET OutputRoot.MQRFH2.ComIbmFml.Payment.Schedule.Schedule_date = '2003-12-04';
SET OutputRoot.MQRFH2.ComIbmFml.User.User_ref = 'BRLI888888888888';

SET "OutputRoot"."MRM"."MessageString" = "InputBody"."MessageString";

The expected output is:

<mcd>
<Msd>mrm</Msd>
<Fmt>SWIFT</Fmt>
</mcd>
<ComIbmFml>
<Version>1.0</Version>
<Payment>
<Msg_type>S103</Msg_type>
<Message_format>SWIFT</Message_format>
<Schedule>
<Schedule_date>2003-12-04</Schedule_date>
</Schedule>
</Payment>
<User>
<User_ref>BRLI888888888888</User_ref>
</User>
</ComIbmFml>

while I get the same result but with <ComIbmFml> folder on top:

<ComIbmFml>
<Version>1.0</Version>
<Payment>
<Msg_type>S103</Msg_type>
<Message_format>SWIFT</Message_format>
<Schedule>
<Schedule_date>2003-12-04</Schedule_date>
</Schedule>
</Payment>
<User>
<User_ref>BRLI888888888888</User_ref><mcd>
<Msd>mrm</Msd>
<Fmt>SWIFT</Fmt>
</mcd>
</User>
</ComIbmFml>
<mcd>
<Msd>mrm</Msd>
<Fmt>SWIFT</Fmt>
</mcd>

Any hint?
Thanks,
Andrea Tedone