Justok,

Below is you code fixed so it works with any datatype and the macros are removed.

* at main.prg
procedure flocate
Lparameters pValue, pFieldName
ID EMPTY(pFieldName)
   lFieldName = FIELD(1)  && Take Current Alias first columname
ELSE
   lFieldName = pFieldName
ENDIF

Locate For Upper(lFieldName) = Upper(pValue)

RETURN FOUND()

It is also nice to return a vlaue that tells the caller if anything was found or not.