Re: Pointer error when calling external function

RETURNS NULL ON NULL INPUT is fine for parameter style general...

If a NULL is passed in, the RPG isn't called at all and the DB simply
returns NULL.

CALLED ON NULL INPUT

would require PARAMETER STYLE GENERAL WITH NULLS (or PARAMETER STYLE SQL)

Since your RPG would need to be able to find out which parms are NULL.

Charles

On Thu, Jan 11, 2018 at 8:08 AM, <j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx>
wrote:

Hi Alan,

Definitely not the same problem as Robert is having: you are actually
returning a result. But you are using RETURNS NULL ON NULL INPUT, so I
think you should be using PARAMETER STYLE GENERAL WITH NULLS. And you
should be supplying extra parameters for a null map for the input
parameters and a null indicator variable for the result.

Joep Beckeringh
Software architect
Pantheon Automatisering B.V.
Heerenveen

Alan Shore <ashore@xxxxxxxx>

11-01-2018 15:56

RE: Pointer error when calling external function

WOW
I am having the EXACT same problem
Here is my function
CREATE FUNCTION PRODPA.EBSCST (
CHAR(4),
CHAR(6),
CHAR(2),
DECIMAL(2, 0),
CHAR(2),
CHAR(1),
CHAR(2) )
RETURNS DECIMAL(21, 6)
LANGUAGE RPGLE
SPECIFIC PRODPA.EBSCST
DETERMINISTIC
NO SQL
RETURNS NULL ON NULL INPUT
NOT FENCED
EXTERNAL NAME 'PRODPA/ITMMSTSP(GETSTDCOST)'
PARAMETER STYLE GENERAL

As someone pointed out - I forgot to commit after creating this -
yet another Homer Simpson episode

Here is the module in the service program

P GetStdCost b export

D GetStdCost pi 21s 6
D Suffix 4A const
D Skuno 6A const
D LblCode 2A const
D Prefix 2S 0 const
D UOM 2A const
D EnvCode 1A const
D Type 2A const

D RtnEbcostDs...
D ds
D Itemno 20a
D Warehouse 3
D EBSOrgcd 3
D EBSUom 2
D TotalCost 21s 6
D MaterialCst 20s 6
D MatOvrhdCst 20s 6
D ResourceCst 20s 6
D ResOvrhdCst 20s 6
D YieldCost 20s 6

D ds
D Skunofull 6
D Skuno1st 1 overlay(Skunofull)
D Item# 5 0 overlay(Skunofull:*next)
*---------------------------------------------------------------------

* Stand Alone Fields - TOP
*---------------------------------------------------------------------

d Whsnum s 3 0 inz(3)
*---------------------------------------------------------------------

* Stand Alone Fields - BOTTOM
*---------------------------------------------------------------------

/free

if not %open(Suffwhsnbr);
open Suffwhsnbr;
endif;

clear RtnEbcostDs;
Skunofull = Skuno;
chain Suffix Suffwhsnbr;
if %found(Suffwhsnbr);
WhsNum = WhsNbr;
RtnEbcostDs = FnRtEbsCst(Item#:Suffix:' ':00:'EA':
WhsNum:' ':'FG');
endif;
if %open(Suffwhsnbr);
close Suffwhsnbr;
endif;

Return TotalCost;
/end-free

P GetStdCost e


The difference is that I am running mine in STRSQL - after applying

STRDBG

I get to the very end
Return TotalCost;
With the value I am expecting to see in TotalCost
That’s when I receive
Pointer not set for location referenced.

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD