MQSeries.net :: View topic

pfaulkner · Posted: Thu Oct 16, 2003 1:26 am Post subject:

I am trying to use REFERENCE for the first time and noticed when I use it to copy the message headers the Properties header seems to get corrupted.

Here is my code:

DECLARE InRoot REFERENCE TO InputRoot;
DECLARE OutRoot REFERENCE TO OutputRoot;

DECLARE I INTEGER;
DECLARE C INTEGER;

SET I = 1;
SET C = CARDINALITY(InRoot.*[]);
WHILE I < C DO
SET OutRoot.*[I] = InRoot.*[I];
SET I = I + 1;
END WHILE;

When I trace Root I see this:

(
(0x1000000)Properties = (
(0x3000000)MessageSet = NULL
(0x3000000)MessageType = NULL
(0x3000000)MessageFormat = NULL
(0x3000000)Encoding = NULL
(0x3000000)CodedCharSetId = NULL
(0x3000000)Transactional = UNKNOWN
(0x3000000)Persistence = UNKNOWN
(0x3000000)CreationTime = NULL
(0x3000000)ExpirationTime = NULL
(0x3000000)Priority = NULL
(0x3000000)ReplyIdentifier = NULL
(0x3000000)ReplyProtocol = 'MQ'
(0x3000000)Topic = NULL
)
(0x1000000)MQMD = (
(0x3000000)SourceQueue = 'RG.A.GLOBAL.MRMBLOB.GLOBAL'
(0x3000000)Transactional = TRUE
(0x3000000)Encoding = 273
(0x3000000)CodedCharSetId = 819
(0x3000000)Format = 'RGTHDR01'
(0x3000000)Version = 2
(0x3000000)Report = 0
(0x3000000)MsgType = 1
(0x3000000)Expiry = -1
(0x3000000)Feedback = 0
(0x3000000)Priority = 1
(0x3000000)Persistence = 0
(0x3000000)MsgId = X'414d5120434f533142202020202020203f68d1360e0fe023'
(0x3000000)CorrelId = X'a622ccd467ae009fff303030303030303030303732303030'
(0x3000000)BackoutCount = 0
(0x3000000)ReplyToQ = 'RGSH.REPLY.QUEUE.0064 '
(0x3000000)ReplyToQMgr = 'COS1B '
(0x3000000)UserIdentifier = 'registry '
(0x3000000)AccountingToken = X'0333303000000000000000000000000000000000000000000000000000000006'
(0x3000000)ApplIdentityData = ' '
(0x3000000)PutApplType = 6
(0x3000000)PutApplName = ' '
(0x3000000)PutDate = DATE '2003-10-15'
(0x3000000)PutTime = GMTTIME '16:04:20.790'
(0x3000000)ApplOriginData = ' '
(0x3000000)GroupId = X'000000000000000000000000000000000000000000000000'
(0x3000000)MsgSeqNumber = 1
(0x3000000)Offset = 0
(0x3000000)MsgFlags = 0
(0x3000000)OriginalLength = -1
)
)

If I remove the reference variables, everthing looks normal in the properties header.

Anyone know why?