My objective is to call a legacy program in free form and return a value.
This code snippet is a classic example of RPG III technique to call a program using a parm list;
...
Call 'ECM901B'
Parm wBatchParm
Parm wParmList
Parm wSelList
...
The wSelList returns a value.
Can this be accomplished in RPG/LE free form without modifying the ECM901b program?
If so, how?
Here is what I have tried in free from, but get error message :
*RNF5407 20 3 More parameters were passed in the prototyped call than are allowed.
...
d* Program's Entry List
D ECM901B Pr ExtPgm('ECM901B')
D eBatchParm S 1A
D eParmList S 256A
D eSelList S 256A
...
ECM901B(wBatchParm:wParmList:wSelList) ;
Thank you for any help!
This code snippet is a classic example of RPG III technique to call a program using a parm list;
...
Call 'ECM901B'
Parm wBatchParm
Parm wParmList
Parm wSelList
...
The wSelList returns a value.
Can this be accomplished in RPG/LE free form without modifying the ECM901b program?
If so, how?
Here is what I have tried in free from, but get error message :
*RNF5407 20 3 More parameters were passed in the prototyped call than are allowed.
...
d* Program's Entry List
D ECM901B Pr ExtPgm('ECM901B')
D eBatchParm S 1A
D eParmList S 256A
D eSelList S 256A
...
ECM901B(wBatchParm:wParmList:wSelList) ;
Thank you for any help!
Comment