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



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

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.