How to search?

[Felix Theissen]

Many thanks for the anwsers and suggestion,
after searching in the documentation I had
already found a solution using lineOffset:

   global LinesToSkip
   global oldTextToFind
   put bkgnd field "FindName" into TextToFind
   if oldTextToFind <> TextToFind then
     put 0 into LinesToSkip
     put TextToFind into oldTextToFind
   end if

   put LineOffset (TextToFind, fld "Adressen", LinesToSkip) into Zeile
   if Zeile <> 0 then
   add LinesToSkip to Zeile

   put Zeile into LinesToSkip

   select line Zeile of fld "Adressen"

    else
     put 0 into LinesToSkip
   end if

- Felix