MQSeries.net :: View topic

wilsonho3 · Posted: Sun Sep 12, 2010 7:20 am Post subject:

bar including mset and flow, but find the following issue. pls advise

CREATE COMPUTE MODULE PUB_SUB_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CAll CopyMessageHeaders();

SET OutputRoot.MQRFH2.mcd.Msd = 'MRM';
SET OutputRoot.MQRFH2.mcd.Type = 'msg_tagFss';
SET OutputRoot.MQRFH2.mcd.Set = 'O3JGN3G002001';
SET OutputRoot.MQRFH2.mcd.Fmt = 'CWF1';

SET OutputRoot.MQRFH2.PSC.Command = 'Publish';
SET OutputRoot.MQRFH2.psc.PubOpt = 'Local';
SET OutputRoot.MQRFH2.psc.Topic = 'FlightCargo';

SET OutputRoot = InputRoot;
-- RETURN TRUE;

IF (OutputRoot.msg_tagFss.Type = 'F') THEN <--- can not find RM
RETURN TRUE;
END IF;

END;

CREATE PROCEDURE CopyMessageHeaders() BEGIN
DECLARE I INTEGER 1;
DECLARE J INTEGER;
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;

================================

WMQI_DebugMessage
WMQI_Message
Properties
MessageSet O3JGN3G002001
MessageType msg_tagFss
MessageFormat CWF1
Encoding 546
CodedCharSetId 950
Transactional true
Persistence false
CreationTime 2010-09-12 12:30:29.980
ExpirationTime -1
Priority 0
ReplyIdentifier 000000000000000000000000000000000000000000000000
ReplyProtocol MQ
Topic
ContentType
IdentitySourceType
IdentitySourceToken
IdentitySourcePassword
IdentitySourceIssuedBy
IdentityMappedType
IdentityMappedToken
IdentityMappedPassword
IdentityMappedIssuedBy
MQMD
SourceQueue FSS_IN
Transactional true
Encoding 546
CodedCharSetId 950
Format
Version 2
Report 0
MsgType 8
Expiry -1
Feedback 0
Priority 0
Persistence 0
MsgId 414d51205742524b36315f4445464155b9a08c4c20004208
CorrelId 000000000000000000000000000000000000000000000000
BackoutCount 0
ReplyToQ
ReplyToQMgr WBRK61_DEFAULT_QUEUE_MANAGER
UserIdentifier db2admin
AccountingToken 16010515000000fa4f0c2fd5cb5c5807e53b2bf403000000000000000000000b
ApplIdentityData
PutApplType 11
PutApplName s\db2admin\Â®Ã ÂÂ±\rfhutilc.exe
PutDate 2010-09-12
PutTime 12:30:29.980
ApplOriginData
GroupId 000000000000000000000000000000000000000000000000
MsgSeqNumber 1
Offset 0
MsgFlags 0
OriginalLength -1
MRM
RM Descriptor Not Found.
WMQI_LocalEnvironment
WMQI_Environment
WMQI_ExceptionList
OutputExceptionList
OutputLocalEnvironment
OutputRoot
Properties
MessageSet O3JGN3G002001
MessageType msg_tagFss
MessageFormat CWF1
Encoding 546
CodedCharSetId 950
Transactional true
Persistence false
CreationTime 2010-09-12 12:30:29.980
ExpirationTime -1
Priority 0
ReplyIdentifier 000000000000000000000000000000000000000000000000
ReplyProtocol MQ
Topic
ContentType
IdentitySourceType
IdentitySourceToken
IdentitySourcePassword
IdentitySourceIssuedBy
IdentityMappedType
IdentityMappedToken
IdentityMappedPassword
IdentityMappedIssuedBy
MQMD
SourceQueue
Transactional false
Encoding 546
CodedCharSetId 950
Format
Version 2
Report 0
MsgType 8
Expiry -1
Feedback 0
Priority 0
Persistence 0
MsgId 414d51205742524b36315f4445464155b9a08c4c20004208
CorrelId 000000000000000000000000000000000000000000000000
BackoutCount 0
ReplyToQ
ReplyToQMgr WBRK61_DEFAULT_QUEUE_MANAGER
UserIdentifier db2admin
AccountingToken 16010515000000fa4f0c2fd5cb5c5807e53b2bf403000000000000000000000b
ApplIdentityData
PutApplType 11
PutApplName s\db2admin\Â®Ã ÂÂ±\rfhutilc.exe
PutDate 2010-09-12
PutTime 12:30:29.980
ApplOriginData
GroupId 000000000000000000000000000000000000000000000000
MsgSeqNumber 1
Offset 0
MsgFlags 0
OriginalLength -1
MRM
RM Descriptor Not Found.

------------------------

message set :

ELF mxsd
message
msg_tagFss tagFss
Header
Action
Code
Fightno
Fightdate
UTCDate
Type <-- this is the field want to checl
Filler

w.