RE: Returning values with a procedure

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

I would probably recommend making that into two procedures.  CanadianDuty and CanadianTariff.  They are clearly distinct functions in their own right.  However, I imagine that this is a question of code efficiency, and that you prefer to derive both values in a single pass.  

Returning a DS containing multiple values *might* be ok, except that this adds complexity and overhead to your logic, requiring you to decode the individual values.

Easiest of all is to simply add two out parms to your PR and not make use of the return value features...
   c                callp   CanadianDuty(parm1: parm2: parm3: 
                                         outCanDuty :outCanTariff)

hth,
Eric DeLong

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Booth Martin
Sent: Wednesday, May 21, 2008 10:12 AM
To: Midrange Systems Technical Discussion
Subject: Returning values with a procedure


Returning values with a procedure.

This is probably simple but I have never done it and can't find an 
example of how to do it.  I have an application that looks to me like it 
should use procedures that will return values.  Here is an example of 
what I'd like to do:

   c                eval    Duty = CanadianDuty(parm1: parm2: parm3)

and the procedure CanadianDuty would have 3 parameters as input and 
return the value of the duty.

I believe I can do that process, but I *know* I have no idea how to do 
the same thing where I need  to return 2 values, say "Duty" and 
"Tariff".  I am sure this solution would be wrong!  :)

   c                eval    Duty = CanadianDuty(parm1: parm2: parm3)
   c                eval    Tariff = CanadianDuty(parm1: parm2: parm3)

and this would also be wrong:

   c                eval    Duty:Tariff  = CanadianDuty(parm1: parm2: parm3)

Any pointers would be appreciated.  Thanks.