<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
		>
<channel>
	<title>Comments on: Perl and MQSeries for the faint of heart</title>
	<atom:link href="http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/feed/" rel="self" type="application/rss+xml" />
	<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/</link>
	<description>Vinny&#039;s Technical Corner</description>
	<lastBuildDate>Wed, 03 Mar 2010 11:33:44 -0500</lastBuildDate>
	<generator>http://wordpress.org/?v=abc</generator>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
		<item>
		<title>By: Vinoth</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-1103</link>
		<dc:creator>Vinoth</dc:creator>
		<pubDate>Tue, 02 Feb 2010 05:57:10 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-1103</guid>
		<description>Hi, Vinny! Its very nice article, many thanks for u! I am going to use this one.</description>
		<content:encoded><![CDATA[<p>Hi, Vinny! Its very nice article, many thanks for u! I am going to use this one.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Vinny</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-678</link>
		<dc:creator>Vinny</dc:creator>
		<pubDate>Fri, 21 Aug 2009 12:10:20 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-678</guid>
		<description>Thanks for the info. That&#039;s very good to know. Version 1.30 is in the making... perhaps Hildo will add support to it.</description>
		<content:encoded><![CDATA[<p>Thanks for the info. That&#8217;s very good to know. Version 1.30 is in the making&#8230; perhaps Hildo will add support to it.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Jawaid</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-676</link>
		<dc:creator>Jawaid</dc:creator>
		<pubDate>Fri, 21 Aug 2009 06:13:37 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-676</guid>
		<description>Vinny, this was in ver 1.23. It has been deprecated in newer versions from 1.24 or 1.25 onwards. Latest version is 1.29 and there is still no support. Even I contacted with the author and he said it may be implemented in future versions but currently it is not supported.</description>
		<content:encoded><![CDATA[<p>Vinny, this was in ver 1.23. It has been deprecated in newer versions from 1.24 or 1.25 onwards. Latest version is 1.29 and there is still no support. Even I contacted with the author and he said it may be implemented in future versions but currently it is not supported.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Vinny</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-674</link>
		<dc:creator>Vinny</dc:creator>
		<pubDate>Thu, 20 Aug 2009 11:54:25 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-674</guid>
		<description>Jawaid, are you sure? Hildo has &lt;a href=&quot;http://search.cpan.org/~hbiersma/MQSeries-1.23/MQSeries-PubSub/PubSub/Command.pm&quot; target=&quot;_blank&quot; rel=&quot;nofollow&quot;&gt;MQSeries::PubSub&lt;/a&gt; available, although I never used it.</description>
		<content:encoded><![CDATA[<p>Jawaid, are you sure? Hildo has <a href="http://search.cpan.org/~hbiersma/MQSeries-1.23/MQSeries-PubSub/PubSub/Command.pm" target="_blank" rel="nofollow">MQSeries::PubSub</a> available, although I never used it.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Jawaid</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-673</link>
		<dc:creator>Jawaid</dc:creator>
		<pubDate>Thu, 20 Aug 2009 05:38:03 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-673</guid>
		<description>but the sad thing is that MQSeries Perl extension doesn&#039;t support pub/sub model :(</description>
		<content:encoded><![CDATA[<p>but the sad thing is that MQSeries Perl extension doesn&#8217;t support pub/sub model <img src='http://usestrict.net/wp-includes/images/smilies/icon_sad.gif' alt=':(' class='wp-smiley' /> </p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Vinny</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-535</link>
		<dc:creator>Vinny</dc:creator>
		<pubDate>Fri, 17 Jul 2009 13:12:08 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-535</guid>
		<description>Hi Mayur. Thanks for your comment. 

I looked at the MQSeries::Command page and it seems to me that it is targeted to MQSeries Administrators (since it allows you to inquire and create objects in the server).  Regarding your question about qdepth, it is explained in the synopsis examples (&lt;strong&gt;CurrentQDepth&lt;/strong&gt; is one of the elements of &lt;strong&gt;QAttrs&lt;/strong&gt;)  Quoting the POD:

&lt;pre class=&quot;brush:php&quot;&gt;
 foreach my $qname ( @qnames ) {

      $attr = $command-&gt;InquireQueue
        (
         QName          =&gt; $qname,
         QAttrs         =&gt; [qw(
                               OpenInputCount
                               OpenOutputCount
                               CurrentQDepth  # &lt;=== here is what you need
                              )],
        ) or die &quot;InquireQueue: &quot; . MQReasonToText($command-&gt;Reason()) . &quot;\n&quot;;

      print &quot;QName = $qname\n&quot;;

      foreach my $key ( sort keys %$attr ) {
          print &quot;\t$key =&gt; $attr-&gt;{$key}\n&quot;;
      }
  }
&lt;/pre&gt;</description>
		<content:encoded><![CDATA[<p>Hi Mayur. Thanks for your comment. </p>
<p>I looked at the MQSeries::Command page and it seems to me that it is targeted to MQSeries Administrators (since it allows you to inquire and create objects in the server).  Regarding your question about qdepth, it is explained in the synopsis examples (<strong>CurrentQDepth</strong> is one of the elements of <strong>QAttrs</strong>)  Quoting the POD:</p>
<pre class="brush:php">
 foreach my $qname ( @qnames ) {

      $attr = $command->InquireQueue
        (
         QName          => $qname,
         QAttrs         => [qw(
                               OpenInputCount
                               OpenOutputCount
                               CurrentQDepth  # < === here is what you need
                              )],
        ) or die "InquireQueue: " . MQReasonToText($command->Reason()) . "\n";

      print "QName = $qname\n";

      foreach my $key ( sort keys %$attr ) {
          print "\t$key => $attr->{$key}\n";
      }
  }
</pre>
]]></content:encoded>
	</item>
	<item>
		<title>By: Mayur Gupta</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-533</link>
		<dc:creator>Mayur Gupta</dc:creator>
		<pubDate>Fri, 17 Jul 2009 02:42:24 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-533</guid>
		<description>Thanks Vinny, A great step-by-step tutorial and nicely documented. 
I have been searching the net to find any usage information for the &lt;b&gt;&lt;i&gt;MQSeries::Command&lt;/i&gt;&lt;/b&gt; module since a month now. All the forum questions about this module and unanswered for years (for eg. &lt;a href=&quot;http://coding.derkeiler.com/Archive/Perl/comp.lang.perl.modules/2004-03/0055.html&quot; rel=&quot;nofollow&quot;&gt;this one&lt;/a&gt;). The PODs seems to expect that I am an MQ developer. So did you have any chance to play with that one? because that would really really help.</description>
		<content:encoded><![CDATA[<p>Thanks Vinny, A great step-by-step tutorial and nicely documented.<br />
I have been searching the net to find any usage information for the <b><i>MQSeries::Command</i></b> module since a month now. All the forum questions about this module and unanswered for years (for eg. <a href="http://coding.derkeiler.com/Archive/Perl/comp.lang.perl.modules/2004-03/0055.html" rel="nofollow">this one</a>). The PODs seems to expect that I am an MQ developer. So did you have any chance to play with that one? because that would really really help.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Perlbuzz news roundup 2009-06-02Perlbuzz &#124; rapid-DEV.net</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-215</link>
		<dc:creator>Perlbuzz news roundup 2009-06-02Perlbuzz &#124; rapid-DEV.net</dc:creator>
		<pubDate>Mon, 15 Jun 2009 06:27:26 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-215</guid>
		<description>[...] Perl and MQSeries for the faint of heart [...]</description>
		<content:encoded><![CDATA[<p>[...] Perl and MQSeries for the faint of heart [...]</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Perlbuzz news roundup 2009-06-02 &#124; rapid-DEV.net</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-214</link>
		<dc:creator>Perlbuzz news roundup 2009-06-02 &#124; rapid-DEV.net</dc:creator>
		<pubDate>Mon, 15 Jun 2009 06:26:36 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-214</guid>
		<description>[...] Perl and MQSeries for the faint of heart [...]</description>
		<content:encoded><![CDATA[<p>[...] Perl and MQSeries for the faint of heart [...]</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Otavio "AngusYoung"</title>
		<link>http://usestrict.net/2009/05/28/perl-and-mqseries-for-the-faint-of-heart/comment-page-1/#comment-175</link>
		<dc:creator>Otavio "AngusYoung"</dc:creator>
		<pubDate>Fri, 05 Jun 2009 22:31:25 +0000</pubDate>
		<guid isPermaLink="false">http://usestrict.net/?p=502#comment-175</guid>
		<description>After seeing so many horrible MQ related code during last years I can only thank you for this post and say that you just killed two birds with one stone: you proved that MQ code can be simple and elegant AND explained to us a handy Perl module to work with it. I wish people to aim more to this type of elegance and simplicity.</description>
		<content:encoded><![CDATA[<p>After seeing so many horrible MQ related code during last years I can only thank you for this post and say that you just killed two birds with one stone: you proved that MQ code can be simple and elegant AND explained to us a handy Perl module to work with it. I wish people to aim more to this type of elegance and simplicity.</p>
]]></content:encoded>
	</item>
</channel>
</rss>
