RE: SETLL not working?...must be me

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

%eof doesn't get set by SETLL.

> -----Original Message-----
> From: Booth Martin [mailto:Booth@MartinVT.com]
> Sent: Wednesday, October 17, 2001 2:36 PM
> To: rpg400-l@midrange.com
> Subject: Re: SETLL not working?...must be me
>
>
> Try using the %BIF  %EOF.  I've found it much easier.
> --------------------------------------------
> Booth Martin
> Boothm@Goddard.edu
> 802-454-8315 x235
> --------------------------------------------
> -------Original Message-------
> From: rpg400-l@midrange.com
> Date: Wednesday, October 17, 2001 04:15:56 PM
> To: rpg400-l@midrange.com
> Subject: SETLL not working?...must be me
> i'v stared at this too long now....what am i missing?
> scenario:
> indexed file (JDEdwards F4211LP) with key of:
> account#
> document type
> item#
> date(julian)
> using account# (8,0) for SETLL operation (i.e. partial key)
> key_4211 klist
> kfld a5an8
> Code:
> key_4211 setll i4211
> if not%found(F4211LP)
> (do some stuff here)
> endif
> The code performs as though it FOUND a record, even though i know (and
> DFU confirms it) that there is NO record in the
> file for the selected account number
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>