Re: READ for not exact key

[Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx>]

What I want to do is process all the order# lines.
I am getting the order# from previous step. From header.

Now here I want to read all order lines. But its doing only 1 time.

  pol           setll     srbpol
                   if        %equal
                   dou       %eof
     pol           reade     srbpol
     ohords        iflt      30
                   eval      ohsrom = svsrom
                   eval      ohsrom = whs
                   eval      oloqty = svqty
                   eval      olline = svline
                   update    orppl
*now take this line item and qty and update warehouse balances
                   eval      item = olprdc
                   exsr      step2
                   endif
                   enddo
                   endif
*


pol
( I remove the orderline from ths klist because I wont be getting that from
the previous read which is the
order header)

c     pol           klist
c* Production order:Ord no:  Ord line:
c                   kfld                    prod
c                   kfld                    ohorno           1200
c*                  kfld                    lline             500

On Tue, Mar 8, 2016 at 3:53 PM, Roche, Bob <broche@xxxxxxxxxxxxxxxxx> wrote:

> I will say first I am in the SETLL READ DOW group.
> From what I remember SETLL does not set %EOF. %EOF Without a file
> designator uses last file read, in this case we don't have enough code to
> know the file it is referencing. So the DOU %EOF has no reference on the
> first pass. This coding made more sense with indicators because you can set
> the indicator before entering your loop. You cannot in the program set %EOF.
>
> Of course if I'm wrong about SETLL and %EOF this email was a waste.
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Hoteltravelfundotcom
> Sent: Tuesday, March 08, 2016 2:00 PM
> To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
> Subject: READ for not exact key
>
>  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.
> --
> 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.