锁定/解锁账户BAPI

一、锁定/解锁账户

锁定账户后，该账户不能在SAP系统登录，但是已经登录的用户，仍然可以继续使用

解锁账户后，该账户就可以正常登录使用

DATA:lt_return  TYPE TABLE OF bapiret2 WITH HEADER LINE.

  DATA:lv_check   TYPE char1,
       lv_fname   TYPE rs38l_fnam,
       lv_message TYPE char200.

  IF p_r1 = 'X'."锁定
    lv_fname = 'BAPI_USER_LOCK'.
  ELSEIF p_r2 = 'X'."解锁
    lv_fname = 'BAPI_USER_UNLOCK'.
  ENDIF.

  LOOP AT gt_alv ASSIGNING FIELD-SYMBOL().
    CALL FUNCTION lv_fname
      EXPORTING
        username = -bname "用户名
      TABLES
        return   = lt_return.

    lv_check = 'S'.
    CLEAR:lv_message.
    LOOP AT lt_return WHERE type CA 'XEA'.
      lv_message = lv_message && lt_return-message.
      lv_check = 'E'.
    ENDLOOP.

    IF lv_check = 'S'.
      COMMIT WORK.
    ELSE.
      ROLLBACK WORK.
    ENDIF.
  ENDLOOP.