SQL UDF

[mk]

Hallo zusammen,

ich möchte aus einer Tabelle die letzte höchste Nummer
ermitteln. Dazu soll eine SQL Function dienen.

Hier die Function:

CREATE FUNCTION MK/NNR (
AEMAIL CHAR(70) ,
AYEAR CHAR(4 ) )
RETURNS dec (10, 0 )
LANGUAGE SQL

NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
CLOSQLCSR = *ENDMOD ,
DFTRDBCOL = *NONE ,
DLYPRP = *NO ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
RDBCNNMTH = *RUW ,
SRTSEQ = *HEX
BEGIN
DECLARE aReturn DEC ( 10, 0);

CASE
WHEN (
( SELECT COUNT ( * ) FROM APPCLHP
whERE H_CARDEML = AEMAIL
AND H_CARDYY = AYEAR ) > 0 )
THEN
SET ARETURN =
SELECT max(H_CARDNR) +1
From appclhp
WHERE H_CARDYY = AYEAR
and H_CARDEML = AEMAIL ;
WHEN (
( SELECT COUNT ( * ) FROM APPCLHP
whERE H_CARDEML = AEMAIL
AND H_CARDYY = AYEAR ) = 0 )
THEN
SET ARETURN = 1;

END CASE ;
RETURN ARETURN ;
END ;

Die Keyfelder sind

H_CARDEML
H_CARDYY
und werden als Parameter übergeben.

Leider schaffe ich es von der Syntax nicht
das ich die SQL Function erstellen kann.

Hat jemand eine Idee ?

[rmittag]

a) irgendwelche Fehlermeldungen?

b) warum nicht sowas wie:


SET ARETURN =
SELECT coalesce(max(H_CARDNR), 0) +1
From appclhp
WHERE H_CARDYY = AYEAR
and H_CARDEML = AEMAIL

[BenderD]

... der Wert ist dann ein Schätzwert, der bis zumnächsten Insert gilt (commit=none) und mit ausreichendem Commit level sperrt das Teil die ganze Table. Besser ist da schon eine Key Table oder auto Increment Felder...

D*B

[mk]

Hallo,

habe deinen Vorschlag mal umgesetzt:

CREATE FUNCTION MK/NNR (
AEMAIL CHAR(70) ,
AYEAR CHAR(4 ) )
RETURNS dec (10, 0 )
LANGUAGE SQL

NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
CLOSQLCSR = *ENDMOD ,
DFTRDBCOL = *NONE ,
DLYPRP = *NO ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
RDBCNNMTH = *RUW ,
SRTSEQ = *HEX
BEGIN
DECLARE aReturn DEC ( 10, 0);
SET ARETURN =
SELECT coalesce(max(H_CARDNR), 0) +1
From appclhp
WHERE H_CARDYY = AYEAR
and H_CARDEML = AEMAIL ;
RETURN ARETURN ;
END ;

Bei dem RUNSQLSTM kommt der Fehler

SQL0104 30 23 Position 31 Token COALESCE ungültig. Gültige Token: ;.

[mk]

Hi zusammen,

so klappt es dann auch mit der Syntax:

BEGIN
RETURN (
SELECT coalesce(max(H_CARDNR), 0) +1
From appclhp
WHERE H_CARDYY = AYEAR
and H_CARDEML = AEMAIL ) ;
END ;


Vielen Dank für die Informationen

[andreaspr@aon.at]

SET ARETURN = (SELECT coalesce(max(H_CARDNR), 0) +1
From appclhp
WHERE H_CARDYY = AYEAR
and H_CARDEML = AEMAIL);

Du musst das SELECT in Klammern setzen, dann funktioniert es bei SET auch.

lg Andreas