SAP LOGON DATA CHECK

最新推荐文章于 2024-12-03 14:34:21 发布

weixin_30416497

最新推荐文章于 2024-12-03 14:34:21 发布

阅读量283

点赞数 1

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sapSB/p/6196248.html

本文介绍了一种SAP系统的登录验证方法，通过自定义函数ZUSER_CHECK_LOGON_DATA实现对用户名和密码的有效性检查，并提供了详细的ABAP代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

之前有朋友做过RFC登录验证，后来群里又有很多人问SAP的登录验证函数。

后来自己找找了，看看了，然后改写了一个LOGON DATA CHECK。。。

FUNCTION ZUSER_CHECK_LOGON_DATA.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(BNAME) LIKE  RSYST-BNAME DEFAULT SY-UNAME
*"     VALUE(PASSWORD) LIKE  RSYST-BCODE OPTIONAL
*"  EXPORTING
*"     VALUE(MESSAGE) TYPE  STRING
*"----------------------------------------------------------------------
  DATA: PWDSTATE TYPE XUPWDSTATE.
  CALL 'INTERNET_USER_LOGON'      ID 'AUTHTYPE'  FIELD 'P'   "password
                                  ID 'TESTMODE'  FIELD SPACE
                                  ID 'UNAME'     FIELD BNAME
                                  ID 'PASSW'     FIELD PASSWORD
                                  ID 'PASSFLAG'  FIELD PWDSTATE.

  CASE SY-SUBRC.
    WHEN 0 OR 4.
      MESSAGE = 'Correct!'.
    WHEN 1.
      MESSAGE = 'user / password incorrect!'.
    WHEN 2.
      MESSAGE = 'user locked!'.
    WHEN 3.
      MESSAGE = 'STOP_SESSION!'.
    WHEN 6.
      MESSAGE = 'CUA master record!'.
    WHEN 7.
      MESSAGE = 'bad_user_type (not DIALOG type)!'.
    WHEN 8.
      MESSAGE = 'outside validity!'.
    WHEN 10.
      MESSAGE = 'SNC required!'.
    WHEN 50.
      MESSAGE = 'password disabled'.
    WHEN 51.
      MESSAGE = 'initial pwd expired'.
    WHEN 52.
      MESSAGE = 'user has no password!'.
    WHEN 52.
      MESSAGE = 'password will not be evaluated since there have been too many failed password logon attempts!'.
    WHEN OTHERS.
  ENDCASE.




ENDFUNCTION.