Re: Maximum Number Of Parms

Robert,

I just looked a bit closer at your examples. I'm old and my eyes play tricks on me many times, but I counted forty [40] parms on your callp, not thirty-nine [39].

* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Robert Munday wrote:

Good morning, class.


I am creating new programs in /FREE based upon fixed format programs currently in production. I have an external program call with 39 parms. It works in fixed format (it must... it's in production), but when I do the same thing in /FREE, I get:

*RNF5407 20 More parameters were passed in the prototyped call than are allowed.


Here is the code:

* PFS - Loan Rates Calculation D PFM202R PR ExtPgm('PFM202R') Loan Rates Calc D PFM001 Like(@pfinco) Finance Company D PFM002 Like(ppplst) Policy State D PFM003 Like(@plan) Plan D PFM004 Like(@pfspmt) Payments D PFM005 Like(@pfsefdt) Effective Date .....
D PFM037 Like(@drvs) Number Of Drivers
D PFM038 Like(@charge_acq#) Charge Aquisition
D PFM039 Like(@NRtype)

// PFS - Loan Rates Calculation CallP PFM202R(@pfinco :ppplst :@plan :@pfspmt :@pfsefdt :@pfsfrmla :@pfscalc :@pfstype :@pfsoper :@pfspm1 :@pfspm2 :@pfspm3 :@pfspm4 :@pfspm5 :@pfspm6 :@pfspm7 :@pfspm8 :@pfspm9 :@pfspm10 :@pfspm11 :@pfspm12 :@pfspm13 :@pfspm14 :@pfspm15 :@pfspm16 :@pfspm17 :@pfspm18 :@pfspm19 :@pfspm20 :@pfspm21 :@pfspm22 :@pfspm23 :@pfsapr :@pfstotal :@dfdwpp :@ppirat :@drvs :@charge_acq# :@conr :@NRtype); // PFS - Loan Rates Calculation


Where am I going wrong? What's the solution? How many parms can I pass?

Thanks,


Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Nashville, TN