FYI, I am trying to do this on V5R4.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Mullis
Sent: Thursday, September 26, 2013 2:26 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: 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
