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