DBI

[Schelstraete Bart]

HEllo ppl,

I hava a problem with Perl:DBI,  and I hope somebody can help me.
I'm using perl to get data from the AS/400 DB2 database. 
(Perl:DBI)....but the data that I'm receiving is not that same as the 
data on the database...
This is a part of my script:

            $q = $dbh->prepare("select * from QS36SPL.\"S.1.HAWB\"");
          $q->execute; $i=0;   
         while ($r = $q->fetchrow_hashref) {
               if ($i == 10) {
                    last;
               }
       print " $r->{HAHAWB}/ $r->{HAPCER} / $r->{HAWGT} / $r->{HAWGT} / 
$r->{HAORIG} / $r->{HADEST} \n";
           $i++;
            }

        $q->finish;


And this is the output:

                                 pvpuqyvupq/ 0 / 1.0 / 1.0 / BYd / bES
                                 pvpuqyvupr/ 0 / 1.0 / 1.0 / BYd / bES
                                 pvpuqyuusp/ 0 / 1.0 / 1.0 / BYd / bES
                                 pvpuqyuusq/ 0 / 1.0 / 1.0 / BYd / bES
                                 pupvqyuusp/ 0 / 1.0 / 1.0 / BYd / bES
 
And those 'BYd' and 'BES' is not correct.
When is use 'Data::Dumper', I'm only receiving '@@' as data...........

Somebody knows what the problem can be?


tnx, and best regards,

                            Bart

-- 
Schelstraete Bart
DHL Aviation
[EMAIL PROTECTED]



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