Re: %EOF condition

Folks,
     I've determined that this is a case where the program was setting on an indicator when not found but I was using the %found/%notfound bif.  I removed the indicator and all is well.
      Thanks to all that responded for your willingness to help.  Have a great day! Sincerely,
Richard Reeve

On Monday, March 7, 2016 8:35 AM, Leonid Gruzmark <grleonid@xxxxxxxxx> wrote:


בס"ד
Are U type K for key values to be used to process the file  in File Card
(file description )


On 6 March 2016 at 00:37, Richard Reeve <richreeve@xxxxxxxxx> wrote:

Unfortunately, the system is now down for backups.  I'll get the list as
soon as I can. Sincerely,
Richard Reeve

    On Saturday, March 5, 2016 4:12 PM, Luis Rodriguez <luisro58@xxxxxxxxx>
wrote:


  Richard,

The image didn't show (I believe that the forums filter them).

Regards,

Sent from my Moto G phone. Please excuse my brevity.
On Mar 5, 2016 5:25 PM, "Richard Reeve" <rjrjr64@xxxxxxxxx> wrote:

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.

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



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