MQSeries.net :: View topic

lium · Posted: Tue May 04, 2010 7:26 am Post subject:

I have message like:
InvoiceLine
Quantity:INTEGER:25
unitCode:CHARACTER:EA
UnitPrice
Amount:DECIMAL:13.15
ExtendedAmount:DECIMAL:263.75

The InvoiceLine is generated in OutputLocalEnvironment as an element of XMLNSC domain, and I want to save it to OutputRoot before the compute node ends.

The unitCode is XML attribute. The problem is the unitCode will be gone during different save approaches. But the Amount which is XML element does not have any problem.

So far , I have tried:
1. Use dynamic reference pointing to InvoiceLine, then DETACH and ATTACH by invoking :

CREATE PROCEDURE AttachChildren(IN initialize BOOLEAN, IN source REFERENCE, INOUT target REFERENCE) BEGIN
IF initialize THEN
RETURN;
END IF;

DECLARE rChild REFERENCE TO source;
DECLARE childNum INT CARDINALITY(source.*[]);
DECLARE hasChild BOOLEAN TRUE;
REPEAT
MOVE rChild LASTCHILD;
SET hasChild = LASTMOVE(rChild);
IF hasChild THEN
DETACH rChild;
ATTACH rChild TO target AS LASTCHILD;
MOVE rChild TO source;
END IF;
UNTIL (NOT hasChild)
END REPEAT;
END;

2. Use Create as last child by invoking:

CREATE PROCEDURE CopyChildren(IN initialize BOOLEAN, IN source REFERENCE, INOUT target REFERENCE) BEGIN
IF initialize THEN
RETURN;
END IF;
DECLARE I INTEGER 1;
DECLARE J INTEGER;
SET J = CARDINALITY(source.*[]);
WHILE (I <= J) DO
CREATE LASTCHILD OF target FROM source.*[I];
SET I = I + 1;
END WHILE;
END;

3. SET directly with code:

DECLARE I INT 1;
DECLARE J INT CARDINALITY(rLinesForm.InvoiceLine[]);
WHILE I <= J DO
SET rPointer.InvoiceLine[I] = rLinesForm.InvoiceLine[I];
SET I = I + 1;
END WHILE;

All these 3 approaches got the same result, everything is copied correct except the unitCode was gone.

Anyone can help?

Great Thanks