Subject: | MQSeries::Command fails for type MQSC |
Hi Hildo,
Hope it's all going well.
We've found a bug in the MQSeries::Command code which means MQSC commands fail to parse the returned messages properly. The error message seen in Debug mode is this:
[Fri Mar 4 14:03:43 2005] qStatus.pl: Unrecognized MQSC buffer: +MQDX QUEUE(TSTEUCLR.REMOTE ) TYPE(QREMOTE )
[Fri Mar 4 14:03:43 2005] qStatus.pl: at /var/mqm/home/perl/MQSeries/Queue.pm line 581
We have determined where the error is occurring. Line 825 of Base.pm looks like this:
$buffer =~ s!^\*\S+\s+!!;
We added a second line like this:
$buffer =~ s!^\+\S+\s+!!;
and this solved our problem. However, this works for us because we use the command prefix +qmgr, e.g. +MQD1. This value is user definable so I think it will require a bit of thought to make it more generic.
Having said that, it may not be too long before we can dispense with MQSC on the mainframe entirely ;-)
Cheers,
Paul