Here is the function for this query:

sub Query_TotalBatches()
{
    my($Rows, $Prepare_Batch, $RowValue_Batch, $RowValue_Count);
    my @ColumnsValues = ();

    $Query_String_Batch = "select left(B.B_num,3) as JD, sum(B.B_COUNT
+) as Doc_Cnt, P.PROJECTED_VOL as Proj_Vol, P.DATAMARK_RECD as DataMar
+k_Recd, P.JD_CURRENT as JD_Current, P.JD_FUTURE as JD_Future from $TB
+L_NAME B left join $TBL_PROJVOL P on P.REPORT_IMPORT_DT = B.REPORT_IM
+PORT_DT where B.REPORT_IMPORT_DT =?group by left(b_num,3)";
   
    $Prepare_Batch = $dbh->prepare($Query_String_Batch);
    
print "1  = $Query_String_Batch\n";<stdin>;
    $RowValue_Batch = $Prepare_Batch->execute($ReportDate) || print "E
+rror : ".$dbh->errstr."<\/p>";
   
    $RowsFlag = False;

    if ( $RowValue_Batch > 0 ) {

        my $RowCount = 0;

        while ( $Rows = $Prepare_Batch->fetchrow_hashref ){
            $ColumnsValues[0] = $Rows->{JD};
            $ColumnsValues[1] = $Rows->{Doc_Cnt};
            $ColumnsValues[2] = $Rows->{Proj_Vol};
            $ColumnsValues[3] = $Rows->{DataMark_Recd};
            $ColumnsValues[4] = $Rows->{JD_Current} if ($RowCount == 0
+);
            $ColumnsValues[4] = $Rows->{JD_Future} if ($RowCount == 1)
+;
            $DailyReport{TB}{$ColumnsValues[0]} = [ @ColumnsValues ];
            $DailyReport{TB}{DocCount} += $Rows->{Doc_Cnt} if (length(
+$Rows->{DocCount})>0);
            $DailyReport{TB}{ProjVolume} += $Rows->{Proj_Vol} if (leng
+th($Rows->{DocCount})>0);
            $DailyReport{TB}{DMIReceived} += $Rows->{DataMark_Recd} if
+ (length($Rows->{DocCount})>0);
#            $DailyReport{TB}{JDCount} = ($Rows->{JD_Current} +  $Rows
+->{JD_Future}) if (length($Rows->{JD_Current})>0 and length($Rows->{J
+D_Future})>0);
            $RowCount++;
#            Print "1 = @ColumnsValues = $DailyReport{TB}{DocCount} = 
+$DailyReport{TB}{ProjVolume} = $DailyReport{TB}{DMIReceived} = $Daily
+Report{TB}{JDCount}\n";<stdin>;
        }
    }
}

[download]

Edited by planetscape - added code tags

In reply to Re^2: Perl DBI Error by pdl_babu
in thread Perl DBI Error by pdl_babu

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.