ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » IBM MQ API Support » Perl API - InquireQueueStatus

Post new topic  Reply to topic
 Perl API - InquireQueueStatus « View previous topic :: View next topic » 
Author Message
bart
PostPosted: Tue Oct 02, 2007 2:09 am    Post subject: Perl API - InquireQueueStatus Reply with quote

Newbie

Joined: 09 Aug 2006
Posts: 2
Location: GDN

Hi,

I'm trying to get LastPutTime from a local q as specified in PCF manual for WMQ 6.0 (solaris 10). I'm using MQSeries perl module v 1.25.

when I do:

Code:
$qstatus = $command->InquireQueueStatus(
  QName => $queue,
  StatusType => 'Queue'
    ) or die "Unable to get queue status $queue\n";

print "\t$qmname:$queue => $qstatus->{'CurrentQDepth'} \n";
print Dumper($qstatus);

I get following result:
Quote:
QMT:TEST_Q => 404
$VAR1 = {
'' => [
-1,
-1
],
'OpenInputCount' => 0,
'OpenOutputCount' => 1,
'CurrentQDepth' => 404,
'QName' => 'TEST_Q',
'UncommittedMsgs' => 0
};

however qstatus shows:

Quote:
dis qstatus(TEST_Q)
1 : dis qstatus(TEST_Q)
AMQ8450: Display queue status details.
QUEUE(TEST_Q) TYPE(QUEUE)
CURDEPTH(404) IPPROCS(0)
LGETDATE( ) LGETTIME( )
LPUTDATE(2007-10-02) LPUTTIME(09.31.04)
MONQ(MEDIUM) MSGAGE(135950)
OPPROCS(1) QTIME( , )
UNCOM(NO)



Does anybody have any idea how to get LastPutTime/LastPutDate using Perl API?

Thanks a lot for any suggestion,
Bart.
Back to top
View user's profile Send private message
jefflowrey
PostPosted: Tue Oct 02, 2007 3:52 am    Post subject: Reply with quote

Grand Poobah

Joined: 16 Oct 2002
Posts: 19981

It might be more illustrative to try it on a queue that has LGETTIME and LGETDATE set to something, rather than not set to anything.

I.e. try it on the same queue but put a message to that queue first.

I would expect, based on the naming standards, that keys for these would be "LastGetTime" and "LastGetDate". But that's just a guess.
_________________
I am *not* the model of the modern major general.
Back to top
View user's profile Send private message
bart
PostPosted: Tue Oct 02, 2007 7:13 am    Post subject: Reply with quote

Newbie

Joined: 09 Aug 2006
Posts: 2
Location: GDN

jefflowrey wrote:
It might be more illustrative to try it on a queue that has LGETTIME and LGETDATE set to something, rather than not set to anything.

I.e. try it on the same queue but put a message to that queue first.

I would expect, based on the naming standards, that keys for these would be "LastGetTime" and "LastGetDate". But that's just a guess.


Thanks for suggestion, but LGETTIME&DATE do not seem to be relevant here. Even with:

Code:

     6 : dis qstatus(TEST_Q)
AMQ8450: Display queue status details.
   QUEUE(TEST_Q)                           TYPE(QUEUE)
   CURDEPTH(0)                             IPPROCS(0)
   LGETDATE(2007-10-02)                    LGETTIME(13.58.29)
   LPUTDATE(2007-10-02)                    LPUTTIME(13.58.09)
   MONQ(MEDIUM)                            MSGAGE(0)
   OPPROCS(1)                              QTIME(8460936, 10388202)
   UNCOM(NO)


no Last[Get|Put]Time is available in InquireQueueStatus:

Code:
$VAR1 = {
          '' => [
                  8460936,
                  10388202
                ],
          'OpenInputCount' => 0,
          'OpenOutputCount' => 1,
          'CurrentQDepth' => 0,
          'QName' => 'TEST_Q',
          'UncommittedMsgs' => 0
        };


it looks like MQSeries v1.25 doesn't support MQv6 Qstatus parameters...
Back to top
View user's profile Send private message
jefflowrey
PostPosted: Tue Oct 02, 2007 8:23 am    Post subject: Reply with quote

Grand Poobah

Joined: 16 Oct 2002
Posts: 19981

Of course, you can look at the code yourself and see. I haven't been able to get my Windows environment properly set up to build these modules (mostly from a lack of trying very often).

You can also send an email to the maintainers. I've found them to be mostly responsive.
_________________
I am *not* the model of the modern major general.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » IBM MQ API Support » Perl API - InquireQueueStatus
Jump to:  



You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.