Re: Another parameter passing anomoly

[Hans Boldt <boldt@xxxxxxxxxx>]

David Morris wrote:
>
>Anyone have any idea why the following would return different results?
>
>     PProc             B                   EXPORT
>     DProc             PI             4A
>     DRtnCod           DS
>     D Int                           10I 0 INZ(*ZEROS)
>     C                   EVAL      Int         = 1
>     C                   RETURN    RtnCod
>     PProc             E
>
>     PProc             B                   EXPORT
>     DProc             PI            10I 0
>     DInt                            10I 0 INZ(*ZEROS)
>     C                   EVAL      Int         = 1
>     C                   RETURN    Int
>     PProc             E
>
>The first returns x'00000001' the second returns x'00000000' when
>called from a CL program.  Is this another implementation difference
>between the ILE languages like the return value lengths must be
>greater than 2 for CL to RPGIV calls?

David:  Under the covers, implementation of return values is
different for integer/unsigned/float values than for other data
types.  CL is simply assuming that the return value is equivalent
to a character value, which doesn't work if the procedure uses the
proper return convention for integer.

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *