Assuming you added the or die clause I suggested, the script will die on the prepare. I know this because the next statement says the result was undefined. It will output $DBI::errstr - this should either provide you with the diagnostics to debug your SQL or will not make any sense, in which case the bug is in the Perl code. So, run the script again with the followed subbed for your prepare statement, and post the error message that results if it does not give you the necessary guidance: 

        $sth1=$Dbh->prepare("
             select a.contracting_office_text||h.piin as CONTRACT_NO,
                      substr(h.dodaac, 4, 3)||h.piin||h.call_no as CAL
+L_NO,
                      b.cage_code as CAGE_CD,
                      b.cec_code as DUNNS_PLUS4,
                      vo.check_no,
                      h.dov_no as VOUCHER_NO,
                      h.invoice_no,
                      vo.eft_trace as EFT_NO,
                      to_char(h.dovi, 'YYYYMMDD') as INVOICE_ISSUE_DT,
                      to_char(h.dov_date, 'YYYYMMDD') as PAYMENT_DT,
                      h.invoice_amt,
                      h.dov_amt as CHECK_EFT_AMT,
                      decode(greatest(discount_due_date, h.dov_date), 
+discount_due_date, h.discount_amt,0) as DISCOUNT_AMT,
                      h.penalty_amt as INTEREST_AMT,
                      decode(h.status, 90, 1, 60, 6, 2) as PAY_STATUs,
                      to_char(h.doiar, 'YYYYMMDD') as INVOICE_RECV_DT,
                      to_char(h.doras, 'YYYYMMDD') as MERCH_ACCEPT_DT,
                      s.fao_dssn as PAYING_DSSN,
                      (h.invoice_amt+h.adj_invoice_amt+h.adj_invoice_a
+mt_2+h.adj_invoice_amt_3+h.adj_invoice_amt_4+h.adj_invoice_amt_5+h.ad
+j_i
nvoice_amt_6) as GROSS_INV_AMT,
                      to_char(h.dov_date, 'YYYYMMDD') as DUE_DT,
                      f.routing_no as RECEIVING_BANK_ID,
                      h.adj_invoice_amt as ADJUSTMENT_AMOUNT_1,
                      h.reason_code_i as ADJUSTMENT_REASON_1,
                      decode(h.edi_disc_amt,
                             0,h.adj_invoice_amt_2 + h.adj_invoice_amt
+_3 + h.adj_invoice_amt_4 + h.adj_invoice_amt_5 + h.adj_invoice_amt_6,
                             h.edi_disc_amt) as ADJUSTMENT_AMOUNT_2,
                      decode(h.edi_disc_amt,
                             0,h.reason_code_i_2,
                             'SWELL') as ADJUSTMENT_REASON_2,
                      f.account_no as ACCOUNT_NUMBER,
                      h.currency_code,
                      h.address_line_1 as ADDRESS_1,
                      h.address_line_2 as ADDRESS_2,
                      h.city|| ',' ||h.state_cd||' '||h.zip_code as AD
+DRESS_3,
                      h.company_name as PAYEE_NAME,
                      e.tin,
                      h.vendor_code,
                      h.net_due_date as NET_DUE_DATE, #Added for Revis
+ion 1.6
                      h.status as STATUS #Added for Revision 1.6
            from historydb h, voucher vo, cdb c, cont_office a, vdb b,
+ eft f, vcodedb e, svcuniqdb s
          where h.dov_no = vo.dov_no
              and h.dov_date = vo.dov_date
              and h.piin = c.piin
              and c.status = 20
              and c.contracting_office_id = a.contracting_office_id
              and c.mail_to_code = b.address_code
              and c.vendor_code = b.vendor_code
              and c.vendor_code = f.vendor_code (+)
              and c.eft_addr_code = f.eft_addr_code (+)
              and f.status (+) = 40
              and h.vendor_code = e.vendor_code
              and h.dov_date = ?
              ") 
        or die "Prepare failed: $DBI::errstr";

[download]

In reply to Re^3: Bind param error by kennethk
in thread Bind param error by doug145

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.