Mail to basis when userid is locked

Question

Dear Experts,
                     My requirement is to send a mail to basis team whenever a userid gets locked (when he tried to logon to sap after three times with rong password).
How to do this can u give some of your valuable inputs.
Thanks and Regards,
Thirukumaran. R

Answer 1

Dear Thirukumaran,
I have done a similar scenario in my project successfully.
1. As this does not involve any approval process there is no need to create workflow and it can be handled via ABAP code itself.
Steps:
1.Go to SE38. Create a report there with code as below. Copy and paste the below code.
REPORT  zuser_lock_workflow.
DATA : BEGIN OF st1,
  bname LIKE usr02-bname,
  user_flag LIKE usr02-uflag,
  loc_user(255),
  END OF st1.
DATA : BEGIN OF st2,
  loc_user(255),
  END OF st2.
DATA : it_user LIKE TABLE OF st1 WITH HEADER LINE,
       wa_user LIKE LINE OF it_user.
DATA : it_lock LIKE TABLE OF st2 WITH HEADER LINE,
       wa_lock LIKE LINE OF it_lock.
SELECT bname uflag FROM usr02 INTO TABLE it_user
 WHERE uflag = '128'.
DATA : wa_objhead TYPE soli_tab,
 i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
 objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
 objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
 objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE,
 i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
 i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 w_ctrlop TYPE ssfctrlop,
 w_compop TYPE ssfcompop,
 w_return TYPE ssfcrescl,
 wa_doc_chng TYPE sodocchgi1,
 w_data TYPE sodocchgi1,
 v_form_name TYPE rs38l_fnam,
 v_objnam TYPE string,
 v_bodytxt1 TYPE string,
 v_bodytxt2 TYPE string,
 v_len_outn TYPE i,
 v_lines_txt TYPE i,
 v_lines_bin TYPE i,
 v_len_out LIKE sood-objlen.
REFRESH: i_reclist,
i_objtxt,
i_objbin,
i_objpack.
CLEAR wa_objhead.
i_objbin[] = i_record[].
DESCRIBE TABLE i_objtxt LINES v_lines_txt.
CLEAR i_objpack-transf_bin.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_txt. "TEXT
i_objpack-doc_type = 'RAW'.
APPEND i_objpack.
DESCRIBE TABLE i_objbin LINES v_lines_bin.
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 1.
* i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_bin. "BIN
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = text-000.
i_objpack-obj_descr  = text-001.
i_objpack-doc_size = v_lines_bin * 255 .
APPEND i_objpack.
wa_doc_chng-obj_name = text-000.
wa_doc_chng-expiry_dat = sy-datum + 10.
wa_doc_chng-obj_descr = text-000.
wa_doc_chng-sensitivty = 'F'.
wa_doc_chng-doc_size = v_lines_txt * 255.
i_reclist-receiver = 'XABAPER'. "'Note: Here instead of XABAPER specify your own basis id
i_reclist-rec_type = 'B'.
APPEND i_reclist.
DATA : loc_var(1000),
      lv_bname(1000).
DATA : var(5) VALUE '0',
      var1(5) VALUE '255',
      var2(5) value 1.
DATA: it_solisti1 LIKE TABLE OF solisti1 WITH HEADER LINE.
DATA : loc_user(255).
DATA : lin(3) TYPE n.
DESCRIBE TABLE it_user LINES lin.
LOOP AT it_user INTO wa_user.
  lv_bname = wa_user-bname .
  CONCATENATE lv_bname loc_var INTO loc_var SEPARATED BY ','.
ENDLOOP.
it_lock-loc_user = loc_var.
APPEND it_lock.
DATA : n TYPE i.
DATA : strlen TYPE string.
CONCATENATE 'Please Unlock the userids : '  loc_var INTO loc_var.
n = STRLEN( loc_var ).
DATA : loc_flag(1).
LOOP AT it_lock.
  IF var2 > 0.
    wa_lock-loc_user = loc_var+var(var1).
    APPEND wa_lock TO it_lock.
    var = var + 255.
    var1 = var1 + 255.
    var2 = n - var.
    loc_flag = 1.
  it_solisti1-line = wa_lock-loc_user.
  APPEND it_solisti1.
  ENDIF.
ENDLOOP.
IF loc_var IS NOT INITIAL.
  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data                    = wa_doc_chng
     document_type                    = 'RAW'
*     PUT_IN_OUTBOX                    = ' '
*     COMMIT_WORK                      = ' '
*   IMPORTING
*     SENT_TO_ALL                      =
*     NEW_OBJECT_ID                    =
    TABLES
*     OBJECT_HEADER                    =
     object_content                   = it_solisti1
*     CONTENTS_HEX                     =
*     OBJECT_PARA                      =
*     OBJECT_PARB                      =
      receivers                        = i_reclist
*   EXCEPTIONS
*     TOO_MANY_RECEIVERS               = 1
*     DOCUMENT_NOT_SENT                = 2
*     DOCUMENT_TYPE_NOT_EXIST          = 3
*     OPERATION_NO_AUTHORIZATION       = 4
*     PARAMETER_ERROR                  = 5
*     X_ERROR                          = 6
*     ENQUEUE_ERROR                    = 7
*     OTHERS                           = 8
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    MESSAGE s888(sabapdocu) WITH 'Mail Successfully Sent to the Basis Team'.
  ENDIF.
ENDIF.
2. Save and activate the report. Now go to SA38 tcode and schedule a background job for this report.
3. Specify the time interval for which the report has to run in background.
4. Once this is completed whenever a user attempts locks a user id by wrong attempt a mail will be automatically sent to
the basis person's id. (please specify the )
5. This is perfectly working for me. Incase if you face any issues please tell me.
KR,
Bharath