Perl CGI (auf OS/400 V4R5M0)

**tommi_011** · 29-05-16, 20:54

Guten Abend in die Runde,

oh weh, da hab ich wohl das Wichtigste versäumt zu posten, aber ist ja logisch, ohne Quellcode keine Hilfe! *Sorry*

Hier zunächst das simple Script, welches im Unterordner dbsamples hinterlegt ist (dbtest.pl).
Das ist das einfachste was es eigentlich gibt:

Code:

use DBI;
use DBD::DB2::Constants;
use DBD::DB2;

$DBI::dbi_debug = 9;

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

$dbh->trace(1);
$stmt = 'SELECT * FROM librkml.tabelle';

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

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


DBI::dump_results($sth);

1;

Und mit dem eingeschalteten Debug/Tracemodus bekomme ich in der QSH folgendes angezeigt:
***********************************************

Code:

perl -w /web/dbtest2.pl                                                      
Subroutine bootstrap redefined at /usr/local/lib/perl5/5.00502/os400/DynaLoad
er.pm line 97.                                                               
    DBI::db=HASH(0xbcf00) trace level set to 1 (DBI 1.06-nothread)           
    New DBI::st (for DBD::DB2::st, parent=DBI::db=HASH(0xbcf00), id=)        
    <- prepare('SELECT * FROM librkml.tabelle')= DBI::st=HASH(0x2272d0) at db
test2.pl line 12.                                                            
    <- execute= -1 at dbtest2.pl line 14.                                    
    <- fetch= ARRAY(0x10560) at DBI.pm line 567.                             
    <- fetch= undef at DBI.pm line 567.                                      
1, undef, undef                                                              
1 rows                                                                       
    <- DESTROY= undef during global destruction.                             
    <- DESTROY= 1 during global destruction.

**************************************************

Bei DSPFFD zeigt es mir, das die Felder NAME und VNAME jeweils die codierte Zeichensatz ID 37 verwenden, aber das numerische Feld LFDN gar keine Zeichensatz ID angegeben wird. Ausgerechnet diese wird aber offensichtlich verarbeitet.

**BenderD** · 30-05-16, 06:34

... du dumpst doch nur das statement handle raus, da fehlt z.B. ein fetchrow-array(), google ist dein Freund, da hilft eine Suche mit Perl DBI eine Menge weiter, z. B. https://de.wikibooks.org/wiki/Perl-Programmierung:_DBI

D*B

**tommi_011** · 30-05-16, 12:03

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

**Fuerchau** · 30-05-16, 12:33

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.

**tommi_011** · 30-05-16, 12:54

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! :-)

**Fuerchau** · 30-05-16, 12:58

Zum lernen empfehle ich da eher das hier:
http://learn.perl.org/installing/windows.html

**tommi_011** · 31-05-16, 12:32

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

**KingofKning** · 31-05-16, 13:35

Was hindert dich auf V4R4 zu gehen?

GG

**Fuerchau** · 31-05-16, 15:19

Also bisher war die AS immer abwärtskompatibel. Warum also nicht auch da?

**tommi_011** · 31-05-16, 19:43

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?

Thema: Perl CGI (auf OS/400 V4R5M0)

Thread Tools

Bewerten Sie diesen Thema

Display

Hybrid View

Similar Threads

Lizenzen OS/400 V4R5M0 Prozessorgruppe P05

MSAccess und V4R5M0 (CA Express)

MSAccess und V4R5M0 (CA Express)

releasewechsel von v3r6m0 auf v4r5m0

Trigger 5.1, TGTRLS(V4R5M0)

Tags for this Thread

Bookmarks

Bookmarks

Berechtigungen

Erweiterte Foren Suche

Google Foren Suche

Forum & Artikel
Update eMail

AS/400 / IBM i

Server Expert Gruppen

Unternehmens IT

Kategorien online Artikel

Auf dem Laufenden bleiben

Thema: Perl CGI (auf OS/400 V4R5M0)

Hybrid View

Similar Threads

Tags for this Thread

Bookmarks

Bookmarks

Berechtigungen

Erweiterte Foren Suche

Google Foren Suche

Forum & Artikel Update eMail

AS/400 / IBM i

Server Expert Gruppen

Unternehmens IT

Kategorien online Artikel

Auf dem Laufenden bleiben

Forum & Artikel
Update eMail