How to Lock ABAP Program

Former Member — Thu, 22 May 2008 07:02:48 GMT

Hi all,

I am using a module pool program,

I want to ristrict the access of program to single user at a time.

can some one give me some clues about program locks.

Regards,

Gaurav Sood.

Re: How to Lock ABAP Program

Former Member — Thu, 22 May 2008 07:06:47 GMT

Hi,

Goto -> Attributes -> in the window at below there is Editor lock check box. Check that one.

Regards,

Raghu

Re: How to Lock ABAP Program

Former Member — Thu, 22 May 2008 07:07:52 GMT

Locking All Users

Sometimes it is useful to be able to lock all the users out of a client; for instance, during a client copy (you can also do this with tp locksys, but you have to issue that command from the OS level, and then you can only use DDIC or SAP* to log on). You can use this program to lock out all users except yourself.

This program (un)locks all the users in a client, except for the current user, and the SAP* user. You might want to add somthing like SELECT-OPTIONS EXEMPTUS FOR USR02-BNAME to allow a list of usernames not to be processed.

Un/Lock all users in a client

&----

*& Report YUSRLOCK *

*& *

&----

*& *

&----

REPORT YUSRLOCK MESSAGE-ID Z1 .

TABLES: USR02.

PARAMETERS: LOCK AS CHECKBOX, LISTLOCK AS CHECKBOX.

DATA: UFLAGVAL TYPE I, LOCKSTRING(8) TYPE C.

----

Authorization check -

AUTHORITY-CHECK OBJECT 'ZPROG_RUN' ID 'PROGRAM' FIELD SY-CPROG.

IF SY-SUBRC <> 0.

IF SY-SUBRC = 4.

MESSAGE E000 WITH SY-CPROG. "some message about authorization check failure

ELSE.

MESSAGE E005 WITH SY-SUBRC. "some message about authorization check failure

ENDIF.

IF LISTLOCK = 'X'.

WRITE:/ 'List all locked users: '.

SELECT * FROM USR02 WHERE UFLAG = 64.

WRITE: / USR02-BNAME.

ENDSELECT.

EXIT.

ENDIF.

IF LOCK = 'X'.

UFLAGVAL = 64. "lock all users

LOCKSTRING = 'locked'.

ELSE.

UFLAGVAL = 0. "unlock all users

LOCKSTRING = 'unlocked'.

ENDIF.

SELECT * FROM USR02 WHERE BNAME <> 'SAP*' AND BNAME <> SY-UNAME.

IF USR02-UFLAG <> 0 AND USR02-UFLAG <> 64.

WRITE: 'User', USR02-BNAME, 'untouched; please handle manually.'.

CONTINUE.

ENDIF.

check that user has authority to make these changes

AUTHORITY-CHECK OBJECT 'S_USER_GRP'

ID 'CLASS' FIELD USR02-CLASS

ID 'ACTVT' FIELD '05'.

IF SY-SUBRC <> 0.

IF SY-SUBRC = 4.

WRITE: /'You are not authorized to lock/unlock user ',

USR02-BNAME, USR02-CLASS.

ELSE.

WRITE: /'Authorization error checking user ',

USR02-BNAME, USR02-CLASS, '(return code', SY-SUBRC, ').'.

ENDIF.

ELSE. "has authority

UPDATE USR02 SET UFLAG = UFLAGVAL WHERE BNAME = USR02-BNAME.

WRITE: / 'User', USR02-BNAME, LOCKSTRING, '.'.

ENDIF.

The SAP Lock Concept

Reasons for Setting Locks

Suppose a travel agent want to book a flight. The customer wants to fly to a particular city with a certain airline on a certain day. The booking must only be possible if there are still free places on the flight. To avoid the possibility of overbooking, the database entry corresponding to the flight must be locked against access from other transactions. This ensures that one user can find out the number of free places, make the booking, and change the number of free places without the data being changed in the meantime by another transaction.

Lock Mechanisms in the Database System

The database system automatically sets database locks when it receives change statements (INSERT, UPDATE, MODIFY, DELETE) from a program. Database locks are physical locks on the database entries affected by these statements. You can only set a lock for an existing database entry, since the lock mechanism uses a lock flag in the entry. These flags are automatically deleted in each database commit. Database locks are therefore never available longer than for only one database LUW. That means that in ABAP application programming, database locks can no longer exist than the duration of one dialog step.

The physical lock mechanisms in the database system are therefore insufficient for the requirements of an ABAP transaction. The locks must remain set for the duration of a whole SAP LUW, that is, over several dialog steps. They must also be capable of being handled by different work processes and even different application servers. Consequently, each lock must not only apply on the application server that carries out the locking transaction, but on all installed servers of the SAP Web AS ABAP.

SAP Locks

To complement the SAP LUW concept, in which bundled database changes are made in a single database LUW, the SAP System also contains a lock mechanism, fully independent of database locks, that allows you to set a lock that spans several dialog steps. These locks are known as SAP locks.

The complete documentation on SAP locks can be found in The SAP Lock Concept. This is a short introduction within the environment of ABAP programming.

The SAP lock concept is based on lock objects. Lock objects allow you to set SAP locks for entire application objects. An application object consists of one or more entries in a database table, or entries from more than one database table that are linked using foreign key relationships.

Before you can set an SAP lock in an ABAP program, you must first create a lock object in the ABAP Dictionary. A lock object definition contains the database tables and their key fields on the basis of which you want to set a lock. When you create a lock object, the system automatically generates two function modules with the names ENQUEUE_Name and DEQUEUE_Name. You can then set and release SAP locks in your ABAP program by calling these function modules in a CALL FUNCTION statemenT.

Reward If Helpfull,

Naresh.

Re: How to Lock ABAP Program

Former Member — Thu, 22 May 2008 07:08:31 GMT

Have a look at below link:

[Lock Users|http://www.abapcode.sapbrainsonline.com/2008/03/abap-program-for-lock-all-users.html]

I hope it helps.

Best Regards,

Vibha

Please mark all the helpful answers

Re: How to Lock ABAP Program

Former Member — Thu, 22 May 2008 07:10:08 GMT

Use BAPI_USER_LOCK

Provide user id and it will lock the user.

Regards

Aditya

Re: How to Lock ABAP Program

Former Member — Tue, 27 May 2008 08:16:19 GMT

Issue resolved

Re: How to Lock ABAP Program

Former Member — Tue, 08 Apr 2014 13:09:52 GMT

This message was moderated.

topic Re: How to Lock ABAP Program in Application Development and Automation Discussions

How to Lock ABAP Program

Re: How to Lock ABAP Program

Re: How to Lock ABAP Program

Re: How to Lock ABAP Program

Re: How to Lock ABAP Program

Re: How to Lock ABAP Program

Re: How to Lock ABAP Program