MQSeries.net :: View topic - Application Programmer Help..............Please

offshore · Posted: Wed Nov 12, 2003 4:41 pm Post subject:

All,

I downloaded the MA17 message handler support pac from IBM.

We recently moved to clustering on z/OS to help support sysplex environment and the program no longer will read messages off the queues, since we had to redefine them as cluster queues.

I've been trying to change the program to read cluster queues, but I'm not having any luck. (I'm not much of an application programmer.) The program seems to be doing an inquiry on the queue to determine its type.

Below is posted the section that I think is doing the inquiry check. Any help on how to get it to read the cluster queue would be appreciated.

Surely its possible to get the program to read messages of a cluster q?

TIA

INQUIRE-Q SECTION.
*---------------------------------------------------------------*
* This section opens the specified queue to inquire on the *
* queue and definition type. The definition type is required *
* to distinguish local queues from dynamic queues created when *
* a model queue is opened for inquiry. If the queue is unable *
* to be opened or the inquiry shows the queue is not a local *
* queue, an appropriate error message is issued. *
*---------------------------------------------------------------*
*
MOVE 2 TO W02-SELECTORCOUNT.
MOVE 2 TO W02-INTATTRCOUNT.
MOVE ZEROES TO W02-CHARATTRLENGTH.
* *
* Set the open options to inquire on the queue. *
* *
MOVE MQOT-Q TO MQOD-OBJECTTYPE.
MOVE W01-QNAME TO MQOD-OBJECTNAME.
MOVE MQOO-INQUIRE TO W02-OPENOPTIONS.
*
CALL 'MQOPEN' USING W01-HCONN
MQOD
W02-OPENOPTIONS
W02-QMGRHOBJ
W02-COMPCODE
W02-REASON.
* *
* If the open was unsuccessful, then issue an appropriate *
* error message and return the reason code. *
* *
IF (MQCC-OK NOT = W02-COMPCODE) THEN
MOVE 'Unable to open queue.'
TO W00-ERRORMSG
PERFORM ERROR-MESSAGE
GO TO INQUIRE-Q-EXIT.
* *
* Set the inquire selectors for queue type and queue *
* definition type. *
* *
MOVE MQIA-Q-TYPE TO W02-SELECTORS(1).
MOVE MQIA-DEFINITION-TYPE TO W02-SELECTORS(2).
*
CALL 'MQINQ' USING W01-HCONN
W02-QMGRHOBJ
W02-SELECTORCOUNT
W02-SELECTORS-TABLE
W02-INTATTRCOUNT
W02-INTATTRS-TABLE
W02-CHARATTRLENGTH
W02-CHARATTRS
W02-COMPCODE
W02-REASON.
* *
* If the inquire was successful then check whether the *
* queue is local. If not, issue an error message and set *
* W02-REASON to a negative value for return to caller. *
* If the inquire is unsucessful, then determine whether *
* the reason for failure was because we inquired on an *
* attribute not applicable to local queues or some other *
* reason, and issue an appropriate error message. *

IF (MQRC-NONE = W02-REASON) THEN
IF ( (W02-INTATTRS(1) NOT = MQQT-LOCAL) OR
(W02-INTATTRS(2) NOT = MQQDT-PREDEFINED) ) THEN
MOVE 'Queue Name is not a local queue.'
TO W01-MESSAGE
PERFORM PRINT-MESSAGE
MOVE -1 TO W02-REASON
GO TO INQUIRE-Q-CLOSE
ELSE
GO TO INQUIRE-Q-CLOSE
END-IF
END-IF
IF (MQRC-SELECTOR-NOT-FOR-TYPE = W02-REASON) THEN
MOVE 'Queue Name is not a local queue.'
TO W01-MESSAGE
PERFORM PRINT-MESSAGE
MOVE -1 TO W02-REASON
GO TO INQUIRE-Q-CLOSE
ELSE
MOVE 'Unable to inquire whether queue is local.'
TO W00-ERRORMSG
PERFORM ERROR-MESSAGE
MOVE -1 TO W02-REASON
GO TO INQUIRE-Q-CLOSE
END-IF.
* *
* Close the queue. *
* *
*