SAP ABAP 加锁和解锁

原著作者:SAP道长


具体操作步骤:

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.然后在更改记录前调用加锁函数对记录进行锁定,在修改完成或退出修改后一定要对记录进行解锁。



输入锁定表:



输入锁定表的字段:




然后在程序里调用:

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.
已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页