MQSeries.net :: View topic

madhangi_j · Posted: Fri May 08, 2009 3:18 am Post subject:

Hi,

We are using the following code to Inhibit a Queue. we are using WMB 6.1.
Flow is running without any exception but the Queue is not inhibited.

Same code works in lower version of WMB. Any help in this would be great.

CREATE NEXTSIBLING OF OutputRoot.Properties DOMAIN 'MQMD';

CREATE NEXTSIBLING OF OutputRoot.MQMD DOMAIN 'MQADMIN' NAME 'MQPCF';

Please find the code

SET OutputRoot.MQMD.MsgType = MQMT_REQUEST;

SET OutputRoot.MQMD.Format = MQFMT_ADMIN;

SET OutputRoot.MQMD.ReplyToQ = 'OUT';

SET OutputRoot.MQMD.MsgSeqNumber = 1;

SET OutputRoot.MQMD.Encoding = 546;

CREATE FIELD OutputRoot.MQPCF;

DECLARE refRequest REFERENCE TO OutputRoot.MQPCF;

SET refRequest.Type = 16;

--SET refRequest.StrucLength = MQCFH_STRUC_LENGTH;

SET refRequest.Version = 3;

SET refRequest.Command = MQCMD_CHANGE_Q;

SET refRequest.MsgSeqNumber = 1;

SET refRequest.Control = MQCFC_LAST;

/* First parameter: Queue Name. */

SET refRequest.Parameter[1] = MQCA_Q_NAME;

SET refRequest.Parameter[1].* = 'queue1';

/* Second parameter: Queue Type. */

SET refRequest.Parameter[2] = MQIA_Q_TYPE;

SET refRequest.Parameter[2].* = MQQT_LOCAL ;

/* Third parameter: Allow/Inhibit GET.*/

SET refRequest.Parameter[3] = MQIA_INHIBIT_GET;

SET refRequest.Parameter[3].* = MQQA_GET_INHIBITED;

SET OutputRoot.BLOB.BLOB = asbitstream(OutputRoot.MQPCF);

SET OutputRoot.MQPCF = null;

SET OutputRoot.MQMD.Format = MQFMT_ADMIN;