UDF nicht verwendbar

[Peder]

Hallo Birgitta

viele Dank für deine schnelle Antwort. Die UDF funktioniert jetzt. Ich habe den Parameter als VARCHAR definiert, da der Cast in der Anwendung etwas umständlich ist.

Peder

[Peder]

Hallo

eine Frage habe ich noch zum gleichen Thema. Die gleiche Funktion als Externe UDF scheitert auch bei der Übergabe des 2. Parameters. Im Debug, sehe ich, dass die Parameter 1 und 3 korrekt sind, der 2. enthält einen falschen Wert.

Hier die Definition der Funktion:
Create Function cmxtblobj/S_R_TBL
(FIR CHAR(3), SAR VARCHAR(3), RKEY CHAR(10))
Returns CHAR(64)
Language RPGLE
Specific S_R_TBL
Not Deterministic
No SQL
DisAllow Parallel
External Name 'CMXTBLOBJ/TBLPROT(S_R_TBL)'
Parameter Style SQL

und hier die Defintion der Paramter in der Prozedur:

d s_r_tbl pr like($t2inh)
d pr$fir like($t2fir)
d pr$infa like($t2sar)
d pr$key like($t2key)
**
p s_r_tbl b export
d s_r_tbl pi like($t2inh)
d pr$fir like($t2fir)
d pr$infa like($t2sar)
d pr$key like($t2key)
d pr$out s like($t2inh)


Die Like's verweisen alle auf entsprechende Char-Felder.

Vielen Dank
Peder

[B.Hauser]

Hallo Peder,

anstatt die Funktion zu ändern hättes Du eine weitere Funktion generieren können, die auf der ersten Funktion basiert und nur mit abweichenden Parametern definiert ist. (Sourced Function)

Bei sourced Function wird nichts anderes gemacht, als die Parameter gecasted und anschließend die Basis-Funktion aufgerufen.

Damit wird die Funktion überladen und kann sowohl mit CHAR als auch VARCHAR-Datentyp für den 2. Parameter aufgerufen werden.

Create Function cmxtblobj/S_TBLREAD 
      (FIR CHAR(3), SAR VARCHAR(3), RKEY CHAR(10)) 
       Returns CHAR(64) 
       Specific cmxtblobj/S_TBLREAD1
       Source Specific cmxtblobj/S_TBLREAD; 

Das Problem mit der externen Funktion liegt darin, dass VARCHAR empfangen wird, RPG jedoch CHAR erwartet. Ich denke auch hier kann eine Sourced Function weiterhelfen.

Birgitta