Help for this page

Select Code to Download


  1. or download this
    DBI connect('55zosV8','DAKPM',...) failed:  (SQL-S1000)
 (SQL-S1000)(DBD: db_login/SQLConnect err=-1) at /opt/isv/sqlnk_client
+/5_50_00/test/test.pl line 17
Couldn't connect to database: (SQL-S1000)
 (SQL-S1000)(DBD: db_login/SQLConnect err=-1) at /opt/isv/sqlnk_client
+/5_50_00/test/test.pl line 17.
  2. or download this
    $cat test.pl
#!/opt/isv/perl5.8.0/bin/perl
...
my $dbh = DBI->connect('DBI:ODBC:55zosV8',$user,$password)
  or die "Couldn't connect to database:" . DBI->errstr;
  print "opened database connection\n";