Thread DB2 AS/400 nur numerische Felder (2 answers)
Opened by tommi_011 at 2016-05-24 12:15

tommi_011
 2016-05-24 12:15
#184810 #184810
User since
2016-05-24
1 article
BenutzerIn
[default_avatar]
Hallo in die Runde,

ich hab ein kleines, kniffliges Problem mit Perl auf AS/400 (OS400 V4R5M0).
Die CGI Anbindung als solche funktioniert.
Aber: Beim Abrufen von Tabellen einer Datenbank werden nur die Inhalte von Numerischen Feldern ausgegeben.
Konkret heisst es, die Abrufschleife wird gemäß der Anzahl Datensätze durchlaufen. Aber ausgegeben werden nur die Numerischen Felder DB2.

Hat irgendjemand hier im Forum eine Idee wie die anderen Felder zu behandeln sind?

--- Quellcodesnip ---

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl -w
# use CGI qw(param);
use DBI;
use DBD::DB2::Constants;
use DBD::DB2;
use CGI qw/:standard/;

# Test der DB Anbindung mit Perl auf AS/400

$dbh = DBI->connect("DBI:DB2:*LOCAL") or die "Ein Fehler: ".$dbh->err;
$sql = "select NAME, VNAME from LIBTEST.TESTSTAMM";
$sth = $dbh->prepare($sql) or die "Fehler: ".$sth->err;
$sth->execute() or die "Fehler bei Ausf}hrung: "-$sth->err;


print <<ENDE_HEAD;
Content-type: text/html

<html>
<head><title>Datenbanktest</title></head>
<body>
<table border='1'>
<tr><th>Name</th> <th>Vorname</th></tr>
ENDE_HEAD

while(@data = $sth->fetchrow_array)
{
print "<tr><td>".$data[0]."</td>\n";
print "<td>".$data[1]."</td></tr>\n";
}

print "</table>\n";
print "</body>\n";
print "</html>";

Last edited: 2016-05-24 12:19:29 +0200 (CEST)

View full thread DB2 AS/400 nur numerische Felder