MQSeries.net :: View topic

WLeideckDC · Posted: Wed Oct 06, 2004 4:18 am Post subject:

Hello.

I'm writing a small perl script that reads the SYSTEM.ADMIN.CHANNEL.EVENT
queue which is triggered. The defined process is the perl script, that reads the queue and mails the event data. I assumed that the queue will be cleared after getting the message but i'm wrong.
So my question is, how can i clear the queue after getting the messages with the perl api. I don't see any option or function to do that.

Here an excerpt from the script:
my $queue = MQSeries::Queue->new(
QueueManager => $QMGR,
Queue => $EVENTQ,
Mode => 'input_shared')
or die( "Unable to open queue.\n");

my $msg = MQSeries::Message::Event->new();
$queue->Get(
Message => $msg,
Sync => 1) or
die( "Unable to get message.\n" .
"CompCode = " . $queue->CompCode() . "\n" .
"Reason = " . $queue->Reason() . "\n" );
open(LOG, ">chmonitor.log") or die( "Unable to open logfile\n" );
for ( keys %{$msg->EventHeader()} ) {
if ($_ eq "Reason") {
print LOG "$_ : " . MQReasonToText($msg->EventHeader($_))
. "(" . $msg->EventHeader($_) . ")\n";
} else {
print LOG "$_ : " . $msg->EventHeader($_) . "\n";
}
}