*&---------------------------------------------------------------------*
*& Report ZZCHANGE_PW
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report zzchange_pw.
data: new_user type xubname,
password type rfcauth,
message(120),
wa_user_data type zsystem_master_c,
return like bapiret2 occurs 0 with header line,
profiles like bapiprof occurs 0 with header line,
activitygroups like bapiagr occurs 0 with header line.
activitygroups-agr_name = 'LCT_CONVERSION'.
append activitygroups.
profiles-bapiprof = 'T-LT780009'.
append profiles.
select single * from zsystem_master_c into
wa_user_data where rfcdest = '<A1S_TO_A1S>'.
call function 'ZENCODE_RFC_DATA'
EXPORTING
user = wa_user_data-rfcuser
code = wa_user_data-rfcpw
option = 'D'
IMPORTING
value_r = password.
if sy-mandt = '000'.
new_user = 'RFC_CONV'.
perform change_role using new_user.
perform change_password using new_user password.
elseif sy-mandt = '001'.
do 2 times.
if sy-index = 1.
* Create LCT User LCT_USER for conversion purposes in client 001
new_user = 'LCT_USER'.
perform change_role using new_user.
elseif sy-index = 2.
activitygroups-agr_name = 'SAP_J2EE_ADMIN'.
append activitygroups.
new_user = 'IDESADM'.
perform change_role using new_user.
endif.
perform change_password using new_user password.
enddo.
endif.
*&---------------------------------------------------------------------*
*& Form get_additional_user_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form get_additional_user_data .
select single * from zsystem_master_c into
wa_user_data where rfcdest = 'A1S_TO_A1S'.
call function 'ZENCODE_RFC_DATA'
EXPORTING
user = wa_user_data-rfcuser
code = wa_user_data-rfcpw
option = 'D'
IMPORTING
value_r = password.
endform. "get_additional_user_data
*&---------------------------------------------------------------------*
*& Form change_password
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->NEW_USER text
* -->PASSWORD text
*----------------------------------------------------------------------*
form change_password using new_user password.
call function 'BAPI_USER_CHANGE'
EXPORTING
username = new_user
password = password
passwordx = 'X'
TABLES
return = return.
append return.
* User entsperren (durch Falschanmeldungen wahrscheinlich gesperrt)
call function 'BAPI_USER_UNLOCK'
EXPORTING
username = new_user
TABLES
return = return.
endform. " change_password
*&---------------------------------------------------------------------*
*& Form change_role
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_NEW_USER text
*----------------------------------------------------------------------*
FORM change_role USING NEW_USER.
* Assign activity groups to users
* clear return.
call function 'BAPI_USER_ACTGROUPS_ASSIGN'
EXPORTING
username = new_user
TABLES
activitygroups = activitygroups
return = return.
* Assign profiles to user
clear return.
call function 'BAPI_USER_PROFILES_ASSIGN'
EXPORTING
username = new_user
TABLES
profiles = profiles
return = return.
ENDFORM. " change_role
