企业级软件或开发框架,必然支持后台高并发,即支持多人同时访问数据库。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