Re: DBD::DB2 question need an example
- From: jseger@xxxxxxxxx (Jeffrey Seger)
- Date: Wed, 10 Jan 2007 16:20:46 -0500
What error are you seeing?
On 1/10/07, Brimacomb, Brent <brent.brimacomb@xxxxxxx> wrote:
Well I'm new to both Perl and DBD::DB2, so please bare with me.
I've installed the latest Active state Perl, the latest DBI and DBD::DB2
from CPAN.
I'm trying to develop a program that runs on a Windows server that does
a SELECT from a DB2 that's on an Os/390 box running several DB2's.
What I'm looking for is a good example of a program that does that.
Here's what I have, but I can't make the connection work......
use warnings;
use strict;
use diagnostics;
use DBI;
use DBD::DB2;
use DBD::DB2::CONSTANTS;
print "Operating System = $^O\n";
print "Perl Binary = $^X\n";
print "Perl Version = $]\n";
print "DBI Version = $DBI::VERSION\n";
print "DBD::DB2 Version = $DBD::DB2::VERSION\n\n";
my @DB2DataSources = DBI->data_sources("DB2");
print "Available DB2 DSNs:\n\n";
foreach my $dsn ( @DB2DataSources )
{
print " $dsn \n";
}
my $hostname = "dsn2.prdpl.abc123.com"; # This is the hostname of the
server you are wanting to connect to.
my $port = "5002"; # dsn port number.
my $protocol = "TCPIP"; # communication protocol
my $database = "DSN2"; # This is the database name
that you are connecting to on the above host.
my $user = "G156505"; # User that is connecting
to the database
my $password = "xxxxxx12"; # Password the User is
connecting to the database
# my $dsnx = "dbi:DB2:database=$database; HOSTNAME=$hostname;
PORT=$port; PROTOCOL=$protocol; UID=$user; PWD=$password;";
# my $dsnx = "dbi:DB2:database=USNETAALDSN2";
my $dsnx = "dbi:DB2:database=$database; HOSTNAME=$hostname; PORT=$port;
PROTOCOL=$protocol; UID=$user; PWD=$password;";
my $dbh = DBI->connect($dsnx,
$user,
$password) || die "Connection failed with error:
$DBI::errstr";
my $sql = qq( SELECT CUS_NBR, CUS_LST_NM FROM TEST.XXXR0471_CUSTAB WHERE
CUS_NBR = 535077);
print $sql;
my $sth = $dbh->prepare( $sql );
$sth->execute(); # Execute the select statement
my ( $cusno, $lastname );
$sth->bind_columns( undef, \$cusno, \$lastname );
while( $sth->fetch() ) {
print "$empno, $lastname\n";
}
$sth->finish(); # Tell the database handle you are finished with it.
$sth->disconnect(); # Disconnect from the database.
Brent Brimacomb CISSP, CISM
EDS - Information Security
MS 354
4000 North Mingo Rd.
Tulsa, OK 74116
* phone: +01-918-939-6534
* mailto:brent.brimacomb@xxxxxxx
--
--------------------------------------------------------------------------------------------------------------
The darkest places in hell are reserved for those who maintain their
neutrality in times of moral crisis.
Dante Alighieri (1265 - 1321)
They who would give up an essential liberty for temporary security,
deserve neither liberty or security.
Benjamin Franklin
Our lives begin to end the day we become silent about things that matter.
Martin Luther King
The right of the people to be secure in their persons, houses, papers,
and effects, against unreasonable searches and seizures, shall not be
violated, and no warrants shall issue, but upon probable cause,
supported by oath or affirmation, and particularly describing the
place to be searched, and the persons or things to be seized.
Amendment IV to the Constitution of the United States
--------------------------------------------------------------------------------------------------------------
.
- Follow-Ups:
- RE: DBD::DB2 question need an example
- From: Brent Brimacomb
- RE: DBD::DB2 question need an example
- References:
- DBD::DB2 question need an example
- From: Brent Brimacomb
- DBD::DB2 question need an example
- Prev by Date: DBD::DB2 question need an example
- Next by Date: RE: DBD::DB2 question need an example
- Previous by thread: DBD::DB2 question need an example
- Next by thread: RE: DBD::DB2 question need an example
- Index(es):
Relevant Pages
|
