abap对行记录进行锁定详解编程语言

在实际的运用中,可能对查询到的alv中的数据进行某些操作,而在操作的过程中,需要对正操作的数据进行锁定,防止在操作的过程中,他人进行操作,可以用以下方法对所操作的数据行进行锁定.

具体操作步骤：

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

2. 输入名称后，按新增，进入界面后输入要加锁的Table名，及加锁类型（E：专用,累计；S：共享；X：专用，不累计）。保存后，系统会自动生成两个函数： ENQUEUE_EZTESTING（加锁）和 DEQUEUE_EZTESTING（解锁）。

*&———————————————————————*
*& Report  Z009
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT  ZTEST.

perform LOCK_RECORD using ‘ZTEST’.

*锁行
FORM LOCK_RECORD USING P_KEY.
      DATA: IT_SEQG3 TYPE SEQG3 OCCURS 01 WITH HEADER LINE.
      DATA: GNAME LIKE SEQG3-GNAME, GARG LIKE SEQG3-GARG.

      DATA: BEGIN OF %ZTESTING,
            MANDT TYPE ZTESTING-MANDT,
            FIELDKEY TYPE ZTESTING-FIELDKEY,
      END OF %ZTESTING.

      CALL ‘C_ENQ_WILDCARD’ ID ‘HEX0’ FIELD %ZTESTING.

      MOVE SY-MANDT TO: %ZTESTING-MANDT.

      IF NOT P_KEY IS INITIAL.
          MOVE P_KEY TO: %ZTESTING-FIELDKEY.
      ENDIF.

      GNAME = ‘ZTESTING’.
      GARG = %ZTESTING.

      CALL FUNCTION ‘ENQUEUE_READ’
      EXPORTING
          GCLIENT = SY-MANDT
          GNAME = GNAME
          GARG = GARG
      TABLES
          ENQ = IT_SEQG3.

      IF SY-SUBRC <> 0.
          MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.

      IF IT_SEQG3 IS NOT INITIAL.
          DATA:CMESSAGE(100) TYPE C.
          CONCATENATE P_KEY ‘正由’ IT_SEQG3-GUNAME ‘处理!’ INTO CMESSAGE.
          CONDENSE CMESSAGE.
          MESSAGE CMESSAGE TYPE ‘E’.

      ELSE.

          CALL FUNCTION ‘ENQUEUE_EZTESTING’
               EXPORTING
                   MODE_ZTESTING = ‘E’
                   MANDT = SY-MANDT
                   FIELDKEY = P_KEY
                   X_FIELDKEY = ‘ ‘
                   _SCOPE = ‘2’
                   _WAIT = ‘ ‘
                   _COLLECT = ‘ ‘
               EXCEPTIONS
                   FOREIGN_LOCK = 1
                   SYSTEM_FAILURE = 2
                   OTHERS = 3.
          IF SY-SUBRC <> 0.
              MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.

      ENDIF.
ENDFORM.

*解锁：
FORM UNLOCK_RECORD USING P_KEY.
    CALL FUNCTION ‘DEQUEUE_EZTESTING’
    EXPORTING
    MODE_ZTESTING = ‘E’
    MANDT = SY-MANDT
    ZFIELDKEY = P_KEY
    X_ZFIELDKEY = ‘ ‘
    _SCOPE = ‘3’
    _SYNCHRON = ‘ ‘
    _COLLECT = ‘ ‘.

ENDFORM.