锁机制相关

原创

mb5fd8698f60f87 2021-02-12 20:12:03 ©著作权

文章标签 java 文章分类 Java 后端开发

©著作权归作者所有：来自51CTO博客作者mb5fd8698f60f87的原创作品，请联系作者获取转载授权，否则将追究法律责任

一、SAP锁的概念

SAP 的锁是一种逻辑锁,SAP为了同步同时多个用户操作同一数据,防止数据出现不一致性而采用了锁机制。一般SAP会在操作数据前设置锁，防止第二个用户进行修改操作，当操作结束后系统在释放锁。

二、SAP为什么要设置锁

1.保持数据的一致性

如果几个用户要访问同样的资源，需要找到一种同步访问的方法去保持数据的一致性。比如说，在航班预订系统中，需要检查还有没有空座位，当检查的时候，你不想别人修改重要的数据（空座位的数量）。

2.仅仅用Database锁是不够的

数据库管理系统物理锁定了要修改的行记录，其他用户要等到数据库锁释放才能访问这个记录。

SAPLock是一种逻辑锁,相对于DBLock,是一种轻量级的锁,DBLock一旦发现不能加锁会进行延迟等待,使用SAP Lock一定程度上可以减少对DBLock的占用,避免死锁,同时合理使用SAPLock可以保证数据的一致性

在SAP系统中，当一个新屏幕显示的时候会释放掉Database锁，因为屏幕的改变会触发一个隐式的DBCOMMIT。如果数据是从好几个屏幕收集来的话，而且在这段时间内这些数据会分别被锁定，仅仅用Database锁就不够了。

SAP系统在应用服务器层面有一个全局的LOCKTABLE，可以用来设置逻辑锁来锁定相关的表条目，并有ENQUEUE工作进程来管理这些锁。SAP锁是一种逻辑意义上的锁，有可能你锁定的表条目在DATABASE上根本就不存在。

注：selectfor update 是在DB层次上加的锁

三、锁对象和其对应的FM

在SE11里创建锁对象，自定义的锁对象都必须以EZ或者EY开头来命名。一个锁对象里只包含一个PRIMARYTABLE，可以包含若干个SECONDARYTABLE，锁的模式有三种：E（Exclusivelock），S（Sharedlock），X（Exclusive but not cumulativelock）。LOCKPARAMETERS里填写你要根据哪些字段来锁定表条目。

模式E：当更改数据的时候设置为此模式。

Exclusivelock ：Thelocked data can be read or processed by one user only. A requestfor another exclusive lock or for a shared lock isrejected.

模式S：本身不需要更改数据，但是希望显示的数据不被别人更改。

Sharedlock ：Severalusers can read the same data at the same time, but as soon as auser edits the data, a second user can no longer access this data.Requests for further shared locks are accepted, even if they areissued by different users, but exclusive locks arerejected.

模式X：和E类似，但是不允许累加，完全独占。

Exclusive butnot cumulative lock ：Exclusivelocks can be requested by the same transaction more than once andhandled successively, but an exclusive but not cumulative lock canonly be requested once by a given transaction. All other lockrequests are rejected.

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为E，其他用户不能再对这个锁对象加E、X、S模式的任意一种锁；

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为X，其他用户不能再对这个锁对象加E、X、S模式的任意一种锁；

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为S，其他用户不能再对这个锁对象加E、X模式的锁，但是可以加S模式的锁；

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为E，在这个程序，你还可以再对这个锁对象加E、S模式的锁，X模式的不可以。

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为X，在这个程序，你不可以再对这个锁对象加E、X、S模式的锁。

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为S，在这个程序，你还可以再对这个锁对象加S模式的锁，如果没有别的用户对其加S模式的锁，那么你还可以对其加E模式的锁。X模式的不可以。

当激活锁对象的时候，系统会自动创建两个FM，ENQUEUE_<</span>锁对象名>和DEQUEUE_<</span>锁对象名>，分别用来锁定和解锁。

