DEFINE INPUT PARAMETER ipUserID AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER ipPassword AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER ipAppInfo AS CHARACTER NO-UNDO. /* Check user record exists */ FIND FIRST usr_mstr WHERE usr_mstr.usr_userid = ipUserID NO-LOCK NO-ERROR. IF NOT AVAILABLE usr_mstr THEN RETURN ERROR. /* Check password */ IF usr_mstr.usr_passwd <> ENCODE(ippassword) THEN RETURN ERROR. DEFINE VARIABLE cPrimaryDomain AS CHARACTER NO-UNDO. FIND FIRST udd_det WHERE udd_det.udd_userid = ipUserID /*AND udd_det.udd_primary = TRUE */ NO-LOCK NO-ERROR. IF AVAILABLE udd_det THEN cPRimaryDomain = udd_det.udd_domain. SESSION:SERVER-CONNECTION-CONTEXT = ipUserID + "," + cPrimaryDomain + "," + usr_mstr.usr_addr + "," + usr_mstr.usr_lang + "," + usr_mstr.usr_site.