If TMSADM user get locked to unlock automatically

Home


Suppose TMSADM user locking continuously in 000 client. Due to this RFC’s stop working & STMS_IMPORT screen is also asking password multiple time.

for coming out from this situation there is devloped customise report to unlock TMSADM automatically/manually


1. Create 1 report in SE38 (paste the below content) & save it as executable program.
2. Schedule 1 job in SM36 to run every 5 min in 000 client.

or else

when ever it's locked you can run this report manually.



*&———————————————————————*
*& Report ZUNLOCK_TMSADM
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT ZUNLOCK_TMSADM.
TABLES: usr02.

DATA: l_rt_uflag TYPE RANGE OF XUUFLAG,
l_t_usr02 TYPE TABLE OF usr02,
l_s_usr02 TYPE usr02.

CLEAR: l_t_usr02.
SELECT * FROM usr02 INTO CORRESPONDING FIELDS OF TABLE l_t_usr02
WHERE
bname = ‘TMSADM’ and
uflag in (’64’, ‘128’).

IF l_t_usr02 IS INITIAL.
MESSAGE s306(rsec).
EXIT.
ENDIF.

SET
UFLAG = ‘0’
WHERE
bname = ‘TMSADM’ AND
uflag in (’64’, ‘128’).

CALL FUNCTION ‘DB_COMMIT’.