× 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.



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 thread ...

Follow-Ups:

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.