To perform any operation (such as putting or getting messages), you must first open the queue. You can open the same object more than once, and each time you get a new object handle by defining a connection specification in Sample Application 2 the queue was opened with the connectUsing: method. For Sample Application 1, open the queue with specific options using the openWithOptions: method. Note that the options being opened can also be referred to using the AbtMQConstants pool dictionary.
| aQueue rc |
"Sample App 1: Opening the queue connected to in step 2 and
verifying the open"
aQueue := AbtMQQueue new queueManager: aQueueManager.
(rc := aQueue openWithOptions: (((MqooInputShared bitOr: MqooInquire) bitOr:
MqooInputShared) bitOr:
MqooSet)) isAbtError
ifTrue: [CICSTTY cr; show: 'Open of queue: MYUSERID.QUEUE1
failed. ',
(rc display)]
ifFalse: [CICSTTY cr; show: 'Open of queue: MYUSERID.QUEUE1
is OK. '].