Program ABAP Untuk Reset Password SAP Cross Client

Sebenarnya ada keinginan untuk sedikit membumbui artikel ini dengan cerita tapi saya sudah memutuskan untuk tidak bercerita. Jadi, berikut adalah program ABAP SAP untuk melakukan reset password cross client. Normalnya di SAP reset password itu hanya dapat dilakukan di client yang sama. Buat program baru dengan SE38, salin tempel kode berikut, aktifkan, lalu jalankan. Hasilnya, password user yang direset di client lain akan sama dengan password di klien yang digunakan saat ini.

*&---------------------------------------------------------------------*
*& Report  Z_SAP_USER_PASSWORD_SET
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_SAP_USER_PASSWORD_SET.
*
* Run this progam as sap* in cient xxx. The user you specify
* as a parameter, will have the same, client xxx password set in every
* client
* where it exists.
*
TABLES: USR02, T000.
DATA: PASSWD LIKE USR02-BCODE.
DATA : PASSWD2 LIKE USR02-PASSCODE.
PARAMETERS: USER LIKE USR02-BNAME.

SELECT SINGLE * FROM USR02 WHERE BNAME = USER.
*IF USER <> 'idadmin'.
* WRITE: / 'Only SAP* is allowed to run this program'. EXIT.
*ENDIF.
IF SY-SUBRC <> 0.
WRITE: / USER, 'user does not exist!'. EXIT. "No template user
ENDIF.
PASSWD = USR02-BCODE.
PASSWD2 = USR02-PASSCODE.
CLEAR USR02.
*WRITE: / 'The password of', USER, 'updated in client:'.
*SELECT * FROM T000 WHERE MANDT = '066' AND MANDT <> SY-MANDT.
*WRITE: / T000-MANDT.
SELECT * FROM USR02 CLIENT SPECIFIED WHERE MANDT = '000' AND
BNAME = USER.
WRITE: / USR02-MANDT.
USR02-BCODE = PASSWD.
USR02-LTIME = SY-UZEIT.
USR02-PASSCODE = PASSWD2.
USR02-BCDA1 = USR02-BCDA2 = USR02-BCDA3 = SY-DATUM.
USR02-BCDA4 = USR02-BCDA5 = SY-DATUM.
USR02-UFLAG = '0'.
UPDATE USR02 CLIENT SPECIFIED.
WRITE: / 'The password of', USER, 'updated in client: 000'.
ENDSELECT.

Dan ngomong-ngomong, program ini bukan buatan saya tapi hanya saya salin tempel dari milis Komunitas Indo-SAP.

About these ads