企业级软件或开发框架，必然支持后台高并发，即支持多人同时访问数据库。SAP作为资深企业管理软件，自然也不例外，ABAP可以很方便的开发出支持高并发的程序，要实现高并发，正确使用锁对象是其中一个重要环节，今天我们就一起来看看SAP的锁对象。

SAP锁对象属于数据字典的一部分，它并不是数据库锁，而是存在于队列应用服务器内存中，是一种逻辑锁，假设现在A，B两个用户要同时修改一张表中的记录，为了保证数据一致性，程序先为A用户加锁，加锁成功后，A用户可以正常修改表。这时B用户也要修改此表，程序同样尝试为B用户加锁，但发现表已经被锁定，那么加锁失败，程序需要提示B用户表已被锁定。只有当A用户修改完毕，将锁释放，B用户才可以正常修改表。

SAP锁有多种模式，常用的有E, S, X, O这几种。下面分别做简要说明：

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

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

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

模式O：乐观锁，多个用户可以重复加乐观锁，但当有新的用户加了排它锁E，或者已有用户的乐观锁提升为排它锁时，所有的乐观锁将失效。

除了上述几种模式，还要理解锁的拥有者即owner，一般来说，SAP锁要么属于dialog会话进程，要么属于update进程。程序运行是从dialog会话进程开始的，当调用call function...in update task时，会进入update 进程，这个时候update进程会继承锁对象。这两种拥有者的区别在于，如果拥有者是update进程，那么执行commit work后，锁会自动消失。

理解了锁的模式和拥有者，我们来看看在系统中如何创建和使用锁对象。

步骤1：事务码SE11，选择所对象，输入EZ_ZTDEPEMP。注意所对象要求必须E 开头。

步骤2：选择锁模式，常用模式上面有介绍过，一般选择E。

步骤3：输入锁参数，默认是表的关键字。输入参数后，可以指定锁定那些记录，如果参数为空，则锁定整张表。保存激活后，锁对象就创建成功了。

那么如何使用这个锁对象呢，SAP锁对象在创建的时候，会额外自动创建两个函数，ENQUEUE_EZ_XXXXX 和 DEQUEUE_EZ_XXXXX。具体到我们刚才创建的锁对象，函数分别是ENQUEUE_EZ_ZTDEPEMP 和 DEQUEUE_EZ_ZTDEPEMP，用于加锁和解锁。在程序中调用这两个函数，然后可以通过事务码SM12观察加锁和解锁的情况。

一起来看一段锁产生冲突的代码：

CALL FUNCTION 'ENQUEUE_EZ_ZTDEPEMP'EXPORTINGmode_ztdepemp  = 'E'mandt          = sy-mandt
*   DEPNO          = '001'
*   EMPNO          = '000001'
*   X_DEPNO        = ' '
*   X_EMPNO        = ' '_scope         = '1'
*   _WAIT          = ' '
*   _COLLECT       = ' 'EXCEPTIONSforeign_lock   = 1system_failure = 2OTHERS         = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

打开两个窗口运行这段程序，第一个窗口运行程序后，通过事务码SM12，查看锁对象，

可以看到表ZTDEPEMP加锁成功了，第二个窗口再次运行程序，会发现没有产生新的锁对象，通过debug，发现sy-subrc = 1，说明表再次加锁和现有的锁冲突了，不应该继续更改表。

上面的程序，有两个重要参数，

mode_ztdepemp = 'E'，这个参数就是之前提到的锁模式。E表示更新排它锁。一个用户加E类型锁后，其它用户就不能继续加锁。

_scope = '1'，这个参数用来指定锁的拥有者owner。_scope = '1'时，锁的拥有者是dialog会话。_scope = '2'时，当出现CALL FUNCTION 'XXX' IN UPDATE TASK 时，update会话就会继承这个锁，这样在commit work时，锁就会自动释放掉。我们将上面的代码稍作修改，_scope = '2'。再通过debug 和SM12观察锁对象，可以验证上面的锁机制。

CALL FUNCTION 'ENQUEUE_EZ_ZTDEPEMP'EXPORTINGmode_ztdepemp  = 'E'mandt          = sy-mandt
*   DEPNO          = '001'
*   EMPNO          = '000001'
*   X_DEPNO        = ' '
*   X_EMPNO        = ' '_scope         = '2'
*   _WAIT          = ' '
*   _COLLECT       = ' 'EXCEPTIONSforeign_lock   = 1system_failure = 2OTHERS         = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.CALL FUNCTION 'ZFM_UPDATE_DEPEMP' IN UPDATE TASK.COMMIT WORK.

最后，我们来看看乐观锁的使用。假设现在有两个屏幕都要修改同一张表，如果使用排它锁E，那么只有一个屏幕可以在修改模式下查看数据。如果我们需要多个屏幕都以修改模式来查看，那可以使用乐观锁O。当数据需要保存时，再将乐观锁升级为排它锁。升级的同时，其它的乐观锁都会自动消除。如何使用乐观锁和升级成排它锁，可以参考下面代码。

CALL FUNCTION 'DEQUEUE_EZ_ZTDEPEMP'EXPORTINGmode_ztdepemp = 'O'mandt         = sy-mandt
*   DEPNO         = '001'
*   EMPNO         = '000001'
*   X_DEPNO       = ' '
*   X_EMPNO       = ' '
*   _SCOPE        = '3'
*   _SYNCHRON     = ' '
*   _COLLECT      = ' '.CALL FUNCTION 'ENQUEUE_EZ_ZTDEPEMP'EXPORTINGmode_ztdepemp  = 'R'mandt          = sy-mandt
*   DEPNO          = '001'
*   EMPNO          = '000001'
*   X_DEPNO        = ' '
*   X_EMPNO        = ' '_scope         = '1'
*   _WAIT          = ' '
*   _COLLECT       = ' 'EXCEPTIONSforeign_lock   = 1system_failure = 2OTHERS         = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

先将mode_ztdepemp = 'O' 设置为O，即为乐观锁，再将mode_ztdepemp = 'R' 设置为R，升级为排它锁。

SAP锁对象就介绍到这里了，希望大家能不断积累经验，写出更加健壮的程序。如有问题，可加入群讨论。

微信号：eckwise