Hello All!
I am using DBD::Oracle version 1.12 with Active State
perl build 5.6.1 on Windows NT and XP. On both systems
I do not get ant data from the returned cursor, even
though I know it works and should produce several, I
have verified this from the sqlplus command line.
Anyone else have simliar issues? Here is my code
below:
use DBI;
use DBD::Oracle qw(:ora_types);
my $dbh = DBI->connect('DBI:Oracle:blah,'blah','blah')
or die "Couldn't connect to database: " . DBI->errstr;
$d1 = "05-FEB-02";
$d1 = "26-MAR-02";
$sth = $dbh->prepare( "BEGIN my.procedure
:d1,:d2,:curref); END;" );
$curref = "pCurOut";
$sth->bind_param(":d1", $d1 );
$sth->bind_param(":d2", $d2);
$sth->bind_param_inout(":curref", \$curref, 0,
{ora_type => ORA_RSET});
$sth->execute || die "" .DBI->errstr;
$sth->finish;
while ( my $row = $curref->fetchrow_hashref )
{
my $row = $curref->fetchrow_hashref;
foreach my $field ( sort keys %{ $row } )
{
print "$field: $row->{ $field }\n";
}
}
$dbh->disconnect;
Regards,
Garrick Dabbs
__________________________________________________
Do You Yahoo!?
Yahoo! Movies - coverage of the 74th Academy Awards�
http://movies.yahoo.com/
