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.