SAP用户密码加密函数

2007-12-09 21:27:41

REPORT  z_barry_user_pass.
TABLES: usr02,xu400 .

DATA: msgid LIKE sy-msgid,
      msgno LIKE sy-msgno,
      param.
     
usr02-bname = 'BARRY'.
xu400-newcode = 'BARRY'.

CALL 'XXPASS'
  ID 'CODE' FIELD xu400-newcode
  ID 'CODX' FIELD usr02-bcode
  ID 'NAME' FIELD usr02-bname  
  ID 'VERS' FIELD usr02-codvn  
  ID 'MESG' FIELD msgno
  ID 'ARBG' FIELD msgid.

WRITE usr02-bcode .

友情提示：运行CALL 'XXPASS'前最好跟Basis搞好关系，在你运行后好让他给你解除用户锁定，哈哈

如果仅仅是验证密码：

CALL FUNCTION 'SUSR_CHECK_LOGON_DATA'
  EXPORTING
    auth_method = 'P'
    userid      = 'barry'
    password    = 'barry'
  EXCEPTIONS
    OTHERS      = 25.
IF sy-subrc <> 0.
  WRITE 'Error!'.
ELSE.
  WRITE 'Correct!'.
ENDIF.