|
|||||
|
||||||
Related Syntax | Other Library Functions |
function |
mq-set |
Library: Interfaces, MQSeries access (OMMQI)
Include: ommqi.xin |
define external function mq-set object value mq-object obj selectors read-only integer selectors integer-vals read-only integer int-shelf optional string-vals read-only stream str-shelf optional
Argument definitions
Use mq-set to set one or more attributes of an opened IBM MQSeries object.
You must include the following line at the beginning of your OmniMark program:
include "ommqi.xin"
The IBM MQSeries object represented by obj must be open (else external exception OMMQI0013).
The selectors shelf must contain at least one value (else external exception OMMQI0020).
The values in the selectors shelf must be valid IBM MQSeries selector identifiers (else external exception OMMQI0018).
If any MQIA_* selectors are specified, then the optional integer-vals argument must be present (else external exception OMMQI0021).
If any MQCA_* selectors are specified, then the optional string-vals argument must be present (else external exception OMMQI0021).
Each item in the str-shelf must not be longer than the maximum length specified by the IBM MQSeries API for the corresponding MQCA_* selector (else external exception OMMQI0022).
This function corresponds with the IBM MQSeries function MQSET. See the IBM MQSeries documentation for MQSET for more information.
The obj parameter maps to both the Hconn and Hobj parameters of MQSET.
The item count for each of the three array parameters to MQSET are not necessary as they are calculated from the corresponding shelves.
The CompCode and Reason parameters of MQSET are integrated into the OMMQI error handling.
Set the access attributes and trigger data of a queue.
local mq-connection a-connection local mq-object a-object local stream od-fields variable local mq-object-descriptor a-mqod local integer selectors variable local integer int-attribs variable local stream stream-attribs variable ; Connect to queue manager set a-connection to mq-connect to "QM_penguin" ; Open desired queue set new od-fields {"ObjectName"} to "default" mq-set-object-descriptor a-mqod to od-fields set a-object to mq-open connection a-connection object-descriptor a-mqod options MQOO_SET ; Create list of selectors we wish to modify set new selectors to MQIA_INHIBIT_GET set new selectors to MQIA_INHIBIT_PUT set new selectors to MQCA_TRIGGER_DATA ; Create lists of selector values in same order as selectors set new int-attribs to MQQA_GET_INHIBITED set new int-attribs to MQQA_PUT_INHIBITED set new stream-attribs to "New Trigger Data" ; Set selector values of the queue mq-set object a-object selectors selectors integer-vals int-attribs string-vals stream-attribs