Main Program
Expand/Collapse source code of procedure Main Program Source Code
LOCAL lcUserLevel

lcUserLevel = oApp.GetUserLevel()
=oApp.Login()

IF oApp.GetUserLevel() <> lcUserLevel
  oApp.DoMenu()
ENDIF