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



Can you say Upper/Lower case?
Repeat after me:
"OS/400 object names are always UPPERCASE; Procedure names can be mixed
case, all lower or all upper case."

ExtPgm('QEzSndMg')
Should be: ExtPgm('QEZSNDMG')
-Bob Cozzi



-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of
a.perquin@xxxxxxxxxxxxx
Sent: Wednesday, March 09, 2005 9:12 AM
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  


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)

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

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.