RE: Help I keep getting RNF5343

[rob@xxxxxxxxx]

Bob,

Message text in Dutch probably wouldn't help.  Try
WRKMSGF MSGF(QDEVTOOLS/*ALL)
12=Work with message descriptions
in front of
QRPGLEMSG

Looks like we're all barking up the wrong tree.
Message ID  Severity  Message Text 
 RNF5343       30     Array has too many omitted indexes; specification i

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Bob Cozzi" <cozzi@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/09/2005 11:02 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Help I keep getting RNF5343






Well I don't know what RNF5343 means--can you post the message text too?
But it is probably a parameter mismatch-- I don't see a description of 
your
API error data structure DApiError but you should initialize it to X'00' 
and
also change the prototype to use OPTION(*VARSIZE) on that parameter.  And 
if
you did not change the program name to upper case, this fix won't help at
runtime.

-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of a.perquin@xxxxxxxxxxxxx
Sent: Wednesday, March 09, 2005 9:47 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Help I keep getting RNF5343

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.



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