Block the user if the user not logged more than 90 days using BAPI_USER_CHANGE and validity date will updated with current date.

 

1.Give the import parameters as number of days and test flag

2.Create the structure as per output pass into the export parameters ET_RETURN.

Structure as per your output.

  DATA: lv_last_logon_date TYPE xuldate,
        lv_days            TYPE vtbbewe-atage,
        ls_date            TYPE bapilogond,
        ls_flag            TYPE bapilogonx,
        lt_return          TYPE bapiret2_t,
        lv_dat             TYPE dats,
        lv_sysid           LIKE sy-sysid.

*DATA: lt_task_type type ty_task_type occurs 0 with header line,
*      task_text LIKE swwvpublic-wi_rhtext.

* Getting the last 90 days date
  lv_dat = sy-datum - im_dtrdat.
* Based on the last login date fetch the user details
  SELECT bname,trdat,ustyp,class FROM usr02
                     INTO TABLE @DATA(lt_user)
                     WHERE ( trdat LE @lv_dat AND ustyp = 'A' AND CLASS LIKE 'GRC%').
   delete lt_user WHERE trdat is INITIAL.
**  Function module to get the SYSTEMID
  CALL FUNCTION 'MSS_GET_SY_SYSID'
    IMPORTING
      sapsysid = lv_sysid.
  IF lt_user IS NOT INITIAL.
    LOOP AT lt_user ASSIGNING FIELD-SYMBOL(<fs_user>).
      APPEND INITIAL LINE TO et_return ASSIGNING FIELD-SYMBOL(<ls_return>).
***--Update user valid to date
      ls_date-gltgb = sy-datum.
      ls_flag-gltgb = 'X'.
        CALL FUNCTION 'BAPI_USER_CHANGE'
          EXPORTING
            username   = <fs_user>-bname
            logondata  = ls_date
            logondatax = ls_flag
          TABLES
            return     = lt_return.

      IF sy-subrc EQ 0.
        <ls_return>-userid = <fs_user>-bname.
        <ls_return>-last_logon = <fs_user>-trdat.
        <ls_return>-ustyp = <fs_user>-ustyp.
        <ls_return>-class = <fs_user>-class.
        <ls_return>-systemid = lv_sysid.
        <ls_return>-status = 'User' && | | && <fs_user>-bname && | | && 'Expried-Contact system Administator For Logon'.
      ELSE.
        <ls_return>-userid = <fs_user>-bname.
        <ls_return>-last_logon = <fs_user>-trdat.
        <ls_return>-ustyp = <fs_user>-ustyp.
        <ls_return>-systemid = lv_sysid.
        READ TABLE lt_return INTO DATA(ls_return) WITH KEY type = 'E'.
        IF sy-subrc = 0.
          <ls_return>-status = ls_return-message .
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDFUNCTION.

Finally execute the function module, we will get the list of blocked users, updated validity date with current date.

Note: Before you run this code please comment the BAPI_USER_CHANGE function module other wise users will effect with their logins.

Sara Sampaio

Sara Sampaio

Author Since: March 10, 2022

0 0 votes
Article Rating
Subscribe
Notify of
0 Comments
Inline Feedbacks
View all comments
0
Would love your thoughts, please comment.x
()
x