Rajanath,
Look in the fine perldoc for DBI. "0E0" is TRUE and no error but zero
rows.
--MarkT
Rajanath Tadikonda wrote:
>
> Hi all ,
> I am trying to get a returned value in $rv and based on query using oracle
> ..
> This query is returning properly the number of records retr'ved without
> any problem
> but if I try the same code in Unix it is returning "0E0";
>
> I will appreciate if any one with similar experiance
>
> Thank
> Rajanath
> #!/usr/bin/perl
> use DBI qw(:sql_types);
>
> my %dbx=getDetails();
> my %attr = (PrintError => 0,RaiseError =>0,AutoCommit=>0);
> my $rv=0;
> $xctr++;
>
> my($usr,$pass,$drv,$connect_string) =
> ($dbx{DB_USERNAME},$dbx{DB_PASSWD},$dbx{
>
> my ($dbh,$status1,$err)=&oraon($usr,$pass,$drv,$connect_string);
>
> if(!$status1)
> {
> &beta_error_page($err);
>
> exit(0);
> }
>
> $dbh->{LongReadLen}=4096*1024;
>
> my $sql2="select req_id,user_id,prog_id,file_data,status from
> fms_contact_impo
>
> my $sth=$dbh->prepare($sql2);
>
> if(!$sth)
> {
> &beta_error_page($DBI::errstr);
>
> exit(0);
> }
>
> my $rv=$sth->execute();
> print " Returned values is $rv \n";
> exit(0);
