LOL! Now, now John. Let's not get carried away here. I hate to be the next person to debug your app if you really write production code like that. Although it's very, very tight, debugging's got to be an adventure! :))

(P.S. This is not in any way my opinion about your coding style, which I have no idea)

>Hi John ---
>
>Yes, I know about the tag switch in SEEK, but I thought it might make the code less obvious; better to show the ORDER clause in the use so it'd be readily apparent....sort of a difference between tutorial code and production code. If this was production code it might be:

>
>USE userlist
>RETU SEEK(SUBS(SYS(0),AT("#",SYS(0)),2,15),"userlist","username")

It's "my" world.  You're just living in it.