use strict;
use NBUX;
my $newkey;
my %jobs = bpdbjobs();
my %jobsClassKey;
my %classClient;
my %masterClassHash;
my (@successfuljobs, @partiallysuccessful,@failedjobs);

## populate 2nd hash with class as key

foreach my $key (keys %jobs) {
$newkey = $jobs{$key}->{class};
$jobsClassKey{$newkey} = $jobs{$key};
}

foreach my $class (sort keys %jobsClassKey) {

my $jobid = $jobsClassKey{$class}->{jobid};
my $status = $jobsClassKey{$class}->{status};

push @{$masterClassHash{$class}{$successfuljobs}} , $jobid      if ($status == 0);
push @{$masterClassHash{$class}{$partiallysuccessful}} , $jobid   if ($status == 1);
push @{$masterClassHash{$class}{$failedjobs}} ,  $jobid            if (($status >  1) && \
                                     ($status != 150)); # Termination requested by admin
}