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

482 WebSphere Business Integration Adapters

DECLARE RM_Tenant NAMESPACE

'http://www.ibm.com/websphere/crossworlds/2002/BOSchema/RM_Tenant';

-- ** Properties

SET OutputRoot.Properties.MessageSet = 'RedTenant';

SET OutputRoot.Properties.MessageType = 'RM_Tenant';

-- Enter SQL below this line. SQL above this line might be regenerated, causing any

modifications to be lost.

-- ** MQMD

SET "OutputRoot"."MQMD".Format = 'MQHRF2 ';

-- ** RFH

SET "OutputRoot".MQRFH2.(MQRFH2.Field)Format = 'MQSTR ';

SET "OutputRoot".MQRFH2.mcd.Msd = 'mrm';

SET "OutputRoot".MQRFH2.mcd.Set = 'RedTenant';

SET "OutputRoot".MQRFH2.mcd.Type = 'RM_Tenant';

SET "OutputRoot".MQRFH2.mcd.Fmt = 'CwXML';

-- response queue

SET "OutputRoot".MQRFH2.jms.Rto = 'queue:///REDMAINT.RESPONSEQUEUE';

SET OutputRoot.MRM."version" = '3.0.0';

SET OutputRoot.MRM."delta" = FALSE;

set OutputRoot.MRM."verb" = InputRoot.MRM.verb;

SET OutputRoot.MRM."locale" = 'en_US';

-- Set BO fields

SET OutputRoot.MRM.RM_Tenant:Id =

InputRoot.MRM.Web_tenant:ROOT.Web_tenant_tenant:Web_tenant_tenant.Web_tenant_tenant:name;

SET OutputRoot.MRM.RM_Tenant:ObjectEventId = InputRoot.MRM.Web_tenant:ObjectEventId;

-- ** More properties

SET OutputRoot.Properties.MessageDomain = 'MRM';

SET OutputRoot.Properties.MessageFormat = 'CwXML';

RETURN TRUE;

END;

CREATE PROCEDURE CopyMessageHeaders() BEGIN

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;

Chapter 26. Building and testing message flow for Retrieve 483

CREATE PROCEDURE CopyEntireMessage() BEGIN

SET OutputRoot = InputRoot;

END;

END MODULE;

16.Save this ESQL.

17.Open the properties of the MQOutput node (Figure 26-10).

Figure 26-10 MQOutput node

18.Set the output queue for the RMConnector request queue

(REDMAINT.REQUESTQUEUE).

19.Save your message flow.