|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.