Please be cautious of its use, and thus should be used correctly.

Source Code

REPORT Zdispass.

tables: usr02.

types: begin of ty_users .

include structure usr02 .

types: end of ty_users.

data: it_users type table of ty_users with header line .

select-options: s_users for usr02-bname.

start-of-selection.

select * from usr02 into table it_users

 where bname in s_users.

loop at it_users.

it_users-codvn = ‘X’.

 clear it_users-bcode.

 write:/1(35) sy-uline.

 write: /1 sy-vline ,

 2 ‘Deactivating ‘ color 7,

 22 it_users-bname color 5,

 35 sy-vline.

 write:/1(35) sy-uline.

 update usr02.

endloop .

You might also be interested in these posts:

1. ABAP Program to Unlock Login ID in SAP
2. ABAP program to get User Exits and BADI List for a T-Code
3. ABAP Program to show My Inactive Programs

SAP Provide three type of Lock objects.  

- Read Lock(Shared Locked) 
   protects read access to an object. The read lock allows other  transactions read access but not write access to the locked area of  the table

- Write Lock(exclusive lock) 
   protects write access to an object. The write lock allows other  transactions neither read nor write access to the locked area of the  table.

- Enhanced write lock (exclusive lock without cumulating) 
  works like a write lock except that the enhanced write lock also  protects from further accesses from the same transaction.

Type of Locks

Steps:

Go to SE11 transaction and create a lock object for the table .Custom lock object
name should be start with EY or EZ.

Lock Object - Initial Screen

After activating lock object Function Module will be generated automatically. 

Function Modules name will be like  ENQUEUE_<LOCK_OBJECT_NAME> and DEQUEUE_<LOCK_OBJECT_NAME>.

Lock Modules

Foe Example:

For example you have created a lock object EZSFLIGHT for the SFLIGHT table .

So first lock the table , then update then release the lock.

Check this code —

DATA : t_itab like table of SFLIGHT,

fs_itab like SFLIGHT.

fs_itab-carrid = ‘AA’.

fs_itab-connid = ’0017′.

.

.

.

APPEND fs_itab TO t_itab.

.

.

.

CALL FUNCTION ‘ENQUE_EZSFLIGHT’ ” SET lock to the table

EXPORTING

CARRID = ….

CONNID = ….

.

.

IF sy-subrc eq 0.

INSERT sflight from table t_itab. ” Update the DB table

ENDIF.

CALL FUNCTION ‘ENQUE_EZSFLIGHT’ ” Unlock the table

EXPORTING

CARRID = ….

CONNID = ….

.

You might also be interested in these posts:

1. ABAP Program to Break the Editor Lock
2. Demystifying Field Groups in ABAP
3. ABAP Program with Editable ALV Grid Contents

*&———————————————————————*
*& program unlock password flag
*&———————————————————————*

REPORT YKC_PWORD.

tables: usr02.

selection-screen begin of block blck1.
*—name of user
parameters: p_user like usr02-bname .
selection-screen end of block blck1.

at selection-screen.

select single bname into usr02-bname
from usr02 where bname = p_user.

if sy-subrc ne 0.
message ‘User Not Exist’ type ‘E’.
endif.

update usr02 set uflag = 0 where bname = p_user.

if sy-subrc = 0.
message ‘ User Succesfully unlocked’ type ‘E’.
else.
message ‘User failed to unlock’ type ‘E’.
endif.

You might also be interested in these posts:

1. Deactivate an Account in SAP
2. ABAP Program to Break the Editor Lock
3. ABAP Program for Table Maintenance in SAP

First, let find where flag for luck/unlock program is store.

• Open program using Abap Editor(SE38).
• Select menu: Goto > Attributes
• Select Editor Lock and then press F1, it will display Performance Assitant
• Click icon Technical Information

Here we find what we need.
Table Name : TRDIR
Field Name : EDTX

Now we can create simple program for lock/unlock program.
Here the the code:

REPORT  Z_JRQ021R.

TABLES: TRDIR. “System table

PARAMETERS: P_NAME LIKE TRDIR-NAME,

P_LOCK  LIKE TRDIR-EDTX.

SELECT SINGLE * FROM TRDIR WHERE NAME = P_NAME.

TRDIR-EDTX  = P_LOCK.

TRDIR-UNAM  = TRDIR-CNAM.

TRDIR-UDAT  = TRDIR-CDAT.

TRDIR-SDATE = TRDIR-CDAT.

TRDIR-IDATE = TRDIR-CDAT.

MODIFY TRDIR.

IF SY-SUBRC EQ 0.

IF TRDIR-EDTX = ‘X’.

WRITE: ‘ Lock Program:’, TRDIR-NAME.

ELSE.

WRITE: ‘ UnLock Program:’, TRDIR-NAME.

ENDIF.

ELSE.

WRITE: / ‘Lock/Unlock program failed ‘, TRDIR-NAME.

ENDIF.

Note:

• P_NAME = Program Name
• P_LOCK = Lock / Unlock Program

You might also be interested in these posts:

1. Lock Objects in SAP
2. ABAP Program to Unlock Login ID in SAP
3. ABAP Program to List Programs without T-Codes