Scheduling Locking/unlocking of t-codes

Question

Hi all,
I would like to ask - can we schedule locking/unlocking of specific tcode (say "stms")?? if yes, please describe procedure to do so.
waiting for reply.
Thanks and regards,
Meghan

Answer 1

Hi,
Use below program. Create variant and schedule it accordingly.
===============================================
REPORT  ZTCODE_LOCKUNLOCK.
Program to lock and unlock transactions
TABLES: TSTC.
DATA: LOCK_TEXT(30).
selection screen
SELECTION-SCREEN begin of block b1 with frame title text-001.
SELECT-OPTIONS: S_TCODE FOR TSTC-TCODE OBLIGATORY NO INTERVALS.
SELECTION-SCREEN end of block b1.
SELECTION-SCREEN begin of block b2 with frame title text-002.
PARAMETERS: P_LOCK RADIOBUTTON GROUP A,
P_UNLOCK RADIOBUTTON GROUP A DEFAULT 'X'.
SELECTION-SCREEN end of block b2.
check authority
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'SM01'.
IF SY-SUBRC NE 0.
MESSAGE 'You have not authorization' type 'E'.
STOP.
ENDIF.
IF P_LOCK = 'X'.
PERFORM DATA_LOCK.
ELSEIF P_UNLOCK = 'X'.
  PERFORM DATA_UNLOCK.
ENDIF.
*&      Form  DATA_LOCK
      text
-->  p1        text
<--  p2        text
FORM DATA_LOCK .
LOOP AT S_TCODE.
update tstc set cinfo = 'A4' where tcode = s_tcode-low.
ENDLOOP.
ENDFORM.                    " DATA_LOCK
*&      Form  DATA_UNLOCK
      text
-->  p1        text
<--  p2        text
FORM DATA_UNLOCK .
LOOP AT S_TCODE.
  update tstc set cinfo = '84' where tcode = s_tcode-low.
ENDLOOP.
ENDFORM.                    " DATA_UNLOCK
===============================================
Regards,
Alpesh