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.