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.