MQSeries.net :: View topic

mainframeboy · Posted: Mon Dec 06, 2010 7:09 am Post subject:

Environment
z/OS 1.12
MQ V7.0.1 LEVEL 005-001
WMB V7 FP1

TIMEOUT CONTROL NODE
I am in the process writing a common error flow with a TIMEOUT CONTROL NODE
This is most likely a user error but for the life of me I can't seem to get the TIMEPUT CONTROL NODE to delay the message by 60 seconds. I hope that this is not a stupid question, but I am stuck.

The flow is as follows

MQGET
|
TRACE
|
COMPUTE
|
TRACE
|
TIMEOUT CONTROL NODE
|
TRACE

The COMPUTE NODE contains the following:
CREATE COMPUTE MODULE JMSFlow_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL CopyEntireMessage();
SET OutputRoot.XML.TimeoutRequest.Identifier = 'TIME1234';
SET OutputRoot.XML.TimeoutRequest.Action = 'SET';
SET OutputRoot.XML.TimeoutRequest.StartTime =
cast(CURRENT_TIMESTAMP + INTERVAL '60' second as char format 'HH:mm:ss');
RETURN TRUE;
END;

CREATE PROCEDURE CopyEntireMessage() BEGIN
SET OutputRoot = InputRoot;
END;
END MODULE;

The TIMEOUT CONTROL NODE contains the following attributes:
Unique Identifer: TIME1234
Request Location: InputRoot.XML.TimeoutRequest

Trace from MQGET
TIME 21:31:18.231770
(0x01000021:Name+):MRM = ( ['mrm' : 0x1ab26f08]
(0x0300000B:NameValue+):VERSION = 2 (INTEGER)
(0x01000013:Name+ ):CUSTOMER_NAME = (
(0x0300000B:NameValue+):N_FIRST = 'Ed' (CHARACTER)
(0x0300000B:NameValue+):N_LAST = 'Fletcher' (CHARACTER)
)
(0x01000013:Name+ ):CUSTOMER_ADDRESS = (
(0x0300000B:NameValue+):A_LINE = 'Mail Point 135' (CHARACTER)
(0x0300000B:NameValue+):A_LINE = 'Hursley Park' (CHARACTER)
(0x0300000B:NameValue+):TOWN = 'Winchester' (CHARACTER)
(0x0300000B:NameValue+):ZIP = 'SO21 2JN' (CHARACTER)
(0x0300000B:NameValue+):COUNTRY = 'UK' (CHARACTER)
)
(0x01000013:Name+ ):COMPLAINT = (
(0x0300000B:NameValue+):C_TYPE = 'Delivery' (CHARACTER)
(0x0300000B:NameValue+):C_REF = 'XYZ123ABC' (CHARACTER)
(0x0300000B:NameValue+):C_TEXT = 'I placed an order on 15-11-99, well in time for Christmas and I still have not had a delivery schedule sent to me. Please cancel the order and refund me NOW. X' (CHARACTER)
)

Trace from COMPUTE
TIME 21:31:18.235309
(0x01000021:Name+ ):MRM = ( ['mrm' : 0x19ba2620]
(0x0300000B:NameValue+):VERSION = 2 (INTEGER)
(0x01000013:Name+ ):CUSTOMER_NAME = (
(0x0300000B:NameValue+):N_FIRST = 'Ed' (CHARACTER)
(0x0300000B:NameValue+):N_LAST = 'Fletcher' (CHARACTER)
)
(0x01000013:Name+ ):CUSTOMER_ADDRESS = (
(0x0300000B:NameValue+):A_LINE = 'Mail Point 135' (CHARACTER)
(0x0300000B:NameValue+):A_LINE = 'Hursley Park' (CHARACTER)
(0x0300000B:NameValue+):TOWN = 'Winchester' (CHARACTER)
(0x0300000B:NameValue+):ZIP = 'SO21 2JN' (CHARACTER)
(0x0300000B:NameValue+):COUNTRY = 'UK' (CHARACTER)
)
(0x01000013:Name+ ):COMPLAINT = (
(0x0300000B:NameValue+):C_TYPE = 'Delivery' (CHARACTER)
(0x0300000B:NameValue+):C_REF = 'XYZ123ABC' (CHARACTER)
(0x0300000B:NameValue+):C_TEXT = 'I placed an order on 15-11-99, well in time for Christmas and I still have not had a delivery schedule sent to me. Please cancel the order and refund me NOW. X' (CHARACTER)
)
)
(0x01000010:ParserRoot):XML = ( ['xml' : 0x1ab374e8]
(0x01000000:Element):TimeoutRequest = (
(0x01000000:Element):Identifier = (
(0x02000000:pcdata): = 'TIME1234' (CHARACTER)
)
(0x01000000:Element):Action = (
(0x02000000:pcdata): = 'SET' (CHARACTER)
)
(0x01000000:Element):StartTime = (
(0x02000000:pcdata): = '21:32:18' (CHARACTER)
)
The StartTime is 60 seconds in advance

Trace TIMEOUT NODE
TIME 21:31:18.237666
(0x0100001B:Name+ ):MRM = ( ['mrm' : 0x19ba2620]
(0x0300000B:NameValue+):VERSION = 2 (INTEGER)
(0x01000013:Name+ ):CUSTOMER_NAME = (
(0x0300000B:NameValue+):N_FIRST = 'Ed' (CHARACTER)
(0x0300000B:NameValue+):N_LAST = 'Fletcher' (CHARACTER)
)
(0x01000013:Name+ ):CUSTOMER_ADDRESS = (
(0x0300000B:NameValue+):A_LINE = 'Mail Point 135' (CHARACTER)
(0x0300000B:NameValue+):A_LINE = 'Hursley Park' (CHARACTER)
(0x0300000B:NameValue+):TOWN = 'Winchester' (CHARACTER)
(0x0300000B:NameValue+):ZIP = 'SO21 2JN' (CHARACTER)
(0x0300000B:NameValue+):COUNTRY = 'UK' (CHARACTER)
)
(0x01000013:Name+ ):COMPLAINT = (
(0x0300000B:NameValue+):C_TYPE = 'Delivery' (CHARACTER)
(0x0300000B:NameValue+):C_REF = 'XYZ123ABC' (CHARACTER)
(0x0300000B:NameValue+):C_TEXT = 'I placed an order on 15-11-99, well in time for Christmas and I still have not had a delivery schedule sent to me. Please cancel the order and refund me NOW. X' (CHARACTER)
)
)
(0x01000010:ParserRoot):XML = ( ['xml' : 0x1ab374e8]
(0x01000000:Element):TimeoutRequest = (
(0x01000000:Element):Identifier = (
(0x02000000:pcdata): = 'TIME1234' (CHARACTER)
)
(0x01000000:Element):Action = (
(0x02000000:pcdata): = 'SET' (CHARACTER)
)
(0x01000000:Element):StartTime = (
(0x02000000:pcdata): = '21:32:18' (CHARACTER)
)

From Reading the documentation only Identifer and Action are required and I have left everything else as default.

Thanks
Ben