|
Now i am feeling like a complete moron. Thanks for help everybody. Martin.Saunders@capgemini.co.uk@midrange.com on 05/04/2001 07:17:17 AM Please respond to RPG400-L@midrange.com Sent by: owner-rpg400-l@midrange.com To: RPG400-L@midrange.com cc: Subject: RE: Prototype: multiple parameters. It looks like it doesn't like the hyphen at the end of the first line of parameters. Try it without the hyphen. HTH Martin -----Original Message----- From: Slava Zharichenko [mailto:Slava.Zharichenko@exel.com] Sent: 4 May 2001 12:55 To: RPG400-L@midrange.com Subject: Re: Prototype: multiple parameters. Here is full info: It does not like something about having parameters on 2 lines. I change Callp to have either 4 or 5 parms on the first line and getting different errors: 0362.01 C Callp SbmJob(#EINID: #ECMD:F3MTYP:F3MCTLN:$JobT: - 0362.02 C $Eff:$Eft:$Efa:$Elogl:$Msg) *RNF7536 30 524 036201 The type of parameter 6 specified for the call does not match the prototype. *RNF7086 00 145 000013 RPG handles blocking for file FTPHLOGP. INFDS is updated only when blocks of data are transferred. 0362.01 C Callp SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN: - 0362.02 C $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg) *RNF7536 30 524 036201 The type of parameter 5 specified for the call does not match the prototype. *RNF7086 00 145 000013 RPG handles blocking for file FTPHLOGP. INFDS is updated only when blocks of data are transferred. 020.07 D #EINID 10A 020.08 D #ECMD 10A 45.00 D $MSG S 512A 46.00 D $EFf S 128A 47.00 D $EFt S 128A 48.00 D $ELogl S 10A 49.00 D $EFa S 10A 50.00 D $Scan S 20A 51.00 D $X S 2S 0 52.00 D $JobT S 2A 0362.01 C Callp SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN: - 0362.02 C $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg) > > *Prototype for precedure SbmJob > D SbmJob PR > D #Einid 10A Value > D #ECmd 10A Value > D #EMTyp 1A Value > D #EMCtln 10S 0 Value > D #EType 2A Value > D #EFileFr 128A Value > D #EFileTo 128A Value > D #EMbrArc 10A Value > D #ELog 10A Value > D #EMSG 512A Value pcdow@yahoo.com@midrange.com on 05/03/2001 11:49:16 PM Please respond to RPG400-L@midrange.com Sent by: owner-rpg400-l@midrange.com To: RPG400-L@midrange.com cc: Subject: Re: Prototype: multiple parameters. Hi Slava, You didn't quite give us enough information. The error is telling you that the type of $JobT (job type?) doesn't match the 5th parameter in the prototpe, i.e. 2A. If $JobT is job type, as defined on the RTVJOBA command, it's only 1A. That's the beauty of prototypes -- they catch this kind of error at compile time, not run time. hth, Peter Dow Dow Software Services, Inc. 909 425-0194 voice 909 425-0196 fax ----- Original Message ----- From: "Slava Zharichenko" <Slava.Zharichenko@exel.com> To: <RPG400-L@midrange.com> Sent: Thursday, May 03, 2001 11:21 AM Subject: Prototype: multiple parameters. > > Looks like i am stuck with prototype call which passing 10 parameters. > 524 C Callp SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN: - > 525 C $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg) > 526 C ENDSR > > > *RNF7421 30 525 036202 Operands are not compatible with the type of > operator. > *RNF7536 30 524 036201 The type of parameter 5 specified for the call > does not > match the prototype. > > what i am missing??? > > *Prototype for precedure SbmJob > D SbmJob PR > D #Einid 10A Value > D #ECmd 10A Value > D #EMTyp 1A Value > D #EMCtln 10S 0 Value > D #EType 2A Value > D #EFileFr 128A Value > D #EFileTo 128A Value > D #EMbrArc 10A Value > D #ELog 10A Value > D #EMSG 512A Value > ****************** End of data ***************** > > > > ______________________________________________________________________ > Important Email Information > > The information in this email is confidential and may be legally > privileged. It is intended solely for the addressee. Access to this email > by anyone else is unauthorized. If you are not the intended recipient, any > disclosure, copying, distribution or any action taken or omitted to be > taken in reliance on it, is prohibited and may be unlawful. If you are not > the intended addressee please contact the sender and dispose of this > e-mail. > > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: david@midrange.com > +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ______________________________________________________________________ Important Email Information The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access to this email by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it, is prohibited and may be unlawful. If you are not the intended addressee please contact the sender and dispose of this e-mail. +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ______________________________________________________________________ Important Email Information The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access to this email by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it, is prohibited and may be unlawful. If you are not the intended addressee please contact the sender and dispose of this e-mail. +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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.
midrange.com
