REPORT ZCPPASSW.
*
* Run this progam as sap* in cient xxx. The user you specify
* as a parameter, will have the same, client xxx password set in every client
* where it exists. 
*
TABLES: USR02, T000.
DATA: PASSWD LIKE USR02-BCODE.
PARAMETERS: USER LIKE USR02-BNAME.

SELECT SINGLE * FROM USR02 WHERE BNAME = USER.
IF SY-UNAME <> 'SAP*'.
  WRITE: / 'Only SAP* is allowed to run this program'. EXIT.
ENDIF.
IF SY-SUBRC <> 0.
  WRITE: / USER, 'user does not exist!'. EXIT.        "No template user
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.