SQL UDF mit RPGLE Programm

[mk]

Hi Baldur,

aber wo ?

Am Anfang
oder am Ende der Definition.

Irgendwie ist es nicht meine Woche


Gruß
Michael

[B.Hauser]

Um eine Konstante als CHAR zu übergeben musst Du sie beim Aufruf einfach casten:

Select ... 
        htcost(stssea, styear, stdiv, ststyl , Cast('EUR' as Char(3))
.....

Beim Registrieren sollte der Funktions-Name im External Name in Groß-Schrift angegeben werden.
Weiterhin ändere ALLOW PARALELL in DISALLOW PARALELL und gib außerdem noch FENCED an. Beides sollte verhindern, dass die Funktion in einem anderen Thread läuft.

@Baldur:
Das war vielleicht früher so und ist noch so, wenn man RPG Programme als UDF registrieren will. Eine RPG-Funktion kann so wie sie ist registriert werden und bei Parameter Style GENERAL (oder SIMPLE CALL) werden nur die in RPG definierten Parameter übergeben (allerdings alle, auch für die optionalen Paramter werden Null-Pointer übergeben).

Birgitta

[mk]

Hallo,

entschuldigung für die späte Rückinfo. Hatte aber erst heute
wieder Gelegenheit mich damit zu beschäftigen.

Und hier die Lösung:

CREATE FUNCTION MK/HTCOST  (                       
 SAISON CHAR(1) ,                                  
 AYEAR  DECIMAL(4, 0) ,                            
 DIVISION DECIMAL(2, 0) ,                          
 STYLE CHAR(6) ,                                   
 CURRENCY CHAR(3) )                                
 RETURNS NUMERIC(7, 2) CAST FROM NUMERIC(7, 2)     
 LANGUAGE RPGLE                                    
 SPECIFIC MK/HTCOST                                
 NOT DETERMINISTIC                                 
 NO SQL                                            
 CALLED ON NULL INPUT                              
 DISALLOW PARALLEL                                 
 EXTERNAL NAME 'TSTLIBEDC/BY100SR(Get_HangTag_Cst)'
 PARAMETER STYLE DB2SQL 

Der OpsNav eignet sich sehr gut zur Anlage.

Vielen Dank an alle
Gruß
Michael