Re: READ for not exact key

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Where's the read at the bottom of the loop? Where's the ENDDO?

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.