RE: FREE Code: *RNF0312 and *RNF5377 Errors

%fields must use the file field names, unless renamed within the program, 
(NOT OVERLAYED, ETC).  Not only is the field passing a value, but it is 
also telling you what field to update.
DSPMSGD RANGE(RNF7707) MSGF(QDEVTOOLS/QRPGLEMSG)

I bet your fields that begin with 't' aren't in the file either.  Hence 
that is why your original email posted 5 RNF7707 messages - one for the 
array and 4 for the 't' fields.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Peter Vidal" <Peter_Vidal@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/25/2003 09:46 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


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

Fax to

Subject
RE: FREE Code: *RNF0312 and *RNF5377 Errors







This is my file:
FMPSSum    uf a e           k disk

These are my fields in the file:
Field Description           Fld Name    Type   Length Dec  Loc
Bookings Qtr 1              MPBQ1        P       13    2   291
Bookings Qtr 2              MPBQ2        P       13    2   298
Bookings Qtr 3              MPBQ3        P       13    2   305
Bookings Qtr 4              MPBQ4        P       13    2   312

This is my data definition for the array:
 *
 *  Bookings
D                 ds
D MPBQ1                   1     13  2
D MPBQ2                  14     26  2
D MPBQ3                  27     39  2
D MPBQ4                  40     52  2
D MPBQ                    1     52  2 dim(4)

This is the index:
D RunQtr          s              1s 0

In the GLOBAL FIELD REFERENCES part of the compilation:
MPBQ(4)           S(13,2)               118D   1245    1447M   1447
                                       1875    1888

So, at the time I read the file, the fields will be accessible throu the 
array I
have defined.  If you see, statement 1875 is identified as one line where 
this
array is in use.  I just have 14 errors, all of them are related to this 
same
case:

Message Totals:
  Information  (00) . . . . . . . :      709
  Warning      (10) . . . . . . . :        0
  Error        (20) . . . . . . . :       14
  Severe Error (30+)  . . . . . . :        0


Peter Vidal
Pall Aeropower Corp.
SR Programmer Analyst
WWW.Pall.com

"A good player makes himself look good; a great player makes the team look
good."
Author unknown


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