Help I keep getting RNF5343

[a.perquin@xxxxxxxxxxxxx]

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)