RE: Parameter Procedure return value in the parm list

["Mike Tobey" <Mike.Tobey@xxxxxxxxxxxxxxxxx>]

Hi Kurt,

If I understand your question, you are looking for a way to identify parameters 
that return a value without having to look at the prototype or a data structure 
definition of a single return value.  In other words, you want the coding of 
the call to the procedure tell you what values are returned and not have to 
look anywhere else.

If that is your question, then name the fields that hold return values in a way 
that you know they are return values.  Using your example, dtrAmount( order : 
RtnAmt1 : RtnAmt2 ), how you name the fields is up to you.   

I hope this helps.

Michael Tobey
Applications Analyst
Foremost Farms USA (Fluid Division)
mike.tobey@xxxxxxxxxxxxxxxxx
IBM Certified Specialist 
RPG IV Programmer & Developer


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Kurt Anderson
Sent: Thursday, April 21, 2005 1:24 PM
To: RPG programming on the AS400 / iSeries
Subject: Parameter Procedure return value in the parm list


Hi,
 
I'm wondering if there's a way to code a prototyped call and be able to
signify that a parameter will have a value returned to it.
For example...
 
(all code is typed in, not copy/pasted, so columns will be off)
 
D dtrAmount   PR
D   order                 7   0   const
D   amt1                 9P 2
D   amt2                 9P 2
 
If I have the following statement buried in the code, I can write a
comment to say that amt1 and amt2 will have values returned, but I'd
rather have the code itself tell me.
 
dtrAmount( order : amt1 : amt2 )
 
I'm wondering if there's something like the below statement that makes
the parameters that will have values returned to them stand out.
 
dtrAmount( order : &amt1 : &amt2 )
 
 
Thanks,
 
Kurt Anderson
Application Developer
Highsmith Inc.
W5527 State Road 106, P.O. Box 800
Fort Atkinson, WI 53538-0800
TEL (920) 563-9571  FAX (920) 563-7395
EMAIL kjanderson@xxxxxxxxxxxxx
 
-- 
This is the RPG programming on the AS400 / 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.