Antwort: Re: Access into MVS DB2 using DBI or ???
From: Manfred Beilfuss (Manfred.Beilfuss_at_dvag.com)
Date: 03/31/04
- Next message: Tim Bunce: "Re: DBI->state()"
- Previous message: Tim Bunce: "(Fwd) RE: What's wrong with UnixDate("30000101","%Y%m%d")?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
To: "Hardy Merrill" <HMerrill@dhcr.state.ny.us> Date: Wed, 31 Mar 2004 15:17:39 +0200
Hi,
as I already mentioned this morning, you don't need anything special in
perl to access a DB2 on a mainframe nor on any other operating system.
All You need is dbi and depending on how you like it e.g. dbd::db2 or
dbd:odbc !
On the machine where you run your perl script you need the db2-connection
properly configured to your target-db2-system.
To show you the basics I just quote from the dbd::db2 standard example :
> #!/usr/local/bin/perl
>
> use DBI;
> use DBD::DB2::Constants;
> use DBD::DB2 qw($attrib_int $attrib_char $attrib_float
> $attrib_date $attrib_ts);
>
> # an extraneous example of the syntax for creating a new
> # attribute type
> $attrib_dec = { %$attrib_int,
> 'db2_type' => SQL_DECIMAL,
> 'SCALE' => 2,
> 'PRECISION' => 31 };
>
> #$DBI::dbi_debug=9; # increase the debug output
>
>
> # Open a connection and set LongReadLen to maximum size of column
Here you have to add the cataloged db2-alias e.g. D2HOST for your mainframe
> $dbh = DBI->connect("dbi:DB2:D2HOST","","", { LongReadLen => 102400 } );
> if (!defined($dbh)) { exit; }
OR e.g. "D2NT" for your DB2-UDB on a NT-Server
> $dbh = DBI->connect("dbi:DB2:D2NT","","", { LongReadLen => 102400 } );
> if (!defined($dbh)) { exit; }
Everything else remains the same! The only thing are possible
sql-syntax-differences on different db2-versions.
Mit freundlichen Gruessen / Best regards
Manfred Beilfuss
Deutsche Vermögensberatung AG
IT_Systemmanagement , DBA
Münchenerstr. 1
60329 Frankfurt
Tel.: +49 (69) 2384 - 639
Fax: +49 (69) 2384 - 329
Mailto:Manfred.Beilfuss@dvag.com
"Hardy Merrill"
<HMerrill@dhcr.st An: <David.Wagner@freight.fedex.com>, <dbi-users@perl.org>
ate.ny.us> Kopie:
Thema: Re: Access into MVS DB2 using DBI or ???
31.03.2004 14:55
You normally need DBI *and* the appropriate DBD:: module for your
particular database - in this case probably DBD::DB2. I have no
experience connecting to MVS DB2 so I can't offer any more help here.
Hardy Merrill
>>> "Wagner, David --- Senior Programmer Analyst --- WGO"
<David.Wagner@freight.fedex.com> 03/30/04 06:34PM >>>
Uuncertain where to start or really what to use to try and see
if I can do this? I searched under Activestate and found a large group
of DBI modules.
Do I just need DBI? Or are there other modules which I work with
DBI?
I am on XP Professional running service pack 1 and Perl AS 5.8.2
build 808.
Any questions and/or problems, please let me know.
Thanks.
Wags ;)
Int: 9-8-002-2224
Ext: 408-323-4225x2224
**********************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
****************************************************************
- Next message: Tim Bunce: "Re: DBI->state()"
- Previous message: Tim Bunce: "(Fwd) RE: What's wrong with UnixDate("30000101","%Y%m%d")?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
