Could it be that you are searching 3 fields (KLIST) but only specifying 2.
There should only be 2 fields in your KList. The system cannot find a
record with a blank third field in the key so it turns on EOF.
Rich
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Richard
Reeve
Sent: Saturday, March 05, 2016 2:55 PM
To: RPG programming on the AS400 / iSeries
Subject: %EOF condition
All,
I have a program that is doing a SETLL and READE and I'm always getting
an EOF condition. The key structure in the program is a partial key but
it's SZMCU = 3201 and SZPSN = 3568. The READE is always returning an %EOF
condition but shouldn't be based on the key and the data below.
[image: Inline image]
Here is a snippet of the code.....
C K47037 KLIST
C KFLD UP1BP
C KFLD BATCHN
C KFLD EDSPX
C MOVE *OFF *IN53
C K47037 SETLL F470371_7
C DOW NOT %EOF(F470371_7)
C K47037 READE F470371_7
C IF %EOF(F470371_7)
C LEAVE
C Endif
Any ideas as to why I'm always getting an %EOF condition?
Thanks for any advise that you might have.
Rich
--
This is the RPG programming on the IBM i (AS/400 and 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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2016.0.7442 / Virus Database: 4537/11754 - Release Date: 03/05/16
midrange.com
