: [IBM][CLI Driver] CLI0124E Invalid argument value. SQLSTATE=HY009 at
AACTSS.pl line 38
Uncaught exception from user code:
Connection failed with error: [IBM][CLI Driver] CLI0124E
Invalid argument value. SQLSTATE=HY009 at AACTSS.pl line 38.
at AACTSS.pl line 38
Brent
-----Original Message-----
From: Jeffrey Seger [mailto:[EMAIL PROTECTED]
Sent: Wednesday, January 10, 2007 3:21 PM
To: Brimacomb, Brent
Cc: [email protected]
Subject: Re: DBD::DB2 question need an example
What error are you seeing?
On 1/10/07, Brimacomb, Brent <[EMAIL PROTECTED]> 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:[EMAIL PROTECTED]
>
>
>
>
--
------------------------------------------------------------------------
--------------------------------------
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
------------------------------------------------------------------------
--------------------------------------
