MQSeries.net :: View topic

muneetb · Posted: Wed Apr 30, 2003 1:34 pm Post subject: parsing XML

Hi--

I have been able to save my XML strings into the db as CLOBs. Now I am trying to retrieve it from the db and post it to a queue. Every record goes on the queue as a seperate message. Here is what I am doing and it does not work. Actually it does work for the first record and fails on the next one.

SET Environment.TMP.blob[] =
PASSTHRU('SELECT BLOB(T.MSGDATA) AS TX FROM MQ.BATCHWO AS T WHERE T.MSGID = ? AND (T.ACTIONIND = ? OR T.ACTIONIND= ? OR T.ACTIONIND= ? OR T.ACTIONIND= ?)', InputRoot.MQMD.CorrelId, '711', '712', '701', '708');

SET CARD=CARDINALITY(Environment.TMP.*[]);

SET j=1;

WHILE j<=CARD DO

CREATE FIRSTCHILD OF Environment.TMP.TRAN DOMAIN 'XML' PARSE(Environment.TMP.blob.*[j]);
SET OutputRoot.XML = Environment.TMP.TRAN.XML;
SET Environment.TMP = NULL;
SET OutputRoot.MQMD.CodedCharSetId = 819;
SET j=j+1;
PROPAGATE;
SET intTreeCount = 1;
WHILE intTreeCount < CARDINALITY(InputRoot.*[]) DO
SET OutputRoot.*[intTreeCount] = InputRoot.*[intTreeCount];
SET intTreeCount=intTreeCount+1;
END WHILE;

END WHILE;

RETURN FALSE;