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.