Re: External UDF return value

PARAMETER STYLE SQL ;

Means your PR/PR should look like this

Dcl-proc IsInvoicePastDueN export ;
Dcl-pi *n int(5) ;
invoiceDate packed(6) const;
invouceDateIsNull int(5) const;
rtnSQLState char(5);
procedureName varchar(517) const;
specificName varchar(128) const;
errorMessage varchar(1000);
end-pi;

Hope that helps...

Charles


On Wed, Apr 6, 2022 at 12:39 PM Justin Taylor <jtaylor.0ab@xxxxxxxxx> wrote:

Dcl-pr IsInvoicePastDueN int(5) ;
invoiceDate packed(6) const;
End-pr ;
Dcl-proc IsInvoicePastDueN export ;
Dcl-pi *n int(5) ;
invoiceDate packed(6) const;
End-pi ;



CREATE FUNCTION ISINVOICEPASTDUE (
INVOICEDATE DECIMAL(6, 0) )
RETURNS SMALLINT
LANGUAGE RPGLE
SPECIFIC ISINVOICEPASTDUE
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
EXTERNAL NAME 'ARAGES(ISINVOICEPASTDUEN)'
PARAMETER STYLE SQL ;



date: Tue, 5 Apr 2022 11:10:52 -0600

from: Charles Wilt <charles.wilt@xxxxxxxxx>
subject: Re: External UDF return value

Show the SQL definition and the RPG PR/PI

Charles

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com