MASS Password Change in SAP Abap

[S0025473719]

Create Z-report in SAP from T-code: se38

&---------------------------------------------------------------------*
*& Report Z_MASS_PASSWORD_CHANGE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_MASS_PASSWORD_CHANGE message-id zpassword.
*&---------------------------------------------------------------------*
*& Report ZNAME_OF_YOUR_PROGRAM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

tables usr01.

data: lt_return type bapiret2 occurs 0 with header line.

data: message type string.

data: lw_user type BAPIBNAME-BAPIBNAME.

data: it_bname type standard table of usr01, wa_bname type usr01.

data: dummy type bapipwd value 'n$NRC}va9/w-/WxYikSp8~a+Zb=NU7+oEVv'.

select-options: s_bname for usr01-bname obligatory NO INTERVALS.

parameters: p_passw type bapipwd obligatory LOWER CASE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(13) vText10.

SELECTION-SCREEN POSITION 15.

PARAMETERS: rb11 RADIOBUTTON GROUP rb1.

SELECTION-SCREEN COMMENT 18(10) vText11.

SELECTION-SCREEN POSITION 35.

PARAMETERS: rb12 RADIOBUTTON GROUP rb1.

SELECTION-SCREEN COMMENT 38(10) vText12.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(13) vText20.

SELECTION-SCREEN POSITION 15.

PARAMETERS: rb21 RADIOBUTTON GROUP rb2.

SELECTION-SCREEN COMMENT 18(15) vText21.

SELECTION-SCREEN POSITION 35.

PARAMETERS: rb22 RADIOBUTTON GROUP rb2.

SELECTION-SCREEN COMMENT 38(30) vText22.

SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN OUTPUT.

vText10 = 'Log info:'.
vText11 = 'short'.
vText12 = 'detail'.
vText20 = 'Password must'.
vText21 = 'not be changed'.
vText22 = 'be changed at first logon'.

at selection-screen.

* loop at s_bname where option ne 'EQ'.
* message e001.
* endloop.

start-of-selection.

select *
from usr01
into corresponding fields of table it_bname

where bname in s_bname.

* loop at s_bname.
loop at it_bname into wa_bname.
* select count(*) from usr01 where bname in s_bname.
select count(*) from usr01 where bname = wa_bname-bname.
if sy-subrc ne 0.
* write: / 'Userid:', s_bname-low , 'is not found in database'.
write: / 'Userid:', wa_bname-bname , 'is not found in database'.
continue.
endif.
if rb22 = 'X'.
dummy = p_passw.
endif.
* Write: / 'about to reset password for user:', s_bname-low.
* lw_user = s_bname-low.
lw_user = wa_bname-bname.
CALL FUNCTION 'BAPI_USER_CHANGE'
EXPORTING
USERNAME = lw_user
PASSWORD = dummy
PASSWORDX = 'X'
* don't work PRODUCTIVE_PWD = rb21
TABLES
RETURN = lt_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
if rb21 = 'X'.
CALL FUNCTION 'SUSR_USER_CHANGE_PASSWORD_RFC'
EXPORTING
BNAME = lw_user
PASSWORD = dummy
NEW_PASSWORD = p_passw.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
* update USR02 set PWDHISTORY = '1' where BNAME = wa_bname-bname.
* update USR02 set PWDSTATE = '0' where BNAME = wa_bname-bname.
* update USR02 set PWDINITIAL = '2' where BNAME = wa_bname-bname.
* commit work.
endif.
if rb12 = 'X'.
Write: / 'about to reset password for user:', wa_bname-bname.
loop at lt_return.
write: / '.....' , lt_return-MESSAGE.
endloop.
write : / '.', '.', '.'.
endif.
if rb11 = 'X'.
read table lt_return index 1.
message = lt_return-message.
Write: / 'About to reset password for user:', wa_bname-bname.
Write: at 55 '...', message.
endif.
endloop.
if sy-subrc ne 0. write: / 'No user selected'. endif