|
Thanks for your help but it didn't work. It add's the error RNF7535 The type and attributes of parameter 7 do not match those of the prototype. Thanks anyway _____________________________________ H.P.J. Perquin Ontwikkelaar AS/400 Boal Beheer B.V. De Hondert Margen 12 2678 AC De Lier Tel. +31 (0)174 527297, Fax +31 (0)174 527264 Panieklijn Tel. +31 (0)612854010 "Barton, Mike" <Mike.Barton@xxxxxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09-03-2005 16:36 Please respond to RPG programming on the AS400 / iSeries To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> cc: Subject: RE: Help I keep getting RNF5343 Hi this is apparantly one of the commonest errors when using API's and regularly crops up on this list :) Where u have defined the fields as 4B 0, try defining them as 10i 0. HTH Mike -----Original Message----- From: a.perquin@xxxxxxxxxxxxx [mailto:a.perquin@xxxxxxxxxxxxx] Sent: 09 March 2005 15:12 To: rpg400-l@xxxxxxxxxxxx Subject: Help I keep getting RNF5343 Hello can some one please tell me what i'm doing wrong? I keep getting RNF5343 on my compiler listing. *========================================================================= * Array declaraties *========================================================================= DAAdres S 10A Dim(100) DPSndMsg PR ExtPgm('QEzSndMg') D PMessageType 10 Const I) *INFO of *INQ D PDeliveryMode 10 Const I) *BREAK *NORMAL D PMessageText 512 Const I) Message text D PMessageLength 4B 0 Const I) Message length D PToUsers 10 Const I) Profile *All *AllAct D PNumberOfUsers 4B 0 Const I) Number of users D PMessageSend 4B 0 O) 0=No 1=One or more D PFuncReq 4B 0 O) -4=F3 -8=F12 0=no display D PErrorCode 100 O) DApiError *========================================================================= * Variabelen declaratie *========================================================================= D AdresCounter S 3 0 Inz(0) D PMessageText S 512A D PMessageSend S 4B 0 D PFuncReq S 4B 0 ########################################### This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange. For more information, connect to http://www.F-Secure.com/ ********************************************************************** This communication and the information it contains: - (a) Is intended for the person(s) or organisation(s) named above and for no other person(s) or organisation(s). Access to this mail by anyone else is unauthorised. (b) Is confidential, and may be legally privileged or otherwise protected in law. Unauthorised use, circulation, copying or disclosure of any part of this communication may be unlawful. (c) May be susceptible to interference, and should not be assumed that it has come in its original form and/or from the stated sender or PinkRoccade UK accepts no responsibility for information, errors or omissions in this e-mail or use or misuse thereof or any act done or omitted to be done in connection with this communication. If you are not the intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx immediately and delete it and all copies from your system. www.pinkroccade.co.uk ********************************************************************** -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
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.