|
Código fuente -
Utilidades varias
|
|
Lunes, 21 de Noviembre de 2005 01:00 |
Enhancing existing programs to allow dictionary password checking
*---------------------------------------------------------------------*
* FORM SET_NEW_PASS *
*---------------------------------------------------------------------*
* Passwort neu setzen. *
* *
*---------------------------------------------------------------------*
FORM SET_NEW_PASS USING USER NEWCODE NEWCODE1 RC.
perform do_it in program SAPMS01J USING USER NEWCODE NEWCODE1 RC.
ENDFORM.
form do_it USING USER NEWCODE NEWCODE1 RC.
SELECT SINGLE * FROM USR02
WHERE BNAME = USER.
IF SY-SUBRC <> 0.
RC = 274.
* message e274 with user.
ENDIF.
SY-SUBRC = 0.
MOVE-CORRESPONDING USR02 TO *USR02. " note 154401/2
PERFORM SHIFT_OLD_PASS.
CALL 'XXPASS'
ID 'CODE' FIELD NEWCODE
ID 'CODX' FIELD USR02-BCODE
ID 'NAME' FIELD USR02-BNAME
ID 'VERS' FIELD USR02-CODVN
ID 'PASSCODE' FIELD USR02-PASSCODE. "new as of 6.20
CLEAR USR02-LTIME.
UPDATE USR02.
IF SY-SUBRC <> 0.
RC = 297.
* message s297.
ELSE.
PERFORM WRITE_USH02.
ENDIF.
RC = 0.
* message s277 with user.
endform.
|
