Help for this page

Select Code to Download


  1. or download this
    use DBI;
my $dbh = DBI->connect('dbi:DB2', 'db2tf0' );
my $sth_columns = $dbh->column_info(undef, undef, 'indic.name', undef)
+;
# print out the results
  2. or download this
    my @results = qx(echo 'connect to ctinld01 user db2tf0 using db2tf0\nd
+escribe select * from indic.name' | db2 );
print "<$_>" for @results;
  3. or download this
    db2 "connect ..." "select ..."