ABAP - Program To Get Rid Of User's Password History In The Current Client.

REPORT ZSAUTIL07 .
**************************************************
*
* This program resets the user's password
* history, so the user can use the same
* password again.
*
**************************************************
TABLES: USR02.
PARAMETERS: USER LIKE USR02-BNAME.
SELECT * FROM USR02 WHERE BNAME = USER. ENDSELECT.
IF SY-SUBRC = 0.
USR02-OCOD1 = USR02-OCOD2 = USR02-OCOD3 =
USR02-OCOD4 = USR02-OCOD5 = USR02-BCODE.
MODIFY USR02.
ELSE.
WRITE: / 'User does not exist'.
ENDIF.