RE: SETLL not working?...(GOT IT..THANKS ALL)

["Graves, Chuck" <cgraves@xxxxxxxxxxxxxx>]

I have been working off a sheet from
(http://rpgiv.com/kb/built-ins.html) that says that %found is what i
want, but %equal works...thanks


-----Original Message-----
From: Scott Mildenberger [mailto:Smildenber@Washcorp.com]
Sent: Wednesday, October 17, 2001 1:07 PM
To: 'rpg400-l@midrange.com'
Subject: RE: SETLL not working?...must be me


On a SETLL, %found means that the search argument is greater than the
highest key or relative record number in the file.  You probably want
%equal
but I recommend you look at the reference manual and make sure you get
the
bif that does what you want.

Scott Mildenberger

> -----Original Message-----
> From: Graves, Chuck [mailto:cgraves@roddapaint.com]
> Sent: Wednesday, October 17, 2001 2:15 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.