Re: READ for not exact key

[Michael Schutte <mschutte369@xxxxxxxxx>]

I'm beginning to understand that RPG may be foreign to you.  :-)

But you need to provide more information.  What's going on in the rest of
your loop that you choose to leave off?

The %EoF built in function will check the status for the last file read.
So if you've read another file after srbpol, and if it hit end of file,
then yes your DOU loop will end prematurely.

That being said you have a flaw in this code.

A Do Until will always execute the do loop at least one time.  What happens
if on that first read of SRBPOL hits end of file?  Where's your leave to
make sure that do not execute the rest of the loop?

If you have reads going on to other files, you need to put the file name in
the EoF built in function.   This needs to be the filename in the FSPECS
that you are reading. It may be easier for you to make it a habit to always
put the file name in the %EoF function.

pol           setll     srbpol
              if        %equal
              dou       %eof(srbpol)
pol           reade     srbpol
              if        %eof(srbpol)  // you need this to leave when eof is
hit.
              Leave
              endif
ohords        iflt      30
              eval      ohsrom = svsrom
              endif
              enddo
              endif



On Tue, Mar 8, 2016 at 3:00 PM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

>  pol           setll     srbpol
>                if        %equal
>                dou       %eof
>  pol           reade     srbpol
>  ohords        iflt      30
>                eval      ohsrom = svsrom
>
>
> Pol = order#
>
>
> actual key of file is
>
> order#
> orderline
>
> when running I am only getting one read. Is that correct?
>
> the thing is, I dont have order lines from the previous file read that
> header where I get the order#/.
>
> Do I create my own order line values? or should this be working.
> --
> 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.