The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#-*-perl-*-
#
# $Id: RequestParameterOrder.in,v 33.5 2012/09/26 16:15:24 jettisu Exp $
#
# (c) 1999-2012 Morgan Stanley & Co. Incorporated
# See ..../src/LICENSE for terms of distribution.
#

package MQSeries::Command::PCF;

#
# Some of the PCF commands have order dependencies for the optional
# parameters.  MQSeries::Command is smart enough to put required in
# front of optional, but this configuration will guarantee the order
# of the optional parameters, where necessary.
#

%RequestParameterOrder =
  (
   DeleteQueue			=> [ qw(QType Purge) ],

   InquireQueueStatus		=> [ qw(StatusType OpenType QStatusAttrs) ],
   InquireClusterQueueManager	=> [ qw(Channel ClusterName ClusterQMgrAtrrs) ],
   InquireConnection		=> [ qw(ConnectionId GenericConnectionId) ],
   InquireChannel               => [ qw(ChannelType) ],
  );

1;