Being new to Perl I'm not sure how to list out the variables you asked
for?
 list node directory 
 list database directory 
get dbm cfg 
 
Below is the complete output of the current program.
 
Thank you!
Brent
 
 
 
 
 
C:\Perl>perl aactss.pl
Subroutine AUTOLOAD redefined at c:/Perl/site/lib/DBD/DB2/CONSTANTS.pm
line
        1560 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning,
say
 
        {
        no warnings 'redefine';
        eval "sub name { ... }";
        }
 
Operating System = MSWin32
Perl Binary      = c:\Perl\bin\perl.exe
Perl Version     = 5.008008
DBI Version      = 1.53
DBD::DB2 Version = 0.78
 
Available DB2 DSNs:
 
DBI connect('dsn2.prdplexa.sabre.com','Z156505',...) failed: [IBM][CLI
Driver] C
LI0124E  Invalid argument value. SQLSTATE=HY009 at aactss.pl line 66
Uncaught exception from user code:
        Connection failed with error: [IBM][CLI Driver] CLI0124E
Invalid argume
nt value. SQLSTATE=HY009 at aactss.pl line 66.
 at aactss.pl line 66
 
C:\Perl>
 
 


________________________________

        From: Kellen F Bombardier [mailto:[EMAIL PROTECTED] On Behalf
Of db2perl
        Sent: Monday, January 15, 2007 11:05 AM
        To: Brimacomb, Brent
        Cc: [email protected]; Jeffrey Seger
        Subject: RE: DBD::DB2 question need an example
        
        

        Hi Jeffrey, 
        
        Can you please paste the output from the entire script you
provided in the original email (the one that displays the versions of
everything)?  Also, can you run the following commands from the DB2 CLP
and give us the output: 
        
                list node directory 
                list database directory 
                get dbm cfg 
        
        Thanks, 
        
        
        
        
"Brimacomb, Brent" <[EMAIL PROTECTED]> 

01/11/2007 09:19 AM 

To
"Jeffrey Seger" <[EMAIL PROTECTED]> 
cc
<[email protected]> 
Subject
RE: DBD::DB2 question need an example

        




        First let me say THANK YOU! for trying to help.   I've been
beating my
        head on this one for a couple days now....   
        
        I tried what you suggested and basically got the same error:
        
        DBI connect('database=USNETAALDSN2','Z156505',...) failed:
[IBM][CLI
        Driver] CLI
        0124E  Invalid argument value. SQLSTATE=HY009 at aactss.pl line
38
        Uncaught exception from user code:
               Connection failed with error: [IBM][CLI Driver] CLI0124E
        Invalid argume
        nt 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 7:22 PM
        To: Brimacomb, Brent
        Cc: [email protected]
        Subject: Re: DBD::DB2 question need an example
        
        On 1/10/07, Brimacomb, Brent <[EMAIL PROTECTED]> wrote:
        > : [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
        
        I'm no DB2 expert, but a quick google revealed that that error
message
        means that DB2 is not liking something about your $dsn.  The
first thing
        I don't know is whether that database showed up in your list of
        DB2 datasources.  If it is showing up, try just passing the
DataSource
        Name in the $dsn portion of the connect string:
        
        my $dsn = 'USNETAALDSN2';
        my $dbh = DBI->connect("dbi:DB2:$dsn",$user,$pass) or die
$DBI::errstr;
        
        According to perldoc DBD::DB2, your format is correct for an
        un-cataloged database.  I'm wondering if the database name on
the OS/390
        box is different from the alias that you have cataloged on your
local
        box, since this format uses the database name on the host, not
the DSN
        name that as it's cataloged on the client.
        
        --
        
------------------------------------------------------------------------
        --------------------------------------
        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
        
------------------------------------------------------------------------
        --------------------------------------
        
        

Reply via email to