Abap ,SAP Kullanıcı Şifre Doğrulama Fonksiyonu

call function ‘SUSR_LOGIN_CHECK_RFC’
EXPORTING
BNAME = SY-UNAME
PASSWORD = ‘87654321’
* XBCODE =
* XCODVN =
* USE_NEW_EXCEPTION = 0
EXCEPTIONS
WAIT = 1
USER_LOCKED = 2
USER_NOT_ACTIVE = 3
PASSWORD_EXPIRED = 4
WRONG_PASSWORD = 5
NO_CHECK_FOR_THIS_USER = 6
PASSWORD_ATTEMPTS_LIMITED = 7
INTERNAL_ERROR = 8
OTHERS = 9
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
write sy-subrc.
else.
MESSAGE ‘Şifre Doğru’ TYPE ‘S’.
endif.