BAPI_USER_LOCK. 锁
BAPI_USER_UNLOCK. 解锁
*&---------------------------------------------------------------------*
*& Report Z_USER_LOCK_UNLOCK
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_user_lock_unlock MESSAGE-ID zyr.
TABLES: usr02.
DATA: gt_usr02 LIKE usr02 OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: s_bname FOR usr02-bname OBLIGATORY NO INTERVALS.
SELECTION-SCREEN SKIP.
PARAMETERS: r_lock RADIOBUTTON GROUP g1,
r_unlock RADIOBUTTON GROUP g1.
AT SELECTION-SCREEN.
IF sy-mandt = '800' AND sy-uname <> 'SYSADM'.
MESSAGE e999 WITH '请使用SYSADM账号'.
ENDIF.
START-OF-SEL