sub new {
    my $class = shift;
    my $self  = {};

# Get message strings from subroutine call
$msg  = shift; # message text
$app  = shift; # application label
$obj  = shift; # object
$sev  = shift; # severity of message 
$msgg = shift; # message group
$ser  = shift; # service id

    return bless $self, $class; 
}