RE: Passing By Reference

["Bob Cozzi" <cozzi@xxxxxxxxx>]

As Gary and I have asked, why are you returning an input parameter?
De facto the input parameter is returned back up to the caller with the
new data.
There is no reason to return the input parameter, it is "returned"
anyway, the only issue being that you cannot use the procedure on an
assignment statement, so you use CALLP instead.

Instead of:

 C             eval   myNewValue = MyProc(inString)
  ** InString and MyNewValue contain updated data.

Use this:

 C             CallP  MyProc(InString)
  **  InString now contains updated data.


-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of JJW
Sent: Monday, November 25, 2002 12:45 PM
To: rpg400-l@midrange.com
Subject: Re: Passing By Reference


If I remove the Return opcode I get error RNF5415 when I
try to create the module.  The procedure returns a value,
but no RETURN operation was found.


On Mon, 25 Nov 2002 12:06:05 -0600
  Gary Guthrie <garyguthrie@charter.net> wrote:
>F1 is a parameter. You don't use it on the Return
>op-code. It's returned
>to the caller by virtue of the fact that it is a
>parameter passed by
>reference.
>
>Gary Guthrie
_______________________________________________
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.