RE: Procedure parameters error -- RPG400-L

Your prototype in the calling program needs to look like this:

0022.00 D Adm01P          PR            10    ExtProc('Adm01P')
0023.00 D SrcDtl                        35

You forgot to specify the parameter that you are sending into the sub
procedure.  A good way to get around these mistakes are to use /COPY to
bring them in from an external member.

Hope that helps,
Aaron Bartell

-----Original Message-----
From: Deepak Deshpande [mailto:deepak.deshpande@patni.com]
Sent: Tuesday, January 14, 2003 7:03 AM
To: rpg400-l@midrange.com
Subject: Procedure parameters error


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
****************************************

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.