Powerbuilder 6.0 - Password attemp and lock

[fathee]

Hi all,

this code is for check login was valid or not. My question is how to add in for 3 attempt failed and system will lock duration for 30minutes. Kindly help me to give a sample.

Thanks.
----------------------------------------------------------------------------------------------------------------------
// Check whether login user is valid
IF gnv_app.Uf_Verify_Login(gnv_app.is_userid , ls_enterlogpass_enc) <> 1 THEN
MessageBox("Login Error", "Invalid Login ID or Password", StopSign!)
dw_1.SetFocus()
RETURN -1
END IF
// Check User Account whether has been expired.
IF gnv_app.Uf_Is_ActiveUser(gnv_app.is_userid) = FALSE THEN
MessageBox("Access Denied" , "Your account has been inactive.")
dw_1.SetFocus()
RETURN -1
END IF