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

Code:
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