You're right - 'Return' will exit the program so you do want *INLR turned on
first.
Paul
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Jerry C. Adams
Sent: Saturday, June 22, 2013 6:58 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: Prototype returning more than one value.
I always issue RETURN *after* setting on Last Record. In the example below
LR will never be set on, thought the activation group may be reclaimed,
etc., later - but not by this program. Or have I been doing it wrong (a
*very* good possibility, mind you) all of these years?
Jerry C. Adams
IBM i Programmer/Analyst
No good deed shall go unpunished. -Dorothy Parker
--
Home Office: 615-832-2730
email: midrange@xxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of paultherrien@xxxxxxxxxxxxxxxxxx
Sent: Saturday, June 22, 2013 12:11 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: Prototype returning more than one value.
Example of using return to return a division name for a know division
// ...................... Prototype
D GETDIVNAME PR 30
D 2
// ....................... Procedure interface
D GETDIVNAME PI 30
D pDiv like(DIV)
// ....................... Mainline
/FREE
// fill DIV & DIVNAME for return
DIV = '11';
DIVNAME = 'Division Name';
return DIVNAME;
*inlr = *on;
In your calling program you would have code like this:
/free
DivisionName = GETDIVNAME(pdiv);
/end-free
Paul Therrien
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Booth Martin
Sent: Saturday, June 22, 2013 11:50 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Prototype returning more than one value.
Here is the code piece:
// ...................... Prototype
D GETDIVR PR
D 2
D 30
// ....................... Procedure interface
D GETDIVR PI
D pDiv like(DIV)
D pDivName like(DIVNAME)
// ....................... Mainline
C* *ENTRY PLIST
C* PARM DIV 2
C* PARM DIVNAME 30
/FREE
// fill DIV & DIVNAME for return
DIV = '11';
DIVNAME = 'Division Name';
return DIV;
return DIVNAME;
*inlr = *on;
I am only really interested in the values being returned. (This is replacing
3 lines of *ENTRY/PLIST code. There is no new functionality
here.)
On 6/22/2013 7:14 AM, Vernon Hamberg wrote:
hi Booth
When you pass parameters, it can be no different than it always has
been - a change in the called program is seen in the caller, as you
expect.
Things CAN be different if you declare parameters by VALUE or even
CONST. You probably should not be using either of these if modifying
existing stuff to replace *ENTRY PLIST.
That's not really what I think of when you say "return" - that would
be a return value and is specified on the PR/PI line. Only procedures
can return something, not programs - same as always.
If you're changing an existing program, be sure the variable and
parameter names are right, that you are actually putting a value into
both parameters.
Also, be sure lengths and types are the same.
Maybe you can show us your prototype.
HTH
Vern
On 6/22/2013 12:57 AM, Booth Martin wrote:
So I am learning more about prototypes and procedure interfaces and
replacing *ENTRY/PLIST. This is more confusing then I expected.
Here is the scenario:
I have PROGA which has 2 fields to populate; ID# & description.
I have PROGB which displays a subfile of the ID#s and descriptions.
PROGA has a line of code: PROGB(ID#: DESC);
Everything appears to me to be working as desired except that I can
not get the two field's values returned.
It appears to me that I can only return one value. That can't be
right. I must be taking a wrong turn somewhere.
--
Booth Martin
802-461-5349
http://www.martinvt.com
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
