SQL UDF

[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: ;.