Re: Pointer error when calling external function

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

Hi Robert,

The RPG doesn't return anything and has 3 variables.
The SQL code shows one return and 2 variables.


Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (905) 486-1162 x 239
Cell: (416) 317-3144


On 11 January 2018 at 09:37, Robert Rogerson <rogersonra@xxxxxxxxx> wrote:

> Hi All,  I created an external function to reuse an existing RPG program.
> When I call the function from iNav it runs without error unit it tries to
> assign a value to 0_ValidFlag which I return to the function.
>
> Here is the function...
>
> CREATE OR REPLACE FUNCTION RROGERSON/IS_SBT_ITEM_AND_UPC_VALID_FUNC (
>     VENDNUM DECIMAL(5, 0) ,
>     ITEMNUM DECIMAL(6, 0) )
>     RETURNS CHAR(10)
>     LANGUAGE RPGLE
>     SPECIFIC RROGERSON/IS_SBT_ITEM_AND_UPC_VALID_FUNC
>     NOT DETERMINISTIC
>     MODIFIES SQL DATA
>     CALLED ON NULL INPUT
>     EXTERNAL NAME 'RROGERSON/UDF0001S(ISSBTITEMANDUPCVALIDFUNC)'
>     PARAMETER STYLE GENERAL ;
>
> And here is the module in the service program...
>
>      P IsSBTItemAndUPCValidFunc...
>      P                 b export
>      d IsSBTItemAndUPCValidFunc...
>      d pi
>      d i_Vendor                       5p 0 const
>      d i_Item                         6p 0 const
>      d o_ValidFlag 10a
>
>      d item            s              6p 0
>      d upc             s 13a
>      d error           s 1a
>
> *----------------------------------------------------
>       *  External procedure prototypes
> *----------------------------------------------------
>      d sb9000          pr extpgm('SB9000')
>      d                                5p 0 const
>      d                                6p 0
>      d 13a
>      d 1a
> /free
>
>          item = i_Item;
>          Clear upc;
>          Clear error;
>
>          // Check to see if the item is valid
> SB9000(i_Vendor:item:upc:error);
>          If error = 'Y';
>            o_ValidFlag = 'Item error';                       // **** This
> is where I get the error *****
>            Return ;
> Endif;
>
>          Clear item;
>          Clear error;
>
>          // Check to see if the item's upc is valid
> SB9000(i_Vendor:item:upc:error);
>          If error = 'Y';
>            o_ValidFlag = 'UPC error';
>            Return ;
> Endif;
>
>        o_ValidFlag = *blanks;
>
> Return;
> /end-free
>      P IsSBTItemAndUPCValidFunc...
>      P e
>
> When I look at the joblog I see the error "Pointer not set for location
> referenced." which points to the line indicated above.
>
> I call the function in iNav with the sql statement
>
> values(6079, 529236, IS_SBT_ITEM_AND_UPC_VALID_FUNC(6079, 529236));
>
>
> I'm sure I'm missing something simple but I can't see it.  Any thoughts
> would be appreciated.
>
> Thanks,
>
> Rob
>
>
> --
> 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