sap根据登录时间自动锁定用户

REPORT zbc_lock_user.
TABLES:usr02.
DATA: l_date LIKE sy-datum.
DATA: gt_user LIKE usr02 OCCURS 0 WITH HEADER LINE.
DATA: gt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: s_bname FOR usr02-bname.
PARAMETERS: p_days TYPE i DEFAULT 30.
l_date = sy-datum - p_days.
SELECT * FROM usr02 INTO TABLE gt_user
  WHERE bname IN s_bname
    AND pwdlgndate <= l_date.
LOOP AT gt_user.
  REFRESH lt_return.
  CALL FUNCTION 'BAPI_USER_LOCK'
    EXPORTING
      username = gt_user-bname
    TABLES
      return   = lt_return.
  APPEND LINES OF lt_return TO gt_return.
  READ TABLE lt_return WITH KEY type = 'E'.
  IF sy-subrc = 0.
    ROLLBACK WORK.
  ELSE.
    COMMIT WORK.
  ENDIF.
ENDLOOP.

标准程序RSUSR_LOCK_USERS