RE: Help I keep getting RNF5343 -- RPG400-L

Thanks for your help and the tip I allways forget the UpperCasse.

 But sorry it didn't work.

Best regards.
_____________________________________
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




"Bob Cozzi" <cozzi@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09-03-2005 16:42
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


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.




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