解锁Program&Z表



EPORT ZII_LOCKUNLOCKED .

 

* Table Declaration

TABLES: TRDIR. "System table TRDIR

 

Parameter:  P_PROG   LIKE TRDIR-NAME,

           P_EDITOR  LIKE TRDIR-EDTX.

 

* Select the entered Program

SELECT SINGLE * FROM TRDIR WHERE NAME =P_PROG.

 

* Set/Remove the lock

TRDIR-EDTX = P_EDITOR.

MODIFY TRDIR.

IF SY-SUBRC EQ 0.

   WRITE: / 'Editor Lock updateSuccessful ', TRDIR-NAME.

   IF TRDIR-EDTX = 'X'.

      WRITE: 'Lock'.

   ELSE.

      WRITE: 'UnLock'.

   ENDIF.

ELSE.

   WRITE: / 'Editor Lock updateUnsuccessful ', TRDIR-NAME.

ENDIF.

选择屏幕上的按钮不选就是解锁。

要是解锁ADD-ON表就用SM12