Re: SQL UDF help

[James Lampert <jamesl@xxxxxxxxxxxxxxxxx>]

Joe Pluta wrote:
> Be sure to cast your variables correctly.  SQL default types are not 
> amenable to RPG variable types.  Show us the definition of your 
> DISPLAYVAL function.

The DISPLAYVAL function is defined thusly:
> create function displayval(i_fldid NUMERIC, i_key VARCHAR(5)) 
> returns varchar(50)                                           
> language sql deterministic not fenced                         
> begin                                                         
>  declare result char(50);                                     
>  declare cur02 cursor for select DEF from WTTBLE              
>             where PTBLE = whichtbl(i_fldid)                   
>   and PCODE = i_key and STBLE = '   ' and SCODE = '     ';    
>  fetch cur02 into result; close cur02; return result; end     

The "WHICHTBL" function it calls is defined thusly:
> create function whichtbl(i_fldid NUMERIC)                           
> returns varchar(3)                                                  
> language sql deterministic not fenced                               
> begin                                                               
>  declare tbl char(11); declare tbl2 char(3);                        
> declare cur01 cursor for select HDG from wtfldd where dfid = i_fldid
> ; open cur01; fetch cur01 into tbl; close cur01; set tbl2 = tbl;    
> return tbl2; end                                                    

Both compiled just fine.

--
JHHL