MQSeries.net :: View topic

sree4vit · Posted: Fri Apr 08, 2011 1:17 am Post subject:

Input:
===========================
<HotelDescriptiveInfos xmlns="http://www.opentravel.org/OTA/2003/05">
<HotelDescriptiveInfo SourceCD="1111" ChainCD= "2222" PropertyID="3333" UniversalID="4444">
<HotelInfo SendData="True"/>
<FacilityInfo SendMeetingRooms="True" SendGuestRooms="True"/>
<Policies SendPolicies="True"/>
<AreaInfo SendRefPoints="True" SendAttractions="True"/>
</HotelDescriptiveInfo>
<HotelDescriptiveInfo SourceCD="5555" ChainCD= "6666" PropertyID="7777" UniversalID="8888" >
<HotelInfo SendData="True"/>
<FacilityInfo SendMeetingRooms="True" SendGuestRooms="True"/>
<Policies SendPolicies="True"/>
<AreaInfo SendRefPoints="True" SendAttractions="True"/>
</HotelDescriptiveInfo>
</HotelDescriptiveInfos>

Str' Of : Environment.Variables.IntegrationInfo.EntityIDList:
==============================================================

<EntityIDList>
<EntityID name="SourceCD">1111</EntityID>
<EntityID name="ChainCD">2222</EntityID>
<EntityID name="PropertyID">3333</EntityID>
<EntityID name="UniversalID">4444</EntityID>
</EntityIDList>
<EntityIDList>
<EntityID name="SourceCD">5555</EntityID>
<EntityID name="ChainCD">6666</EntityID>
<EntityID name="PropertyID">7777</EntityID>
<EntityID name="UniversalID">8888</EntityID>
</EntityIDList>

Current Code:
==========

DECLARE RF_EntityIDList REFERENCE TO Environment.Variables.IntegrationInfo.EntityIDList;

WHILE LASTMOVE(RF_EntityIDList) DO

CREATE FIELD OutputRoot.XMLNSC.EI_Common_ErrorInfo.EntityIDList.EntityID;

DECLARE RF_EntityIDListSeg REFERENCE TO OutputRoot.XMLNSC.EI_Common_ErrorInfo.EntityIDList.EntityID;
DECLARE RF_EntityID REFERENCE TO Environment.Variables.IntegrationInfo.EntityIDList.EntityID;

WHILE LASTMOVE(RF_EntityID) DO

SET RF_EntityIDListSeg = RF_EntityID;
SET RF_EntityIDListSeg.(XMLNSC.Attribute)name = RF_EntityID.name;

CREATE NEXTSIBLING OF RF_EntityIDListSeg AS RF_EntityIDListSeg REPEAT;
MOVE RF_EntityID NEXTSIBLING REPEAT TYPE NAME;

END WHILE;

MOVE RF_EntityIDList NEXTSIBLING REPEAT TYPE NAME;
END WHILE;

Output Needed:
============================
<EntityIDList>
<EntityID name="SourceCD">1111</EntityID>
<EntityID name="ChainCD">2222</EntityID>
<EntityID name="PropertyID">3333</EntityID>
<EntityID name="UniversalID">4444</EntityID>
</EntityIDList>
<EntityIDList>
<EntityID name="SourceCD">5555</EntityID>
<EntityID name="ChainCD">6666</EntityID>
<EntityID name="PropertyID">7777</EntityID>
<EntityID name="UniversalID">8888</EntityID>
</EntityIDList>

Any hellp would be higly appreciated