实用ABAP程序分享（1）：SAP用户解锁BAPI : BAPI_USER_UNLOCK

      在SAP运维中有时会经常遇到给用户解锁麻烦事。因为我不可能时时方便登录SAP GUI，所以我写了一个简单的自动解锁程序。然后设置一个后台JOB，每小时调用一次这个解锁程序。这样就实现了自动解锁了。现在把这个程序分享给大家。

REPORT ZBS_F_USER_UNLOCK.
**************************************
* AUTHOR: DAMON
* DATE:  2018-9-30
*
*
********************

DATA : GT_USR02 LIKE STANDARD TABLE OF USR02 WITH HEADER LINE.
DATA : GT_RETURN LIKE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE.

* selec all the users who has been locked up by too many failed longins
SELECT BNAME INTO CORRESPONDING FIELDS OF TABLE GT_USR02 FROM USR02 WHERE UFLAG = '128' AND BNAME = 'ABSEN002'.

IF GT_USR02[] IS NOT INITIAL.
  LOOP AT GT_USR02.
    CALL FUNCTION 'BAPI_USER_UNLOCK'
      EXPORTING
        USERNAME = GT_USR02-BNAME
      TABLES
        RETURN   = GT_RETURN.
    READ TABLE GT_RETURN INDEX 1.
    IF GT_RETURN-TYPE = 'S'.
      COMMIT WORK.

    ENDIF.

  ENDLOOP.

ENDIF.