MQSeries::QueueManager is an OO interface to the MQSeries Queue Manager.

SYNOPSIS

use MQSeries;
use MQSeries::QueueManager;

#
# Simplest, trivial usage
#
my $qmgr = MQSeries::QueueManager->new( QueueManager => 'some.queue.manager' ) ||
die("Unable to connect to queue managern");

#
# The best way to do error checking. Handle the object
# instantiation and connection to the queue manager independently.
#
my $qmgr = MQSeries::QueueManager->new
(
QueueManager => 'some.queue.manager',
AutoConnect => 0,
) || die "Unable to instantiate MQSeries::QueueManager objectn";

$qmgr->Connect() ||
die("Unable to connect to queue managern" .
"CompCode => " . $qmgr->CompCode() . "n" .
"Reason => " . $qmgr->Reason() .
" (", MQReasonToText($qmgr->Reason()) . ")n");

#
# Advanced usage. Enable the connection timeout, and connection
# retry logic.
#
my $qmgr = MQSeries::QueueManager->new
(
QueueManager => 'some.queue.manager',
AutoConnect => 0,
ConnectTimeout => 120,
RetryCount => 60,
RetrySleep => 10,
) || die "Unable to instantiate MQSeries::QueueManager objectn";

$qmgr->Connect() ||
die("Unable to connect to queue managern" .
"CompCode => " . $qmgr->CompCode() . "n" .
"Reason => " . $qmgr->Reason() .
" (", MQReasonToText($qmgr->Reason()) . ")n";

#
# Avoid a channel table file or MQSERVER variable and specify
# the client connect options directly.
#
my $qmgr = MQSeries::QueueManager->new
(
QueueManager => 'some.queue.manager',
ClientConn => { 'ChannelName' => 'FOO',
'TransportType' => 'TCP', # Default
'ConnectionName' => "hostname(1414)",
'MaxMsgLength' => 16 * 1024 * 1024,
},
) || die("Unable to connect to queue managern");

The MQSeries::QueueManager object is an OO mechanism for connecting to an MQSeries queue manager, and/or opening and inquiring a queue manager object.

This module is used together with MQSeries::Queue and MQSeries::Message, and the other MQSeries::* modules. These objects provide a simpler, higher level interface to the MQI.

This module also provides special support for connect timeouts (for interrupting MQCONNX() calls that may hang forever), as well as connect retry logic, which will retry failed MQCONNX() calls for a specific list of reason codes.

See the "Special Considerations" section for a discussion of these advanced, but powerful, features.

Requirements:

· Perl