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


  1.  Home
  2. RPG400-L
  3. March 2005

Re: Help I keep getting RNF5343


RNF5343 "Array has too many omitted indexes;.."

It doesn't like AAdres passed to the PSndMsg

Properly, the prototype should accept an array. If you put a dim(100) on PToUsers it should work.

Alternatively you make the parm *varsize and pass a structure instead. This would avoid using an arbitrary dimension value.


Keith




a.perquin@xxxxxxxxxxxxx wrote:
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


C SrA100 BegSr /Free // Doe een call naar de QEzSndMg api CallP PSndMsg('*INFO': '*NORMAL': PMessageText: %Len(%Size(PMessageText)): AAdres: AdresCounter: PMessageSend: PFuncReq: DApiError); /End-Free C EndSr 

Thanks in advance for your time and help.
Best regards,
_____________________________________
H.P.J. Perquin
Ontwikkelaar AS/400
(Netherlands)


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
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.