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

508 WebSphere Business Integration Adapters

SET MaintInfo = MaintInfo ||

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:ProblemD

escription ;

END IF;

IF

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:StatusDe

scription IS NULL THEN

ELSE

SET MaintInfo = MaintInfo || ' CURRENT STATUS INFO: ' ||

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:StatusDe

scription ;

END IF;

IF

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:Expected

Completion IS NULL THEN

ELSE

SET MaintInfo = MaintInfo || ' EXPECTED COMPLETION DATE: ' ||

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:Expected

Completion ;

END IF;

IF

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:ActualCo

mpletion IS NULL THEN

ELSE

IF

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:Status =

'C' THEN

SET MaintInfo = MaintInfo || ' ACTUAL COMPLETION: ' ||

InputRoot.MRM.RM_Tenant:RM_Maintenance.RM_Maintenance:RM_Maintenance[C].RM_Maintenance:ActualCo

mpletion ;

END IF;

END IF;

SET

OutputRoot.MRM.Web_tenant:ROOT.Web_tenant_tenant:Web_tenant_tenant.Web_tenant_tenant:apartments

.Web_tenant_apartments:Web_tenant_apartments.Web_tenant_apartments:apartment.Web_tenant_apartme

nt:Web_tenant_apartment.Web_tenant_apartment:maintenances.Web_tenant_maintenances:Web_tenant_ma

intenances.Web_tenant_maintenances:maintenance.Web_tenant_maintenance:Web_tenant_maintenance[C]

.Web_tenant_maintenance:description

= MaintInfo;

Chapter 26. Building and testing message flow for Retrieve 509

SET C = C + 1;

END WHILE;

-- ** 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;

CREATE PROCEDURE CopyEntireMessage() BEGIN

SET OutputRoot = InputRoot;

END;

END MODULE;

13.Save the ESQL.

14.Open the properties of the MQOutput node (RespondToRequestor).

15.Set the output queue to WEBTENANT.REQUEST, the request queue for the

JMS connector (see Figure 26-32 on page 510).

510 WebSphere Business Integration Adapters

Figure 26-32 Output queue

Your complete flow up to this point should look similar to Figure 26-33, plus

any trace nodes that you are using.

Figure 26-33 Current response flow