How did you call your UDF?
Did you pass the second parameter as constant value (for example '1')? If
yes did you explicitly cast it into the CHAR Data type?
Values(YourUDF('Your in Data', Cast('1' as Char(1)));
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Robert Mullis
Gesendet: Thursday, 26.9 2013 20:26
An: RPG programming on the IBM i (AS/400 and iSeries)
Betreff: Creating a SQL UDF
I have a service program (SYSRVUTL) with the following procedure in it:
D Remove_Non_AlphaNumeric...
D pr 65535a varying opdesc
D inData 65535a const varying
D inCompress n const
I want to create a UDF to use this procedure in embedded SQL, but so far I
have been unsuccessful. I have tried numerous times creating the function
with slight variations and each time it appears to create. But when I try
and run it in an SQL Select, it comes back and tells me the function is not
found in *LIBL. I now it was created in a library that is in my library
list.
This was my last attempt at creating:
CREATE FUNCTION WORKLB/REMOVE_NON_ALPHANUMERIC
(INDATA VARCHAR(32740), COMPRESS CHAR(1))
RETURNS VARCHAR(32740)
LANGUAGE RPGLE
DETERMINISTIC
NO SQL
RETURNS NULL ON NULL INPUT
EXTERNAL NAME 'WORKLB/SYSRVUTL(REMOVE_NON_ALPHANUMERIC)'
PARAMETER STYLE GENERAL
Anyone have any suggestions? I am sure it is simple, but this is my first
attempt at creating a UDF.
Thanks,
Robert J. Mullis
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
