Here is an example for creating a UDF that uses a procedure in a service
program that I use here almost daily.
CREATE FUNCTION CONVERT_DATE ( in_date NUMERIC(8,0),
in_format VARCHAR(10))
RETURNS date
LANGUAGE rpgle
DETERMINISTIC
NO SQL
EXTERNAL NAME 'TTLIB/DATE_SP(CONVERT_DATE)'
PARAMETER STYLE General;
The RPGLE prototype looks like this:
dConvert_Date pr d DatFmt( *ISO )
d Input_Date 8s 0 Const
d Input_Date_Format...
d 10a Const Varying
Thanks,
Tommy Holden
From: "Needles,Stephen J" <SNEEDLES@xxxxxxxxxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
Date: 02/27/2014 09:03 AM
Subject: RE: RPG functions in Service Programs access used in SQL
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
So long as your function is written as an SQL stored proc (or wrapped with
one) you should be able to execute it as you would any SQL statement:
Exec sql call SQLStoredProcWrappingFunction;
Steve Needles
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Englander, Douglas
Sent: Thursday, February 27, 2014 8:58 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG functions in Service Programs access used in SQL
Has anyone accessed a function (not necessarily written in RPG) in a
service program in SQL? If so, how did you make the connection between the
function and SQL? I am thinking I need to create a function in SQL that
calls the function in the service program. I am planning on using the
CREATE FUNCTION SQL command for this.
Has anyone else done this, or are there other, better ways of allowing SQL
to access service program functions.
Thank you,
Doug
--
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.
________________________________
This communication, including attachments, is confidential, may be subject
to legal privileges, and is intended for the sole use of the addressee.
Any use, duplication, disclosure or dissemination of this communication,
other than by the addressee, is prohibited. If you have received this
communication in error, please notify the sender immediately and delete or
destroy this communication and all copies.
TRVDiscDefault::1201
midrange.com
