Re: Problem using tlookup bif

It seems that it must be coded explicitly. Again, my V5R3 manual states
that:

"A sequence (ascending or descending) *must *be specified if the LOOKUP
operation, %LOOKUPxx built-in, or %TLOOKUPxx built-in is used to search an
array or table for an entry to determine whether the entry is high or low
compared to the search argument."

(emphasis is mine)

Regards,

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



On Thu, Dec 16, 2010 at 10:26 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

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.