× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello,

I have one RPGLE program calling one procedure. I am passing 4 PARM thru a
DS. I am getting following compile error.

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

Can anybody help me?
Thanx in advance.
Deepak


Here I replicate the code of procedure ADM01P.

 SEU==>
ADM01P
        *************** Beginning of data
*************************************
0001.00 H NoMain
0002.00 H*--------------------------------------------------------------*
0005.00 D SrcDtl          DS
0006.00 D PProj                   1      5
0007.00 D PSorc                   6     15
0008.00 D PType                  16     25
0009.00 D PAttr                  26     35
0010.00 D* Prototype for Adm01P
0011.00 D Adm01p          PR            10    ExtProc('Adm01P')
0012.00 D SrcDtl                        35
0017.00 D*--------------------------------------------------------------*
0018.00 P* Beginning of Procedure
0019.00 P Adm01P          B                   Export
0020.00 P*--------------------------------------------------------------*
0021.00 D* Procedure Interface
0022.00 D Adm01P          PI            10
0023.00 D SrcDtl                        35
0028.00 D QQSrcPF         S             10
0029.00 D*--------------------------------------------------------------*
************ Some code
0043.00 C                   Return    QQSrcPF
0044.00 C*--------------------------------------------------------------*
0045.00 P                 E
        ****************** End of data
****************************************


Here is the RPGLE program.

 SEU==>
ADM01R
        *************** Beginning of data
*************************************
0032.00 D* Prototype for procedure GetSrcPF
0033.00 D QQSrcPF         S             10
0034.00 D Adm01P          PR            35
0035.00 D SrcDtl          DS
0036.00 D PProj                   1      5
0037.00 D PSorc                   6     15
0038.00 D PType                  16     25
0039.00 D PAttr                  26     35

0280.00 C* Call procedure GetSrcPF to get SOurce file name
0281.00 C                   Eval      PProj = QTRPRJD
0282.00 C                   Eval      PSorc = QTRSRCD
0283.00 C                   Eval      PType = QTRTYPD
0284.00 C                   Eval      PAttr = QTRATRD
0285.00 C                   Eval      QQSrcPF = Adm01P(SrcDtl)

        ****************** End of data
****************************************


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.