Hier ein Beispiel für ein RPG-Serviceprogramm, das als User Defined Function für SQL zur Verfügung gestellt wird:
Code:
CREATE FUNCTION UNIMAIN/UM_XLATE (
from varchar(256),
to varchar(256),
string varchar(32000) )
returns varchar(32000)
LANGUAGE RPGLE
SPECIFIC UNIMAIN/UM_XLATE
DETERMINISTIC
NO SQL
CALLED ON NULL INPUT
DISALLOW PARALLEL
EXTERNAL NAME 'UNIMAIN/UM_XLATESQ(UM_XLATESQL)'
PARAMETER STYLE GENERAL ;
Dieter
Bookmarks