Question: Did you check whether your file is defined for keyed access?
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Richard
Reeve
Gesendet: Saturday, 05.3 2016 22:55
An: RPG programming on the AS400 / iSeries
Betreff: %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.
midrange.com
