REPORT ZPWDDEL .
**************************************************
*
*   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.