WebSphere Business Integration Adapters: An Adapter Development and WebSphere Business Integration Solution

546 WebSphere Business Integration Adapters

DECLARE I INTEGER 1;

DECLARE J INTEGER CARDINALITY(InputRoot.*[]);

WHILE I < J DO

SET OutputRoot.*[I] = InputRoot.*[I];

SET I = I + 1;

END WHILE;

END;

CREATE PROCEDURE CopyEntireMessage() BEGIN

SET OutputRoot = InputRoot;

END;

END MODULE;

10.Save the ESQL.

11.Open the properties for the MQOutput node, as shown in Figure 27-28.

Figure 27-28 MQOutput node

12.Set the queue to the REDMAINT.REQUESTQUEUE.

13.Save the flow.