四、锁定和解锁

当用逻辑锁来锁定表条目的时候，系统会自动向LOCKTABLE中写入记录。

当调用设置锁的FM时，LOCKPARAMETERS如果没有指明，系统会锁定整个表。当然，LOCKPARAMETER：CLIENT有点特殊，如果不指定，默认是SY-MANDT；如果指定相应的CLIENT，会锁定对应CLIENT上的相应的表记录；如果设置为SPACE，则锁定涉及所有的CLIENT。

当逻辑锁设置失败后，一般会有两种例外。一个是EXCEPTION：FOREIGN_LOCK，意思是已经被锁定了；另一个是EXCEPTION：SYSTEM_FAILURE。

有些情况下，程序中设置成功的逻辑锁会隐式的自己解锁。比如说程序结束发生的时候（MESSAGETYPE为A或者X的时候），使用语句LEAVEPROGRAM，LEAVE TOTRANSACTION，或者在命令行输入/n回车以后。

在程序的结束可以用DEQUEUEFUNCTIONMODULE来解锁（当然如果你不写这个，程序结束的时候也会自动的解锁），这个时候，系统会自动从LOCKTABLE把相应的记录删除。使用DEQUEUE FUNCTIONMODULE来解锁的时候，不会产生EXCEPTION。要解开你在程序中创建的所有的逻辑锁，可以用FM：DEQUEUE_ALL.

五、上锁的一般步骤

先上锁，上锁成功之后，从数据库取数据，然后更改数据，接着更新到数据库，最后解锁。按照这个步骤，才能保证更改完全运行在锁的保护机制下。

六、SAP锁的相关知识

1.相关TCODE:SE11

2.相关表

DD25L:组合标题(方式,MC目标,锁定目标)(纪录了锁主表)

DD25T:视图和锁定对象的短文本

DD26S:视图的基本表和外来码关系(纪录了所有和锁相关的表)

DD27S:合计(视图,MC对象,锁定对象)字段

3.相关函数

RS_DD_ENQU_EDIT

RS_DD_ENQU_ADD

4.获取表相关锁的列表程序

REPORT ZLM_TEST LINE-COUNT 70

LINE-SIZE 255

NO STANDARD PAGE HEADING.

type-pools: slis.

tables: DD02L,dd26s.

data: begin of g_tab occurs 10,

TABNAME like dd26s-TABNAME,

VIEWNAME type dd26s-VIEWNAME,

ename like EMFIN-FBEMFIN,

dname like EMFIN-FBEMFIN,

end of g_tab.

data g_fcat type slis_t_fieldcat_alv.

data: g_fieldcat typeslis_fieldcat_alv.

select-options s_table for dd02l-TABNAME default 'VBAK'.

end-of-selection.

select dd26s~TABNAME dd25l~VIEWNAME

INTO CORRESPONDING FIELDS OF TABLEg_tab

from dd26s

inner join dd25l

ondd26s~VIEWNAME = dd25l~VIEWNAME

and dd25l~AGGTYPE = 'E'

whereTABNAME in s_table.

loop at g_tab.

concatenate'ENQUEUE_' g_tab-VIEWNAME into g_tab-ename.

concatenate'DEQUEUE_' g_tab-VIEWNAME into g_tab-dname.

modifyg_tab.

endloop.

call function'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = 'ZTEST4'

I_INTERNAL_TABNAME = 'G_TAB'

i_inclname = 'ZTEST4'

CHANGING

ct_fieldcat = g_fcat.

g_fieldcat-fieldname = 'ENAME'.

g_fieldcat-seltext_s = '加锁函数名'.

append g_fieldcat to g_fcat.

g_fieldcat-fieldname = 'DNAME'.

g_fieldcat-seltext_s = '解锁函数名'.

append g_fieldcat tog_fcat.

call function'REUSE_ALV_GRID_DISPLAY'

exporting

* i_callback_program = repname

* i_callback_user_command =g_user_command

* i_structure_name = 'INV'

