MQSeries.net :: View topic

Bosco · Posted: Wed May 19, 2004 4:07 pm Post subject:

Hi,

I try to create a common procedure contained in a Broker Schema that can be called by others. Here is the msgflow:

MQInput(XML)->Compute->Trace->MQOutput

Here is my codes in a Compute node before output to a MQOutput node:

DECLARE refA REFERENCE TO OutputLocalEnvironment.Variables;
CALL CopyMessageHeaders();
SET OutputRoot.MQMD.ReplyToQ = 'Test.Queue.Reply';
SET OutputRoot.MQMD.Version = MQMD_CURRENT_VERSION;
SET OutputRoot.MQMD.StrucId = MQMD_STRUC_ID;
SET OutputRoot.MQMD.Format = MQFMT_STRING;
SET OutputRoot.MQMD.CorrelId = OutputRoot.MQMD.MsgId;
SET OutputRoot.Properties.MessageSet = 'K66RJMO002001';
SET OutputRoot.Properties.MessageType = 'msg_Test';
SET OutputRoot.Properties.MessageDomain = 'MRM';
SET OutputRoot.Properties.MessageFormat = 'CWF1';
DECLARE refOutputRoot REFERENCE TO OutputRoot;
CALL bsTest.Compose(refA, refOutputRoot);

CREATE PROCEDURE Compose(IN refA REFERENCE, INOUT refOutputRoot REFERENCE)
BEGIN

SET refOutputRoot.MRM.Field1 = 'A';
SET refOutputRoot.MRM.Field2 = 'B';
END;

When I put a message to the flow, a message without the body is written to the output queue. I notice is that the MQ message format is space.

It works OK if I put the codes in the procedure in the Compute node without calling procedure. Does anyone know what is the problem?

I am using WBIMB V5.0.3

Bosco