call usrcod(userid)
USRCOD returns the userid that a program is running under.
Copyright © 1996, Thinkage Ltd.