Mit bind_param_inout Rückgabewert einer PL/SQL-Function holen (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]16610[/thread]

Mit bind_param_inout Rückgabewert einer PL/SQL-Function holen [gelöst]

Tags: perl5 DBI Oracle Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
pernox77

2011-08-08 13:40
User since
2010-10-03
11 Artikel
BenutzerIn
Guten Tag zusammen,

ich sitze an einem Problem, das nicht nur Perl betrifft, sondern auch PL/SQL. Hoffentlich kann ich hier trotzdem hilfreiche Hinweise erhalten.

Also: Ich habe ein Perlskript, dass eine bestimmte PL/SQL-Funktion aufruft. Um zu sehen, was sich getan hat, gibt diese Funktion die Zahl der betroffenen Zeilen in der DB-Tabelle(Oracle) zurück (bzw. soll sie zurückgeben):
Code (perl): (dl )

1 2 3 4

my $SQL = "BEGIN :rows := SLP_IMPORT.IMPORT2RESULTS; END;"; my $sth = $dbh -> prepare($SQL); $sth -> bind_param_inout(":rows", \$zeilenanzahl, 20); $sth -> execute();
Die PL/SQL-Funktion gibt einen Integer-Wert zurück, der in meinem Testszenario zunächst immer genau 100 ist.
Rufe ich die Funktion für sich auf, also nicht über das Perlskript, funktioniert das auch wunderbar.

Aber mein Aufruf über Perl endet in einem Fehler: ORA-01722 Ungültige Zahl. Bzw. ORA-06512: ....DBD Error: OCIStmtExecute ......:rows=undef

Die PL/SQL-Funktion wird auch nicht ausgeführt.
Die Fehlerbehebung auch eigene Faust ergab bisher nichts. Ich hab als Datentyp noch Numbers probiert und auch die Speicherangabe (also die 20 siehe oben) im Perlaufruf erhöht. Keine Besserung :(
Bitte! Helft mir!
Danke
Pernox77
- payx
  
  2011-08-10 09:25
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo pernox77,
  
  ins Blaue: Musst Du die Bind-Variable rows nicht erst deklarieren?
  
  HTH
  Grüße
  payx
- +3 replies
- pernox77
  
  2011-08-10 13:46
  User since
  2010-10-03
  11 Artikel
  BenutzerIn
  Ich habe jetzt mal versucht, den Aufruf soweit wie möglich zu vereinfachen, um den Fehler weiter einzugrenzen.
  Mein Code im Perlscript sieht jetzt so aus:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $SQL = "BEGIN SLP_IMPORT.IMPORT2RESULTS; END;"; my $sth = $dbh -> prepare($SQL); $sth -> execute();
  
  Also kein Rückgabewert mehr, da es jetzt eine Prozedur ist.
  Die Prozedur habe ich jetzt mit einem sehr einfachen INSERT gefüllt:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  INSERT INTO t_slpresults( prob_id, fk_slpresults_srdesc_key, value_number, commitdate) VALUES( 122456, 65, to_number('452.5'), sysdate);
  
  Die problematische Stelle ist die Zeile to_number('452.5'). Dafür bekomme ich die Meldung "...ungültige Zahl"
  
  Da der Aufruf (ohne über das Perlskript zu gehen) funktiontiert, denke ich, dass ich beim Perlaufruf der Prozedur etwas falsch mache, bzw. anders machen muss.
  Schreibe ich anstatt der Zeile to_number('452.5') direkt die Zahl als Value hin, funktioniert es. Leider liegt die Zahl aber als varchar2 in der DB.
  
  Hat jemand einen Tipp?
  Danke
  Pernox77
  - +2 replies
  - payx
    
    2011-08-10 15:33
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo pernox77,
    
    vermutlich wird ein anderes Eingabeformat erwartet. Versuche mal:
    
    Code: (dl )
    
    to_number('452,5')
    
    HTH
    Grüße
    payx
    
    PS: Bzw. wenn die Zahl in eine VARCHAR-Spalte geschrieben werden soll, dann natürlich ohne to_number.
    - pernox77
      
      2011-08-10 16:20
      
      User since
      2010-10-03
      11 Artikel
      BenutzerIn
      
      2011-08-10T13:33:46 payx
      vermutlich wird ein anderes Eingabeformat erwartet. Versuche mal:
      
      Code: (dl )
      
      to_number('452,5')
      
      Hallo Payx,
      vielen Dank, das hatte ich auch schon probiert. Und bemerkt, dass es geht!
      Inzwischen habe ich den Fehler auch behoben. Ich habe unter Windows die Umgebungsvariable NLS_LANG auf American.... gesetzt. Denn so ist es später auf der Produktivumgebung auch.
      Der direkte Aufruf der Prozedur ging, weil ich das über den SQLdeveloper gemacht habe. Dort hatte ich das Dezimaltrennzeichen schon früher mal umgestellt.
      Herrlich! :)
      Vielen Dank.
      Pernox77

View all threads created 2011-08-08 13:40.