* is_layout = layout

it_fieldcat = g_fcat

* is_variant = g_variant

* it_events = events[]

* i_callback_pf_status_set = 'F01_ALV_EVENT_PF_STATUS_SET'

tables

t_outtab = g_tab.

5.通过断点找程序所用到的锁

用se38打开程序LSENAF01，并定位到send_enqueue子过程,在该过程中的任一语句设置断点。完成断点设置后，则去执行标准tcode,系统就会在程序调用锁时自动停止在断点处,这时你就可以通过调用堆栈获取加锁函数(ENQUEUE_XXXXXX),其中"XXXXXX"就是锁名称，你就可以通过SE11查看锁信息。

6锁相关的函数

DEQUEUE_ALL Release Locks of an LUW（释放当前LUW的所有锁）

7如何对表加锁

CALLFUNCTION'ENQUEUE_E_TABLE'

EXPORTING

MODE_RSTABLE ='E'

TABNAME ='Table Name'

* VARKEY=

* X_TABNAME = ''

* X_VARKEY = ''

* _SCOPE ='2'

* _WAIT = ''

* _COLLECT = ''

EXCEPTIONS

FOREIGN_LOCK = 1

SYSTEM_FAILURE = 2

OTHERS = 3

IF sy-subrc =0.

WRITE: 'Locktable successfully!'.

else.

write: 'Failed'.

ENDIF.

七、锁对象（LockObject）和 FM（FunctionModule）
激活锁定对象时，产生的FM 的名字是什么？

答案：首先要在ABAP 字典中创建锁对象，然后才能在 ABAP程序中设锁。创建锁对象时，系统会自动生成两个 FM 来进行锁管理。

用于设锁的FM 为：ENQUEUE_<</span>锁对象名>。它用于在锁表（LockTable）中生成一个锁项（Lock Entry）。若设锁不成功的话，就会在Return 中反映出来。

用于释放锁的FM为：DEQUEUE_<</span>锁对象名>。它用于从锁表中删除一个锁项。在ABAP 程序中，只需使用 "CALL FUNCITION ..."语句就可以调用它们。这两个锁 FM 是在 SAP系统的一个特殊工作进程中执行的，专门进行锁管理。它运行在一个单独的服务器上，而该服务器专门用于维护整个SAP 系统的主锁表（Central LocakTable）。

八、加锁和解锁FM的一些参数

scope参数:1 表示程序内有效, 2 表示 update module内有效, 3 表示全部有效。

_wait表示如果对象已经被锁定,是否等待后再尝试加锁,最大的等待时间有系统参数 ENQUE/DELAY_MAX控制。

_COLLECT参数表示是否收集后进行统一提交,COLLECT是一种缓存与批处理方法,即如果指定了Collect,加锁信息会放到LockContainer 中,Lock Container实际上是一个funcitonGroup控制的内存区域,如果程序中加了很多锁,锁信息会先放到内存中,这样可以减少对SAP锁管理系统访问,若使LockContainer中的锁生效,需执行FLUSH_ENQUEUE这个Funciton,将锁信息更新到锁管理系统中,此时加锁操作生效,使用函数RESET_ENQUEUE可以清除LockContainer中的锁信息。

释放锁：调用DEQUEUE函数

如果程序更新用到到V1Update时,在commitwork是会删除所有的锁

最后关于加锁时scope 参数:12 3特做测试后的补充。

对于最终的效果，scope = 1 和 scope = 3是一样的。
在调用加锁函数时，锁加上，SM12可查到。

中间无论是调用其他FM，还是调用BAPI，及时使用了commitwork。

锁依然存在，SM12一直可以查，

直到调用了解锁函数，锁才能解掉，【在SM12里消失】。

如果 scope = 2.

如果加锁后，使用了 in up date task 模式调用了FUNCUNTION。

则锁就进入了更新进程里【目前执行程序在dialog进程里】

如果调用FM后，使用了commit work。
则锁自动解【SM内消失】

但是！