RE: Using SQL UDF in SQLRPGLE program gets decimal data error

Peter,
        I also noticed that the UDF definition specifies that the input
parameters are of DEC() type which equates to a PACKED in RPG.  Try using
NUM() (NUMERIC=ZONED) instead since you are only using fields that are
zoned.


Thank you,
Matt Tyler
Mattt@wincofoods.com

-----Original Message-----
From: Peter Dow [mailto:maillist@dowsoftware.com]
Sent: Thursday, September 19, 2002 17:29
To: rpg400-l@midrange.com
Subject: Re: Using SQL UDF in SQLRPGLE program gets decimal data error

Hi Matt,

You're making sense, in fact there's an APAR about getting an MCH1202 when
the UDF returns NULL and the receiving variable has not been initialized,
e.g.

    c            eval    x = TestUDF(parm1:parm2)

if TestUDF returns NULL, and x is an uninitialized numeric field, you'll get
a decimal data error.  However, in my case, the receiving variable has been
initialized.

Thanks for the reply!

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax


----- Original Message -----
From: "Tyler, Matt" <mattt@wincofoods.com>
Sent: Thursday, September 19, 2002 3:44 PM
Subject: RE: Using SQL UDF in SQLRPGLE program gets decimal data error


> How about removing the statement "RETURNS NULL ON NULL INPUT".
>
> Maybe ELAPSEDHOURS() is returning a nulled result which in RPGIV actually
> has data (unpredictable data but data none the less).  All null capable DB
> columns do actually contain data and you can reference that data but you
> might get a data decimal error.  You can only test the null status of a DB
> column.  Any program created field will not have the null indicator.
>
> I hope I made sense here.



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