This little program changes a user's password in all clients to the password in the current client.


REPORT ZSAUTIL06 .
tables: usr02, t000.
data: passwd like usr02-bcode.
parameters: user like usr02-bname.

select single * from usr02 where bname = user.
if sy-subrc <> 0.
   write: / user, 'user does not exist!'. exit.
endif.
passwd = usr02-bcode.
clear usr02.
write: / 'The password of', user, 'updated in client:'.
select * from t000 where mandt <> '066' and mandt <> sy-mandt.
   select * from usr02 client specified where mandt = t000-mandt and
         bname = user.
      write: / usr02-mandt.
      usr02-bcode = passwd.
      usr02-ltime = sy-uzeit.
      usr02-bcda1 = usr02-bcda2 = usr02-bcda3 = sy-datum.
      usr02-bcda4 = usr02-bcda5 = sy-datum.
      update usr02 client specified.
    endselect.
endselect.