ABAP 锁机制（LOCK OBJECT）（转）

转载自：http://blog.****.net/heng0757/article/details/8028868

具体操作步骤：

1. 使用TCODE:SE11，选择最后一项[加锁对象]，输入对象名称(注意一定要以字母‘E’开头，这是SAP内部规定的，如EZ_FI_CSTM_001)

2. 输入名称后，按新增，进入界面后输入要加锁的Table名，及加锁类型(E:专用，累计；S:共享；X:专用，不累计)。

保存后，系统会自动产生两个函数： ENQUEUE_EZ_FI_CSTM_001（加锁）和 DEQUEUE_EZ_FI_CSTM_001（解锁）。

3.然后在更改记录前调用加锁函数对记录进行锁定，在修改完成或退出修改后一定要对记录进行解锁。
ABAP 锁机制（LOCK OBJECT）（转）

输入锁定表：

输入锁定表的字段：

然后在程序里调用：

PERFORM frm_unlock_0100 USING p_inv p_cntr p_doc_ty.

*&---------------------------------------------------------------------*
*& Form FRM_UNLOCK_0100
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_INV text
* -->P_P_CNTR text
* -->P_P_DOC_TY text
*----------------------------------------------------------------------*
FORM frm_unlock_0100 USING p_inv
p_cntr
p_doc_ty.
CALL FUNCTION 'DEQUEUE_EZ_FI_CSTM_001'
EXPORTING
* MODE_ZTBL_FI_CSTM_001 = 'E'
* MANDT = SY-MANDT
invoice = p_inv
contract = p_cntr
doc_type = p_doc_ty
* X_INVOICE = ' '
* X_CONTRACT = ' '
* X_DOC_TYPE = ' '
* _SCOPE = '3'
* _SYNCHRON = ' '
* _COLLECT = ' '
.
ENDFORM. " FRM_UNLOCK_0100

参考自动生成的函数：

FUNCTION DEQUEUE_EZ_FI_CSTM_001.
*"--------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(MODE_ZTBL_FI_CSTM_001) TYPE ENQMODE DEFAULT 'E'
*" VALUE(MANDT) TYPE ZTBL_FI_CSTM_001-MANDT DEFAULT SY-MANDT
*" VALUE(INVOICE) TYPE ZTBL_FI_CSTM_001-INVOICE OPTIONAL
*" VALUE(CONTRACT) TYPE ZTBL_FI_CSTM_001-CONTRACT OPTIONAL
*" VALUE(DOC_TYPE) TYPE ZTBL_FI_CSTM_001-DOC_TYPE OPTIONAL
*" VALUE(X_INVOICE) DEFAULT SPACE
*" VALUE(X_CONTRACT) DEFAULT SPACE
*" VALUE(X_DOC_TYPE) DEFAULT SPACE
*" VALUE(_SCOPE) DEFAULT '3'
*" VALUE(_SYNCHRON) DEFAULT SPACE
*" VALUE(_COLLECT) TYPE DDENQCOLL DEFAULT ' '
*"--------------------------------------------------------------------
* 为锁定对象 EZ_FI_CSTM_001 生成功能模块
* 请不要修改或复制该功能模块
* 参阅 ABAP 帮助中有关 SAP 锁定的内容
* 对关键字“ENQUEUE”

DATA: __seqta_tab TYPE SEQTA OCCURS 01 WITH HEADER LINE,
__scope TYPE DDENQSCOPE,
__synchron TYPE DDENQSYNC.
__synchron = _synchron.
__scope = _scope.

DATA: BEGIN OF %a_ZTBL_FI_CSTM_001,
* 锁定表格 ZTBL_FI_CSTM_001 的函数
MANDT TYPE ZTBL_FI_CSTM_001-MANDT,
INVOICE TYPE ZTBL_FI_CSTM_001-INVOICE,
CONTRACT TYPE ZTBL_FI_CSTM_001-CONTRACT,
DOC_TYPE TYPE ZTBL_FI_CSTM_001-DOC_TYPE,
END OF %a_ZTBL_FI_CSTM_001.
* 锁定函数初始化：
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZTBL_FI_CSTM_001.

* 锁定字段锁定参数的分配：

IF NOT MANDT IS INITIAL.
MOVE MANDT TO:
%a_ZTBL_FI_CSTM_001-MANDT.
ENDIF.

IF NOT INVOICE IS INITIAL OR
NOT x_INVOICE IS INITIAL.
MOVE INVOICE TO:
%a_ZTBL_FI_CSTM_001-INVOICE.
ENDIF.

IF NOT CONTRACT IS INITIAL OR
NOT x_CONTRACT IS INITIAL.
MOVE CONTRACT TO:
%a_ZTBL_FI_CSTM_001-CONTRACT.
ENDIF.

IF NOT DOC_TYPE IS INITIAL OR
NOT x_DOC_TYPE IS INITIAL.
MOVE DOC_TYPE TO:
%a_ZTBL_FI_CSTM_001-DOC_TYPE.
ENDIF.

* 填写锁定表：

__seqta_tab-gname = 'ZTBL_FI_CSTM_001'.
__seqta_tab-gmode = MODE_ZTBL_FI_CSTM_001.
__seqta_tab-garg = %a_ZTBL_FI_CSTM_001.
APPEND __seqta_tab.

* 指定的锁定：
PERFORM send_enqueue(saplsena)
TABLES __seqta_tab
USING '2' __scope ' ' __synchron 'EZ_FI_CSTM_001' _collect.

ENDFUNCTION.

ABAP 锁机制（LOCK OBJECT）（转）

相关推荐