DEFINE VARIABLE m_sessionid AS CHARACTER NO-UNDO. DEFINE VARIABLE m_userloginname AS CHARACTER.
DEFINE VARIABLE m_userpassword AS CHARACTER.
/* Set Login Name & Password */
ASSIGN m_userloginname = getSessionAttribute("userloginname") NO-ERROR.
ASSIGN m_userpassword = getSessionAttribute("userpassword") NO-ERROR.
ASSIGN m_sessionid = ENTRY(1, get-field("stateinfo"), "|") NO-ERROR.
IF ENTRY(1, {&stateInfo}, "|") <> m_sessionid THEN
DO:
{&OUT} "<META HTTP-EQUIV='refresh' CONTENT='0;URL=" HostURL AppURL "/login/view_login.p?txt_login_result=" URL-ENCODE('Session Expired, Please Relogin.','') "'>".
END.