Hello John.

On a slightly different subject, although I'm sure you already know this (someone might find it useful anyway), the SEEK() takes a third parameter, the index file/tag. Thus, you could do: IF SEEK(cName,"userlist","username") w/o setting the index/tag prehand and switch at will.

The reason I'm mentioning it here is that although I've been using the SEEK() for a long, long time, I overlooked it until few month's ago. I think it made for more compact, readable code.

>Here 'tis ----
>

>USE userlist ORDER username                   && Open the user table
>cName=SUBSTR(SYS(0),AT("#",SYS(0))+2,15)      && Use SYS(0) to get current
>                                              && user network user ID
>IF SEEK(cName,"userlist")                     && If this user is OK
>   RETURN .T.                                 && ...then Return True (OK)
>ELSE
>   RETURN .F.                                 && ...else Return False (Not OK)
>ENDIF
>

>
>> Thanks for you suggestion, but I 'm not 100% understand. So, I would like to suggest me some sample codes which use sys(0).
>> Thanks again for your time.