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