CREATE COMPUTE MODULE CMPALMF_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL CopyMessageHeaders();
SET OutputRoot.HTTPInputHeader = null;
SET OutputRoot.Properties.MessageType = 'header:e2e';
SET OutputRoot.Properties.MessageFormat = 'CWF1';
SET OutputRoot.MRM.e2e
= InputBody.tns:Body.ns:INPUT.e2e;
SET OutputRoot.MRM.serviceState
= InputBody.tns:Body.ns:INPUT.serviceState;
SET OutputRoot.MRM.serviceAddressing
= InputBody.tns:Body.ns:INPUT.serviceAddressing;
SET OutputRoot.MRM.serviceProperties
= InputBody.tns:Body.ns:INPUT.serviceProperties;
SET OutputRoot.MRM.serviceSpecification
= InputBody.tns:Body.ns:INPUT.serviceSpecification;
SET OutputRoot.MRM.serviceScurity
= InputBody.tns:Body.ns:INPUT.serviceScurity;
CREATE NEXTSIBLING OF OutputRoot.Properties DOMAIN 'MQMD';
SET OutputRoot.MQMD = InputRoot.MQMD;
RETURN TRUE;
END;
CREATE PROCEDURE CopyMessageHeaders() BEGIN
DECLARE I INTEGER;
DECLARE J INTEGER;
SET I = 1;
SET J = 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;
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum