× 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.




On 18/06/2009, at 6:29 AM, joe.kozlowski@xxxxxxxxxxxxxxxxxxxx wrote:

Create Function FmtName (slsnnm varchar (30) )
returns varchar(30)
language rpgle
deterministic
no sql
external name 'JJKLIB/GETNAME(FmtName) '
parameter style general
Function FMTNAME was created in JJKLIB.

Same errors exists as before

Not surprising. Although in your first attempt you told SQL the function accepted and returned CHAR(30) variables you had defined the RPG to use varying-length variables. Vern explained why that is a problem if you pass literal parameters.

However the real problem appears to be a case issue. In your CREATE statement note:

external name 'JJKLIB/GETNAME(FmtName) '

In the error message note:

2 -- Either the service program is not found or the program entry
point FmtName does not exist.

In the procedure exports note:

Procedure Exports:

Procedure Name
FMTNAME

In the prototype note:

D FmtName Pr 30a Varying
D SlsName 30a Varying Const Options(*Varsize)

Two solutions.
1) Ugly: change the external name to upper-case
2) Pretty: Specify the mixed-case name in EXTPROC keyword on the prototype and enclose in single quotes


Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.