× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.