Re: SQL UDF From RPG Program

Looks like you are missing a input null. Should have an input null for each
input parameter.

Just curious. Why not use a service program?

p IDAT_Packed_Default...
p b Export
d pi
d InPackedValue...
d 8p 0
d OutDate...
d Like(StdDat)
d InDataNull...
d Like(StdIntSml)
d OutNull...
d Like(StdIntSml)
d OutSQLState...
d Like(StdSQLState)
d InFunctionName...
d 139a Varying
d InSpecificName...
d 128a Varying
d OutDiagnosticMessage...
d 70a Varying



On Tue, Jun 30, 2009 at 8:09 AM, Charles Wilt <charles.wilt@xxxxxxxxx>wrote:

What error are you getting and when are you getting it?

Charles

On Tue, Jun 30, 2009 at 9:44 AM, <MattLavinder@xxxxxxxxxxxxxxxxxxx> wrote:

Trying to write an SQL UDF using RPG. Usually I put them in a service
program, but this time I was trying to do it with a regular program.

Here is the interface for the program. The function accepts two zip

codes

and returns the distance between them.

D SqlGetZipD pi
D pZipCode1 5a
D pZipCode2 5a
D pRetDist 8f
D pInpInd 5i 0
D pOutInd 5i 0
D pOutSqlState 5a
D pInpFuncName 139a varying
D pInpSpecName 128a varying
D pOutDiagTxt 70a varying

Here is the function code:

CREATE FUNCTION DMIPGMS/GETZIPDIST ( CHAR(5), CHAR(5) )
RETURNS DOUBLE
LANGUAGE RPGLE
PARAMETER STYLE SQL
DETERMINISTIC
PROGRAM TYPE MAIN
NO SQL
RETURNS NULL ON NULL INPUT
EXTERNAL NAME 'DMIPGMS/SQLGETZIPD';


Not sure what I am doing wrong. Any help would be appreciated.

Thanks,
Matt

______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
______________________________________________________________________
--
This is the RPG programming on the IBM i / System i (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 is the RPG programming on the IBM i / System i (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.