We have recently installed PERL 5.005002 on our AS400 to include DBI.
Currently, I am experiencing an error while trying to connect to the
database file entitled MPPFPCD.
Code snippet is as follows:
use DBI;
use DBD::DB2::Constants;
use DBD::DB2;
my $user = "Drunk";
my $pass = "master";
my $source = "MPPFPCD";
my $dbh=DBI->connect("dbi:DB2:$source", $user, $pass, {RaiseError => 1
});
my $sth = $dbh->prepare)"SELECT * FROM ADAACD");
$sth->execute;
However, I continue to receive the following error message:
"Subroutine bootstrap redefined at
/user/local/lib/perl5/5.00502/os400/DynaLoader.pm line 97.
Relational database MPPFPCD not in relational database directory. at
/home/lucent/RLC.PL line 10
Any guidance on this issue would be greatly appreciated.
Signed
A UNIX guy on a strange box!
