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