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

package MQSeries::Message::Accounting;

use 5.008;

use strict;
use Carp;

use MQSeries qw(:functions);
use MQSeries::Message::System;

require "MQSeries/Message/Accounting.pl";

our $VERSION = '1.34';
our @ISA = qw(MQSeries::Message::System);


sub import {
    my ($class) = @_;

    $class->_Register(\&_Translatable);

    return;
}


sub _Translatable {
    my ($self, $header) = @_;

    my $subclass =
        ($header->{"Command"} == MQSeries::MQCMD_ACCOUNTING_MQI) ?
            "MQSeries::Message::Accounting::QueueManager" :
        ($header->{"Command"} == MQSeries::MQCMD_ACCOUNTING_Q) ?
            "MQSeries::Message::Accounting::Queue" :
                undef;

    if ($header->{"Type"} == MQSeries::MQCFT_ACCOUNTING &&
        defined($subclass)) {
        bless $self, $subclass;
        return (\%MQSeries::Message::Accounting::ResponseParameters,
                "%MQSeries::Message::Accounting::ResponseParameters");
    }

    return;
}


package MQSeries::Message::Accounting::QueueManager;
our $VERSION = '1.34';
our @ISA = qw(MQSeries::Message::Accounting);


package MQSeries::Message::Accounting::Queue;
our $VERSION = '1.34';
our @ISA = qw(MQSeries::Message::Accounting);


1;

__END__

=head1 NAME

MQSeries::Message::Accounting -- OO Class for decoding MQSeries accounting messages

=head1 SYNOPSIS

  use MQSeries::Message::Accounting;
  my $message = MQSeries::Message::Accounting::->new();

=head1 DESCRIPTION

This class is a subclass of MQSeries::Message::System which includes a
table for MQSeries::Message::System to use to decode MQSeries
statistics messages.

=head1 METHODS

This class has no methods of its own.  It merely exists as a container
for the translation table that MQSeries::Message::System uses to
decode the statistics PCF messages.

The macros are mapped to strings as follows:

   Macro                                Key
   =====                                ===
   MQBACF_CONNECTION_ID                 ConnectionId
   MQCACF_APPL_NAME                     ApplicationName
   MQCACF_USER_IDENTIFIER               UserId
   MQCACH_CHANNEL_NAME                  ChannelName
   MQCACH_CONNECTION_NAME               ConnectionName
   MQCAMO_CLOSE_DATE                    CloseDate
   MQCAMO_CLOSE_TIME                    CloseTime
   MQCAMO_CONN_DATE                     ConnDate
   MQCAMO_CONN_TIME                     ConnTime
   MQCAMO_DISC_DATE                     DiscDate
   MQCAMO_DISC_TIME                     DiscTime
   MQCAMO_END_DATE                      IntervalEndDate
   MQCAMO_END_TIME                      IntervalEndTime
   MQCAMO_OPEN_DATE                     OpenDate
   MQCAMO_OPEN_TIME                     OpenTime
   MQCAMO_START_DATE                    IntervalStartDate
   MQCAMO_START_TIME                    IntervalStartTime
   MQCA_CREATION_DATE                   CreateDate
   MQCA_CREATION_TIME                   CreateTime
   MQCA_Q_MGR_NAME                      QueueManager
   MQCA_Q_NAME                          QName
   MQGACF_Q_ACCOUNTING_DATA             QAccountingData
   MQIACF_PROCESS_ID                    ApplicationPid
   MQIACF_SEQUENCE_NUMBER               SeqNumber
   MQIACF_THREAD_ID                     ApplicationTid
   MQIAMO64_BROWSE_BYTES                BrowseBytes
   MQIAMO64_GET_BYTES                   GetBytes
   MQIAMO64_PUT_BYTES                   PutBytes
   MQIAMO64_TOPIC_PUT_BYTES             PutTopicBytes
   MQIAMO_BACKOUTS                      BackCount
   MQIAMO_BROWSES                       BrowseCount
   MQIAMO_BROWSES_FAILED                BrowseFailCount
   MQIAMO_BROWSE_MAX_BYTES              BrowseMaxBytes
   MQIAMO_BROWSE_MIN_BYTES              BrowseMinBytes
   MQIAMO_CBS                           CBCount
   MQIAMO_CBS_FAILED                    CBFailCount
   MQIAMO_CLOSES                        CloseCount
   MQIAMO_CLOSES_FAILED                 CloseFailCount
   MQIAMO_COMMITS                       CommitCount
   MQIAMO_COMMITS_FAILED                CommitFailCount
   MQIAMO_CTLS                          CtlCount
   MQIAMO_CTLS_FAILED                   CtlFailCount
   MQIAMO_DISC_TYPE                     DiscType
   MQIAMO_GETS                          GetCount
   MQIAMO_GETS_FAILED                   GetFailCount
   MQIAMO_GET_MAX_BYTES                 GetMaxBytes
   MQIAMO_GET_MIN_BYTES                 GetMinBytes
   MQIAMO_INQS                          InqCount
   MQIAMO_INQS_FAILED                   InqFailCount
   MQIAMO_OBJECT_COUNT                  ObjectCount
   MQIAMO_OPENS                         OpenCount
   MQIAMO_OPENS_FAILED                  OpenFailCount
   MQIAMO_PUT1S                         Put1Count
   MQIAMO_PUT1S_FAILED                  Put1FailCount
   MQIAMO_PUTS                          PutCount
   MQIAMO_PUTS_FAILED                   PutFailCount
   MQIAMO_PUT_MAX_BYTES                 PutMaxBytes
   MQIAMO_PUT_MIN_BYTES                 PutMinBytes
   MQIAMO_Q_TIME_AVG                    TimeOnQAvg
   MQIAMO_Q_TIME_MAX                    TimeOnQMax
   MQIAMO_Q_TIME_MIN                    TimeOnQMin
   MQIAMO_SETS                          SetCount
   MQIAMO_SETS_FAILED                   SetFailCount
   MQIAMO_STATS                         StatCount
   MQIAMO_STATS_FAILED                  StatFailCount
   MQIAMO_SUBRQS                        SubRqCount
   MQIAMO_SUBRQS_FAILED                 SubRqFailCount
   MQIAMO_SUBS_DUR                      SubCountDur
   MQIAMO_SUBS_FAILED                   SubFailCount
   MQIAMO_SUBS_NDUR                     SubCountNDur
   MQIAMO_TOPIC_PUT1S                   Put1TopicCount
   MQIAMO_TOPIC_PUT1S_FAILED            Put1TopicFailCount
   MQIAMO_TOPIC_PUTS                    PutTopicCount
   MQIAMO_TOPIC_PUTS_FAILED             PutTopicFailCount
   MQIAMO_UNSUBS_DUR                    UnsubCountDur
   MQIAMO_UNSUBS_FAILED                 UnsubFailCount
   MQIAMO_UNSUBS_NDUR                   UnsubCountNDur
   MQIA_COMMAND_LEVEL                   CommandLevel
   MQIA_DEFINITION_TYPE                 DefinitionType
   MQIA_Q_TYPE                          QType

=head1 SEE ALSO

MQSeries(3), MQSeries::QueueManager(3), MQSeries::Queue(3),
MQSeries::Message(3), MQSeries::Message::PCF(3),
MQSeries::Message::System(3)

=cut