MQSeries.net :: View topic

satyasheel15 · Posted: Wed Jun 08, 2005 8:17 am Post subject:

Hi,

I have written the following code :
----------------------------------------
CALL CopyMessageHeaders();
-- CALL CopyEntireMessage();

-- SETTING THE Header Properties for the Output Message
SET OutputRoot.Properties.MessageDomain = 'MRM';
SET OutputRoot.Properties.MessageSet = 'D26R2C8002001';
SET OutputRoot.Properties.MessageType = 'Document';
SET OutputRoot.Properties.MessageFormat = 'XML1';

DECLARE inRef REFERENCE TO InputRoot.MRM.ns13:itemandprice[>];
DECLARE outRef REFERENCE TO OutputRoot.MRM.ns10:DAF_ARTIKEL[1];

CREATE FIELD OutputRoot.MRM.ns10:DAF_ARTIKEL[1] AS outRef ;

WHILE (LASTMOVE(inRef)= TRUE) DO

-- General rules: Only map elements for which productType in scheme "itemsandprices" that does not have the value â€˜4â€™ (= displays)
IF((inRef.ns13:productType) <> 4) THEN

DECLARE r INTEGER 1;
FOR source5 AS inRef.ns13:artattributes.ns13:artattribute[] DO

DECLARE iAttrClass CHARACTER source5.ns13:attributeClass ;
DECLARE iAttrCode CHARACTER source5.ns13:attributeCode ;

DECLARE vMETRAGE CHARACTER (THE(SELECT ITEM I.METRAGE
FROM Database.METRAGECONV AS I
WHERE I.ATTRIBUTECLASS = iAttrClass AND
I.ATTRIBUTECODE = iAttrCode ));

-- MODIFY:Lookup the value for Metrage in the MetrageConv table
using attributeCode and attributeClass
IF (vMETRAGE IS NOT NULL) THEN SET outRef.ns10:Metrage[r] = vMETRAGE ; END IF;
SET r = r + 1;
END FOR;
END IF;

MOVE outRef NEXTSIBLING REPEAT TYPE NAME;
MOVE inRef NEXTSIBLING REPEAT TYPE NAME;

IF (LASTMOVE(inRef)) THEN
CREATE NEXTSIBLING OF outRef AS outRef REPEAT; END IF;
END WHILE;
---------------------------------------
And the Name of the DATABASE Table is : METRAGECONV and datatype of all the column is CHARACTER. I have also checked the required ODBC connection and set up the Compute NOde properties.

What's happening that whenever I put the test message, when code goes into the code : DECLARE vMETRAGE CHARACTER (THE(SELECT ITEM I.METRAGE
FROM Database.METRAGECONV AS I
WHERE I.ATTRIBUTECLASS = iAttrClass AND
I.ATTRIBUTECODE = iAttrCode ));
as shown above, it goes into INFINITE LOOP.

Can anyone let me know the reason.