Wer kennt das nicht, man braucht mal wieder in einem der vielen Systeme ein neues Kennwort und alle Kennwörter, die man sich merken kann, sind noch gesperrt.

Mit einem kleinen ABAP kann man nun die Kennworthistorie löschen und sein gewohntes Kennwort somit wieder benutzen

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.