|
midrange.com
hi all,
what does this opcode POST does?..
kindly help me
Murali
> -----Original Message-----
> From: Bartell, Aaron L. (TC) [SMTP:ALBartell@taylorcorp.com]
> Sent: Tuesday, January 14, 2003 8:01 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Procedure parameters error
>
> 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.
> _______________________________________________
> 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.
WARNING: The information in this message is confidential and may be legally
privileged. It is intended solely for the addressee. Access to this message
by anyone else is unauthorised. If you are not the intended recipient, any
disclosure, copying, or distribution of the message, or any action or
omission taken by you in reliance on it, is prohibited and may be unlawful.
Please immediately contact the sender if you have received this message in
error. Thank you.
As an Amazon Associate we earn from qualifying purchases.
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.
