while(<RPT>)
            {
                chop;
                if ($_ =~ s/^(\D+.*\d{4}\s+)(\D+.*)(\w{11})$/$1 $2 $3/)
                {
                    $msg = $2;
                    fmt_rpt($msg);
                    $key = "$3";
                    if (exists($analysis{$key}))
                    {
                    $val .= "$msg";
                    }
                    else
                    {
                    #$val = "$msg";
                    $analysis{$key} = "$val";
                    }
                }
                else
                {
                    print "Program Error 2\n";
                    exit 1;
                }