while(<RPT>)
            {
                chomp;
                if (/^(\D+.*\d{4}\s+)(\D+.*)(\w{11})$/)
                {
                    my $timestamp = $1;
                    my $msg       = $2;
                    my $key       = $3;
                    fmt_rpt($msg);
                    if (exists($analysis{$key}))
                    {
                        $analysis{$key}[1] .= $msg;
                    }
                    else
                    {
                        $analysis{$key} = [ $timestamp, $msg ];
                    }
                }
                else
                {
                    print "Program Error 2\n";
                    exit 1;
                }