-
Ich hab ein weiteres Script, aber auf die gleiche Tabelle mit den Regeln angepasst:
Code:
#!/usr/bin/perl -w
use CGI qw(param);
use DBI;
use DBD::DB2::Constants;
use DBD::DB2;
# Ein Perl-Test f}r die "Info - HTML"
# $ich = param("wer");
# Test der DB Anbindung mit Perl auf AS/400
$dbh = DBI->connect("DBI:DB2:*LOCAL", "XXX", "XXX") or die "Ein Fehler: ".$dbh->err;
$sql = "select * from LIBRKML.TABELLE";
$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(my ($spalte1, $spalte2, $spalte3) = $sth->fetchrow_array())
{
print "<tr><td>".$spalte1."</td>\n";
print "<td>".$spalte2."</td>\n";
print "<td>".$spalte3."</td></tr>\n";
}
print "</table>\n";
print "</body>\n";
print "</html>";
und es dennoch gleich im QSH auf der Maschine ausführen lassen, mit dem gleichbleibenden Ergebnis:
Code:
perl -w /web/db2.pl
Subroutine bootstrap redefined at /usr/local/lib/perl5/5.00502/os400/DynaLoader.pm line 97.
Content-type: text/html
<html>
<head><title>Datenbanktest</title></head>
<body>
<table border='1'>
<tr><th>Name</th> <th>Vorname</th></tr>
<tr><td>1</td>
Use of uninitialized value at /web/db2.pl line 30.
<td></td>
Use of uninitialized value at /web/db2.pl line 31.
<td></td></tr>
</table>
</body>
</html>$
Und so sieht die Tabelle aus (ja, ich hab auch CCSID 65535 und 500 schon probiert):
Code:
Daten Feld Puffer Puffer Feld Spalte
Feld Art Länge Länge Position Verwend. Überschrift
LFDN GEPACK 3 0 2 1 Beide LFDN
Nullwert zugelassen
NAME ZCHN 20 20 3 Beide NAME
Nullwert zugelassen
ID des codierten Zeichensatzes . . . . . : 37
VNAME ZCHN 20 22 23 Beide VNAME
Feld variabler Länge -- Zugeordnete Länge: Keine
Nullwert zugelassen
ID des codierten Zeichensatzes . . . . . : 37
-
Ich denke mal "use of uninitialized value at ..." ist der Fehler.
Ggf. ist deine DBI-Version zu neu für deine V4R5-Version und verlangt Sachen, die noch nicht unterstützt werden. Hier musst du eine "Uraltversion" installieren, so aus den Jahren 1999/2000, die zum V4R5 kompatibel ist.
Alles andere macht hier keinen Sinn, da DBI schon vom Grundsatz her scheitert.
Das Problem ist hier, dass du ja DBI debuggen müsstest um den Fehler zu finden.
-
Dann scheint es langsam traurige Gewissheit zu sein.
Ich hab schon von CPAN die Altversion von 1999 herunter geladen und bereit gestellt.
Es gibt da zwar noch unter Source einige Quellen, da schau ich mal ob ein anders oder älteres DBI dabei ist. Ansonsten muss ich nochmal den Googel zu befragen.
Habt erst mall alle hier im Forum vielen Dank, für die Geduld und Hilfe! :-)
-
-
Nachdem wir nun fleißig gesucht und versucht haben bin ich am Ende im Netz "fündig" geworden, was den Misserfolg bestätigt. Zimindest ist das V4R5 eher zu "neu" für die bis dahin angebotenen Perl Versionen.
Aber gut, zumindest ist es Gewissheit, dass ich nicht "allein" bin/war und dieser Effekt auch auf amerikanischen Maschinen zu finden war:
http://computer-programming-forum.co...24050a5656.htm
-
Was hindert dich auf V4R4 zu gehen?
GG
-
Also bisher war die AS immer abwärtskompatibel. Warum also nicht auch da?
-
Sollte man eigentlich meinen. Aber kann es nicht doch sein, dass im V4R5 andere Sicherheitsregeln o.Ä. vorhanden sind?
Prozess- /Jobsteuerungen, die restriktiver prüfen als im R4?
Similar Threads
-
By Frank Hildebrandt in forum NEWSboard Server & Hardware Markt
Antworten: 2
Letzter Beitrag: 02-05-03, 16:32
-
By Matthias.Hayn in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 07-03-02, 14:17
-
By Matthias.Hayn in forum NEWSboard Windows
Antworten: 1
Letzter Beitrag: 07-03-02, 13:13
-
By delphix in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 18-02-02, 13:48
-
By Robi in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 28-01-02, 09:35
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks