#!/usr/bin/perl
use DBI;
use CGI;
my $col1;
my $col2;
my $col3;
# Print HTML headers, etc.
$cgi = new CGI;
print $cgi->header;
print $cgi->start_html();
# Open a connection
%attr = (PrintError => 0, RaiseError => 0);
$dbh = DBI->connect("dbi:DB2:CDWP", "xxxx", "XXXX", \%attr);
# Prepare SQL statement
$sql = "SELECT * FROM delete.metadata";
$sql.= " FETCH FIRST 10 ROWS ONLY";
# Execute SQL against CDW connection
$sth = $dbh->prepare($sql);
$sth->execute();
# Bind results to local variables
$sth->bind_col(1,\$col1);
$sth->bind_col(2,\$col2);
$sth->bind_col(3,\$col3);
# Print results
print $cgi->table();
while ($sth->fetch) {
print "| $col1 | $col2 |
\n";
}
# Clean up
$dbh->disconnect();
print $cgi->end_table;
print $cgi->end_html;
exit;
####
Content-Type: text/html; charset=ISO-8859-1
Untitled Document
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
| Loan | Attribute |
####
Untitled Document