RE: Problem using tlookup bif

The manual refers to both kinds of lookups. The kind that David is using is
not of the %TLOOKUPxx set, the nearest I can determine. The %TLOOKUP BIF
works by comparing each value starting with 1 and ending when a match is
found or the end of the table is reached. Sequence is immaterial. Or at
least that's the way it was the first 35 years or so of the language.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"A diplomat is a person who can tell you to go to hell in such a way that
you actually look forward to the trip."
-- Caskie Stinnett

David is using %TLOOKUP (exact match). As I see it (and, of course, I
may be
wrong), the manual's comments refer to both types of op codes (%TLOOKUP
and
%TLOOKUPxx).

Regards,

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



On Thu, Dec 16, 2010 at 10:48 AM, Dennis Lovelady
<iseries@xxxxxxxxxxxx>wrote:

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.

--
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.