RE: Problem using tlookup bif

Hi all,

The idea that the entry was not in the table was correct. Even though I was staring at the entry in my source, it was not really there.
I looked at the compiler listing (something I should have done before posting) and this is what I found :

Translated from French by me, so the messages may not be the same as you are used to seeing.

D a t a c h a r g e d a t c o m p i l a t i o n
4289 ** TABERA / TABERF (code retour / libellé erreur).
*--------------------------------------------------------------------*
* Array . . . : MY_ARRAY *
*--------------------------------------------------------------------*
4290 0001Text table taberf
4291 0002etc, etc
*--------------------------------------------------------------------*
* Table . . . : TABERA Alternate table. . . . . . : TABERF *
*--------------------------------------------------------------------*
*RNF8043 10 3306 015600 No source record given to initialize the table or array


I had added a copy book member so that I could use standard variables in this old converted RPGIII. I did not realise that a standard array for coding messages was also in that copy book :

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

Had I put the copybook after the table declarations, I think I would have noticed nothing. As it was, the source entries for my 2 tables became the source for MY_ARRAY and my tables were indeed empty.

I apologise for the confusion caused and thank you all for your help.