MQSeries.net :: View topic

anilmekala · Posted: Mon Oct 06, 2014 5:47 am Post subject:

Hi All,

I hope all are doing good.

I am receiving xml from external system as below format

<MRequest>
<Mab>
<Hab>
<Type>ABC</Type>
<Npices>10</Npices>
<Ref>120</Ref>
</Hab>
<Hab>
<Type>ABC</Type>
<Npices>10</Npices>
<Ref>120</Ref>
</Hab>
<Hab>
<Type>ABC</Type>
<Npices>10</Npices>
<Ref>121</Ref>
</Hab>
<Hab>
<Type>ABC</Type>
<Npices>10</Npices>
<Ref>130</Ref>
</Hab>
<Hab>
<Type>XYZ</Type>
<Npices>10</Npices>
<Ref>125</Ref>
</Hab>
</Mab>
</MRequest>

My requirment is i need check type ='ABC' need iterate each Hab element
if get same ref in iteration need to update npice else i need to added to new row datatype

I am pasting code snipet as below update check is not happening.

DECLARE tempDngGdsCnt ROW;
DECLARE intTempRow INTEGER;
DECLARE npcs INTEGER;
DECLARE shipref CHARACTER;
DECLARE intShipRef INTEGER;
DECLARE intShipStmt INTEGER;
SET intTempHawbVal=1;
SET intShipStmt = 1;
WHILE LASTMOVE(refToHawb) DO
IF(refToHawb.ShipperRef.Qualifier='DGS')THEN
SET npcs = CAST(SUBSTRING(refToHawb.NumberOfPieces BEFORE '/') AS INTEGER);
SET shipref = refToHawb.ShipperRef.ShipmentRef;
SET intShipRef =CARDINALITY(tempDngGdsCnt.shipref[]);
DECLARE bolExist BOOLEAN FALSE;

PROCESS1: WHILE (intShipStmt<=intShipRef) DO
IF tempDngGdsCnt.shipref[intShipRef].value = shipref THEN
SET tempDngGdsCnt.shipref[intShipRef].Value = shipref;
SET tempDngGdsCnt.npcs[intShipRef].Value = CAST(tempDngGdsCnt.npcs[intShipRef].Value AS INTEGER)+npcs;
SET bolExist = TRUE;
LEAVE PROCESS1;
END IF;
SET intShipStmt= intShipStmt+1;
END WHILE;

IF NOT bolExist THEN
SET intShipRef = intShipRef + 1;
SET tempDngGdsCnt.shipref[intShipRef].Value = shipref;
SET tempDngGdsCnt.npcs[intShipRef].Value = npcs;
END IF;
END IF;
SET intTempHawbVal = intTempHawbVal+1;
MOVE refToHawb NEXTSIBLING REPEAT TYPE NAME;
END WHILE;

Please help me on the above.

Thank you