use DBI;
use DBD::DB2::Constants;
use DBD::DB2;
use CGI qw/:standard/;

$permit = param("PERMT");
$typ    = param("TYP");

print header;

$dbh = DBI->connect("dbi:DB2:*LOCAL") or die; 

$stmt = "SELECT * FROM T40CGI.INS WHERE ((INSPMT = $permit) AND (INSTYP = $typ))";

$sth = $dbh->prepare($stmt) or die "prepare got error " . $dbh->err;

$sth->execute() or die "execute got error" . $dbh->err;

# output each value with its name in a row of the table 
print '';

# output each row of table (each matching record)
while($data = $sth->fetchrow_hashref){
	print qq(<tr><td>Inspection#</td><td>$data->
{INSPMT}</td></tr>\n);
 	print qq(<tr><td>Type Inspection</td><td>$data->
{INSDSC}</td></tr>\n);
	print qq(<tr><td>Inspection Date</td><td>$data->
{INSDTE}</td></tr>\n);
	print qq(<tr><td>Insp Result</td><td>$data->
{INSRST}</td></tr>\n);
        print qq(<tr><td>Comments</td><td>$data->
{INSCMN1}</td></tr>\n);
	print qq(<tr><td></td><td>$data->
{INSCMN2}</td></tr>\n);
	print qq(<tr><td></td><td>$data->
{INSCMN3}</td></tr>\n);
	print qq(<tr><td>Inspector ID</td><td>$data->
{INSINS}</td></tr>\n);
}

print '</table></body></html>';









Back to Main Page