MQSeries.net :: View topic

bpugh · Posted: Fri Jun 18, 2004 2:04 pm Post subject:

I have been reviewing messages on this forum all day, and although I have seen many messages dealing with the same problem I am having, I have been unsuccessful getting anything to work.

I am trying to convert an XML message to CWF Cobol copybook format (just like a lot of other people apparently). Everything seems to go just fine until I get to my MQOutput node. At that point, my trace shows that the output message is empty and it rolls back. I am still pretty new to WMQI and would appreciate any advice you might be able to offer.

Thanks!

My flow looks like:

MQInput --> Try Catch --> Compute --> Trace1 --> MQOutput
|
V
Error Trace

ESQL in the compute node looks like:

CREATE COMPUTE MODULE ReformatMsg
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN

DECLARE OutRef REFERENCE TO OutputRoot.MRM;
DECLARE I INTEGER;

SET I = 1;
WHILE I < CARDINALITY(InputRoot.*[]) DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I=I+1;
END WHILE;

SET OutputRoot.Properties.MessageSet = 'D8DH3KG002001';
SET OutputRoot.Properties.MessageType = 'msg_UPSBBASE_SFGD_BASE_RCD';
SET OutputRoot.Properties.MessageDomain = 'MRM';
SET OutputRoot.Properties.MessageFormat = 'CWF1';

SET OutRef.UPSBBASE_TYPE_ORD = InputBody.special_products.order_type;
SET OutRef.UPSBBASE_CODE_SUB_CMPY_ORD = InputBody.special_products.order_number.booking_agt_co;
SET OutRef.UPSBBASE_NBR_BOKR = InputBody.special_products.order_number.booking_agt_number;
SET OutRef.UPSBBASE_NBR_ORD = InputBody.special_products.order_number.order_sequence_number;
... and so on ...
PROPAGATE;
END;
END MODULE;

The Trace Node "Trace1" shows:

(0x01000000):Properties = (
(0x03000000):MessageSet = 'D8DH3KG002001'
(0x03000000):MessageType = 'msg_UPSBBASE_SFGD_BASE_RCD'
(0x03000000):MessageFormat = 'CWF1'
(0x03000000):Encoding = 546
(0x03000000):CodedCharSetId = 437
(0x03000000):Transactional = TRUE (0x03000000):Persistence = FALSE
(0x03000000):CreationTime = GMTTIMESTAMP '2004-06-18 20:03:00.600'
(0x03000000):ExpirationTime = -1
(0x03000000):Priority = 5
(0x03000000):ReplyIdentifier = X'0000000000000000000000000000000000000000000
(0x03000000):ReplyProtocol = 'MQ'
(0x03000000):Topic = NULL
)
(0x01000000):MQMD = (
(0x03000000):SourceQueue = 'ORDER.XML.UPLOAD'
(0x03000000):Transactional = TRUE
(0x03000000):Encoding = 546
(0x03000000):CodedCharSetId = 437
(0x03000000):Format = ' '
(0x03000000):Version = 2
(0x03000000):Report = 0
(0x03000000):MsgType = 8
(0x03000000):Expiry = -1
(0x03000000):Feedback = 0
(0x03000000):Priority = 5
(0x03000000):Persistence = 0
(0x03000000):MsgId = X'c3e2d840e4e3d8d44040404040404040bb6385396
(0x03000000):CorrelId = X'00000000000000000000000000000000000000000
(0x03000000):BackoutCount = 0
(0x03000000):ReplyToQ = '
(0x03000000):ReplyToQMgr = 'TQMGR
(0x03000000):UserIdentifier = 'XXXXX '
(0x03000000):AccountingToken = X'1a0fe4e3d8d4c3c8c9d5f1f9c6c4c6c3f3f00019f
(0x03000000):ApplIdentityData = ' '
(0x03000000):PutApplType = 11
(0x03000000):PutApplName = 's\Desktop\rfhutilc.exe'
(0x03000000):PutDate = DATE '2004-06-18'
(0x03000000):PutTime = GMTTIME '20:03:00.600'
(0x03000000):ApplOriginData = ' '
(0x03000000):GroupId = X'00000000000000000000000000000000000000000
(0x03000000):MsgSeqNumber = 1
(0x03000000):Offset = 0
(0x03000000):MsgFlags = 0
(0x03000000):OriginalLength = -1
)

These are the fields in the COBOL copybook I am moving the data to, so this looks good:

(0x03000000):UPSBBASE_TYPE_ORD = 'S'
(0x03000000):UPSBBASE_CODE_SUB_CMPY_ORD = 'U'
(0x03000000):UPSBBASE_NBR_BOKR = '00980'
(0x03000000):UPSBBASE_NBR_ORD = '82238'
... and so on ...

(0x03000000):MessageSet = 'D8DH3KG002001'
(0x03000000):MessageType = 'msg_UPSBBASE_SFGD_BASE_RCD'
(0x03000000):MessageFormat = 'CWF1'
(0x03000000):Encoding = 546
(0x03000000):CodedCharSetId = 437
(0x03000000):Transactional = TRUE
(0x03000000):Persistence = FALSE
(0x03000000):CreationTime = GMTTIMESTAMP '2004-06-18 20:03:00.600'
(0x03000000):ExpirationTime = -1
(0x03000000):Priority = 5
(0x03000000):ReplyIdentifier = X'000000000000000000000000000000000000000000000
(0x03000000):ReplyProtocol = 'MQ'
(0x03000000):Topic = NULL
) ..' '

But the error log shows:

RecoverableException BIP2617E: Output message is empty; output node 'OrderUploadMsgFlow.MQOutput'.
The WebSphere Business Integration Message Brokers output node 'OrderUploadMsgFlow.MQOutput' has received a message to write to an WebSphere Business Integration output queue, but the message appears to be empty. This error may be generated when 1) there is no MQMD and no message content in the output bitstream (there really is no data) or 2) there is no MQMD and the size of the message content is less that the size of the MQMD (it appears there is no content). This situation can occur when a output message is built incorrectly using the Compute node.
Check the message flow to determine whether the message is being built correctly. If not, correct the problem and redeploy the broker.