Re: Scope of variables and subprocedures.

["Scott Klement" <infosys@xxxxxxxxxxxx>]

Jim Langston <jlangston@conexfreight.com> wrote:
>
> The one thing I would like to see is true functions, such as the
>  %BIFs, that return a value.
>
> This may already be the case, but I've yet to find out how to code i
> (V3R7M0) and is probably just a limitation on my OS version.

You should be able to return a value with a subprocedure.  This
support began in V3R2, so you should be able to do it at your
version.

Or isn't that what you mean?

example:

     D do_add          PR            10I 0
     D   parm1                       10I 0 value
     D   parm2                       10I 0 value

     D Result          S              7P 0

     C                   eval      Result = do_add(25: 31)
     c                   dsply                   Result
     c                   eval      *inlr = *on

     P do_add          B
     D do_add          PI            10I 0
     D   parm1                       10I 0 value
     D   parm2                       10I 0 value
     C                   return    (parm1 + parm2)
     P                 E

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---