MQSeries.net :: View topic

Testo · Posted: Thu Nov 06, 2003 10:48 am Post subject: Thanks!

I have a SWIFT message and I need to add to it an MQRFH2 header to interact with a WBI software (Liquidity Manager).

This is the header that I would like to obtain:

<ComIbmFml>
<Version>1.0</Version>
<Payment>
<Msg_type>S100</Msg_type>
<Message_format>SWIFT</Message_format>
<Schedule>
<Schedule_date>2003-01-30</Schedule_date>
</Schedule>
</Payment>
<User>
<User_ref>Test for Ebbe</User_ref>
</User>
</ComIbmFml>

This is the eSQL code I wrote:

SET OutputRoot.Properties.MessageSet = 'DM95BT0086001';
SET OutputRoot.Properties.MessageType = 'MT_STRING';
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" = 'S103';
SET OutputRoot.MQRFH2."ComIbmFml"."Payment"."Message_format" = 'SWIFT';
SET OutputRoot.MQRFH2."ComIbmFml"."Payment"."Schedule"."Schedule_date" = '2003-11-06';
SET OutputRoot.MQRFH2."ComIbmFml"."User"."User_ref" = 'Test for Ebbe';

SET OutputRoot.MRM = InputRoot.MRM;

But this is the undesired result:

(0x1000000)MQRFH2 = (
(0x3000000)Version = 2
(0x3000000)Format = 'MQSTR '
(0x3000000)NameValueCCSID = 1208
(0x1000000)mcd = (
(0x1000000)Msd = (
(0x2000000) = 'mrm'
)
(0x1000000)Set = (
(0x2000000) = 'DM95BT0086001'
)
(0x1000000)Type = (
(0x2000000) = 'MT_STRING'
)
(0x1000000)Fmt = (
(0x2000000) = 'SWIFT'
)
)
)
(0x100001B)MRM = (
(0x300000B)MessageString = <Body of message>
)
)

Help!

Thanks in advance,
Andrea Tedone
IBM EMEA SOUTH