SAP 锁机制

SAP 为什么要设置锁

保持数据的一致性

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

仅仅用 Database 锁是不够的

数据库锁定：与 DB LUW 机制类似，数据库本身一般也提供数据锁定机制。数据库将当前正在执行修改操作的所有数据进行锁定，其他用户要等到数据库锁释放才能访问这个记录。该锁定将随着数据库的 LUW 的结束而被重置，因而每当数据库提交或者回滚之后该锁定就被释放。因为 SAP 的 LUW 概念独立于数据库 LUW 和对话步骤，出于同样的原因，SAP 还需要定义自己的数据锁定机制。

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

SAP提供了一个逻辑数据锁定机制，SAP 系统在应用服务器层面有一个全局的 LOCK TABLE，可以用来设置逻辑锁来锁定相关的表条目，并有 ENQUEUE 工作进程来管理这些锁。一个ABAP程序在访问数据之前，将希望锁定的数据表关键字发送给该表，因而所有的程序在访问一个数据库表之前必须首先判断该表是否已经被锁定了。
SAP 锁定与数据库物理锁定是不同的，它是一种业务逻辑上的锁定。它不会在物理表上进行加锁，而是将关键字传递加锁函数，加锁函数会在特定表中进加锁信息登记。
SAP LUW 在结束时（提交或回滚），SAP 锁定将会隐式解除。

锁对象和其对应的 FM

创建锁对象

自定义的锁对象都必须以 EZ 或者 EY 开头来命名。一个锁对象里只包含一个 PRIMARY TABLE，可以包含若干个SECONDARY TABLE。在设定一个 SAP 锁定，必须在数据字典中创建一个锁定对象。一或多个数据库表或关键字段可以被指定为锁定对象中的一或多行。

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

通用数据库表锁函数：ENQUEUE_E_TABLE、DEQUEUE_E_TABLE、DEQUEUE_ALL

锁模式

锁的模式有三种：E (Exclusive lock)，S (Shared lock)，X (Exclusive but not cumulative lock)。

模式 E：当更改数据的时候设置为此模式。在同一时间内容，数据只能被一个用户读取和修改。
模式 S：本身不需要更改数据，但是希望显示的数据不被别人更改。
模式 X：和 E 类似，但是不允许累加，完全独占。

如果你在一个程序里成功对一个锁对象加锁之后，如果模式为 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 模式的不可以。

锁定和解锁

锁定

ENQUEUE_<lock object的名字> 对象 ：EZZSOPR0032 要求的锁定

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

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

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

解锁

DEQUEUE_<lock object的名字> ：释放对象 EZZSOPR0032 的锁定

在程序的结束可以用 DEQUEUE FUNCTION MODULE 来解锁（当然如果你不写这个，程序结束的时候也会自动的解锁），这个时候，系统会自动从 LOCK TABLE 把相应的记录删除。使用 DEQUEUE FUNCTION MODULE 来解锁的时候，不会产生 EXCEPTION。

FM：DEQUEUE_ALL 解开程序中创建的所有的逻辑锁

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

使用 SAP 锁的一般步骤

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

DEMO

TABLES: zspfli.
DATA it_zspfli LIKE TABLE OF zspfli WITH HEADER LINE.

CALL FUNCTION 'ENQUEUE_EZ_ZSPFLI'  "加锁"
 EXPORTING
   mode_zspfli          = 'E'
   mandt                = sy-mandt
   carrid               = 'AA'
   connid               = '0011'
*   X_CARRID             = ' '     "是否使用初始值填充参数 CARRID"
*   X_CONNID             = ' '     "是否使用初始值填充参数 CONNID"
*   _SCOPE               = '2'
*   _WAIT                = ' '
*   _COLLECT             = ' '
 EXCEPTIONS
   foreign_lock         = 1
   system_failure       = 2 .
IF sy-subrc <> 0. "判断锁定是否成功"
  MESSAGE '本行数据不能修改！' TYPE 'I'.
ELSE.
  SELECT * INTO TABLE it_zspfli FROM zspfli.
  READ TABLE it_zspfli WITH KEY carrid = 'AA' connid = '0011'.
  it_zspfli-distance = 2000.
  MODIFY zspfli FROM it_zspfli. "修改数据"
ENDIF.
BREAK-POINT.
CALL FUNCTION 'DEQUEUE_EZ_ZSPFLI' "解锁"
 EXPORTING
   mode_zspfli       = 'E'
   mandt             = sy-mandt
   carrid            = 'AA'
   connid            = '0011'
*   X_CARRID          = ' '
*   X_CONNID          = ' '
*   _SCOPE            = '3'
*   _SYNCHRON         = ' '
*   _COLLECT          = ' '.

_SCOPE：1 表示程序内有效；2 表示 update module 内有效； 3 全部范围都生效
_WAIT：如果对象已经被锁定，是否等待后再尝试加锁，最大的等待时间有系统参数 ENQUE/DELAY_MAX控制
_COLLECT：该参数设置是否收集后进行统一提交，COLLECT 是一种缓存与批处理方法，即如果指定了Collect，加锁信息会放到 Lock Container 中，Lock Container 实际上是一个 Function Group 控制的内存区域，如果程序中加了很多锁，锁信息会先放到内存中，这样可以减少对 SAP 锁管理系统访问。若使 Lock Container 中的锁生效，需执行 FLUSH_ENQUEUE 这个 Function 将锁信息更新到锁管理系统中。此时加锁操作生效，使用函数RESET_ENQUEUE 可以清除 Lock Container 中的锁信息

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

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

通用加锁与解锁函数

通用加锁与解锁函数不需要创建表的锁对象就可以直接使用。

CALL FUNCTION 'ENQUEUE_E_TABLE'
  EXPORTING
*   MODE_RSTABLE         = 'E'
    tabname              = 'SFLIGHT'
*   VARKEY               =
*   X_TABNAME            = ' '"标示参数tabname是否是十六进制的
*   X_VARKEY             = ' '"标示参数VARKEy是否是十六进制的
*   _SCOPE               = '2'
*   _WAIT                = ' '
*   _COLLECT             = ' '
  EXCEPTIONS
    foreign_lock         = 1
    system_failure       = 2
    OTHERS               = 3.
IF sy-subrc = 0.
  WRITE: 'Lock table successfully!'.
ELSE.
  WRITE: 'Failed'.
ENDIF.

CALL FUNCTION 'DEQUEUE_E_TABLE'
  EXPORTING
*   MODE_RSTABLE       = 'E'
    tabname            = 'SFLIGHT'
*   VARKEY             =
*   X_TABNAME          = ' '
*   X_VARKEY           = ' '
*   _SCOPE             = '3'
*   _SYNCHRON          = ' '
*   _COLLECT           = ' '.