LSTRSEARCH

Several versions of Uniface have difficulty searching long strings. This routine provides a fast replacement function for finding any string within another.

$10 = the_string_to_search_for
length(data_to_be_searched)
$11=$result
$12=(data_to_be_searched)
perform "_lstrsearch"
if ($status < 0) done
if ($13 != "")
  return $number($13)
else
  return 0
endif