Looks simple to me: you pass 40 parameters (yes, I did count them) and
you define 39 in the prototype....
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Munday
Sent: dinsdag 30 oktober 2007 16:26
To: RPG400
Subject: Maximum Number Of Parms
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
--
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.
This e-mail and any attachment is for authorised use by the intended recipient(s) only. It may contain proprietary material, confidential information and/or be subject to legal privilege. It should not be copied, disclosed to, retained or used by, any other party. If you are not an intended recipient then please promptly delete this e-mail and any attachment and all copies and inform the sender. Thank you.
midrange.com
