× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.