*******************************************************************************
*                                                                             *
* Name         : xatchar.prg                                                  *
*                                                                             *
* Description  : This function is used to determine which of the characters   *
*                from mchars parameter is the first to appear in mstring      *
*                                                                             *
* Parameters   : mstring    - (C) The source string                           *
*                   default = [Mandatory]                                     *
*                mchars     - (C) The charset we are interested in            *
*                   default = [Mandatory]                                     *
*                                                                             *
* Returns      : (N) The position of the first occurrence of a character from *
*                mchars in mstring                                            *
*******************************************************************************

parameters mstring, mchars
private mstring, mchars, i, mlen

mlen=len(mstring)
for i=1 to mlen
	if substr(mstring, i, 1)$mchars
		return i
	endif
next i
return 0