RE: Problem using tlookup bif

in your original lookup code where is the indicator placed? are you
looking for an exact match, or just less than or greater than. if you
aren't doing an equal lookup you need to use one of the other versions
%TLOOKUPxx.



From:
"Dennis Lovelady" <iseries@xxxxxxxxxxxx>
To:
"'RPG programming on the IBM i / System i'" <rpg400-l@xxxxxxxxxxxx>
Date:
12/16/2010 09:32 AM
Subject:
RE: Problem using tlookup bif
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



Anyway it looks like these things don't apply to you since you are using
TAB* names (which means tables, not arrays), and not using the %TLOOKUPxx
BIFs. I don't see anything wrong, so I wonder if the entry is actually in
the table?

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"A diplomat is a man who always remembers a woman's birthday but never
remembers her age."
-- Robert Frost

Thanks, but I don't remember ever coding ASCEND. Surely that is
implicit?

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Luis Rodriguez
Envoyé : jeudi 16 décembre 2010 14:46
À : RPG programming on the IBM i / System i
Objet : Re: Problem using tlookup bif

As per my (V5R3) ILE RPG ref. manual:

"Note: Unlike the LOOKUP operation code, %TLOOKUP applies
only to tables. To look up a value in an array, use the
%LOOKUP built-in function.

The %TLOOKUPxx builtin functions use a binary search for
sequenced tables (tables that have the ASCEND or DESCEND
keyword specified)."

Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--



On Thu, Dec 16, 2010 at 9:14 AM, Luis Rodriguez
<luisro58@xxxxxxxxx> wrote:

David,

Are you sure that your data is already ordered?

Regards,

Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--




On Thu, Dec 16, 2010 at 6:48 AM, David FOXWELL

<David.FOXWELL@xxxxxxxxx>wrote:

Hi all.

I rarely use this bif, and it shows!


In an old converted RPGIII, I have :

D TABERA S 4 DIM(99) CTDATA PERRCD(1)
D TABERF S 76 DIM(99) ALT(TABERA)

** TABERA / TABERF (code retour / libellé erreur).
0001Text table taberf
0002etc, etc

An operation is already coded so :
C '0001' LOOKUP TABERA TABERF

10

I'm adding a procedure, in which I've written :

IF %TLOOKUP ( '0001' : TABERA : TABERF );
// Do mystuff
ENDIF;

MyStuff isn't being done :-(
What's wrong?
--
This is the RPG programming on the IBM i / System i (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.

--
This is the RPG programming on the IBM i / System i
(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.

--
This is the RPG programming on the IBM i / System i (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.