RE: Problem reading a file and passing a variable

[Lance Prais]

I have no Idea to why this would not work:

Here is my Output that I print:
--------------------------------------------------------->
--------------> SR(DAILY_SR_FILE): 1-999961088
--------------> SR(bulk):
--------------> User Id(name):
--------------> COUNT : 752

As you can see it is reading the file but not placing it in the SQL.

Here is the code I use to do this:  Below you find some code that is very
similar to this with the exception it reads form the database and puts it
into an array the SQL and works.   The thing is I wrote this therefore
understand how it works. Thank you again for your help, I am getting
frustrated with this issue.

while(my $ln = <BULK> ) {
        chomp $ln;
        $ln =~ s/\s//g; #remove all whitespace characters
        print "--------------------------------------------------------->
\n";
        print "--------------> SR(DAILY_SR_FILE): $ln\n";

        my $get_case_text = $dbh->prepare("
              SELECT
                      a.sr_num           sr_num,
                      a.sr_title                sr_title,
                      a.sr_stat_id       sr_stst_id
              FROM
                      s_srv_req  a
              WHERE   sr_num         = " . $dbh->quote($ln)
        );


      $get_case_text->execute or $dbh->errstr;

        #use hashrefs instead of 17 variables
        my $case = $get_case_text->fetchrow_hashref();
        $get_case_text->finish;

        print "--------------> SR(bulk): $case->{sr_num}\n";
        print "--------------> TITLE(bulk): $case->{sr_title}\n";
        print "--------------> COUNT : $line\n";
        $line++;
}
_____________OTHER CODE____________________________

$count=0;

my $get_count = $dbh->prepare("select count(nvl((sr_num),0)) from
s_srv_req");
$get_count->execute || $dbh->errstr;
($rowid_count) = $get_count->fetchrow_array();
$get_count->finish;
print "Total number of records to extract: $rowid_count\n";
#$dbh->disconnect;
#exit();

my $get_next_logid = $dbh->prepare("select nvl((sr_num),0) from s_srv_req");
$get_next_logid->execute || $dbh->errstr;

open(BULK, "> $bulk_load_filename");
while (($sr_num) = $get_next_logid->fetchrow_array()) {
        $count=$count+1;
        if ($sr_num==0) {
                $dbh->disconnect;
                exit();
        }
        my $get_case_text = $dbh->prepare("
              SELECT
                      a.sr_num           sr_num,
                      a.sr_title                sr_title,
                      a.sr_stat_id       sr_stst_id
              FROM
                      s_srv_req  a
              WHERE   sr_num         = ?");

        $get_case_text->execute($sr_num) || $dbh->errstr;
        ($sr_num,$sr_title,$sr_stat_id) = $get_case_text->fetchrow_array();
        $get_case_text->finish;
}
ETC...
-----Original Message-----
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 30, 2002 2:32 PM
To: Lance Prais
Cc: Janek Schleicher; [EMAIL PROTECTED]
Subject: RE: Problem reading a file and passing a variable

On Thu, 2002-05-30 at 14:29, Lance Prais wrote:
> Janek,
>   I tried that originally with the same results.  I am perplexed to why
this
> is happening, anyone have any ideas?
>
>
> Thanks
> Lance
>

Try this.  I have no idea why it would work and the other wouldn't, but
it is worth a try.

      $ln =~ s/\s//g; #remove all whitespace characters
      my $get_case_text = $dbh->prepare("
              SELECT
                      a.sr_num           sr_num,
                      a.sr_title         sr_title,
                      a.sr_stat_id       sr_stst_id
              FROM
                      s_srv_req  a
              WHERE   sr_num         = " . $dbh->quote($ln)
      );


      $get_case_text->execute or $dbh->errstr;

--
Today is Setting Orange the 4th day of Confusion in the YOLD 3168
P'tang!

Missile Address: 33:48:3.521N  84:23:34.786W


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]