RE: Parameter Procedure return value in the parm list

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Kurt,

The CONST and VALUE keywords tell you a parm is input-only.  Thus, the lack of 
either of those tells you that the parm could be changed.

There is no way to show that a parm will always be changed or that the parm is 
only used for output instead of input/output.

This is one reason I try to make all params input only and use a return value 
for the results of my procedures.

If you can't use a return value, make sure that the appropriate names are 
chosen for the procedure and its parms so that it is obvious that values are 
returned in the parms.  For instance, the names chosen in your example are very 
poor IMHO.  But with names like so:

d CalcTax    pr
d  orderAmt     9p 2   value
d  taxAmt       9p 2

It is obvious that the taxAmt parm is used to return a value.

HTH,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Kurt Anderson
> Sent: Thursday, April 21, 2005 2: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.
> 
>