锁定和解锁行记录

    在某项目中，按客户要求协同联动程序（直送、非直送）在收货或交货时对查询出来的一条记录用BDC录屏的方式在前台操作，因为前台操作的时间可能比较长，在某一个人进行操作的时候，必须锁定这条行记录，防止其他人操作，这样就用到了行记录锁定函数，把查出来用ALV显示的记录的某几个可以唯一标识该行的字段作为关键字P_KEY，调用行记录锁函数LOCK_RECORD，对该行记录进行锁定。这样，即使别人查出该条记录，在进行操作，会有行记录锁定的提示。调用该函数处理完该行后，可以调UnLock_RECORD函数进行解锁。也可以不调用，程序退出后，系统能进行自动解锁。也可以通过事务代码SM12进行解锁。

    这两个函数可以应用到所有的需要处理数据的程序中，防止几个人同时操作的并发。

 

函数如下：

 

*&---------------------------------------------------------------------*

*&      Form  LOCK_RECORD

*&---------------------------------------------------------------------*

*       text  锁定

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

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 %ZRECORD_LOCK,

            MANDT TYPE ZRECORD_LOCK-MANDT,

            FIELDKEY TYPE ZRECORD_LOCK-FIELDKEY,

      END OF %ZRECORD_LOCK.

 

      CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %ZRECORD_LOCK.

 

      MOVE SY-MANDT TO: %ZRECORD_LOCK-MANDT.

 

      IF NOT P_KEY IS INITIAL.

          MOVE P_KEY TO: %ZRECORD_LOCK-FIELDKEY.

      ENDIF.

 

      GNAME = 'ZRECORD_LOCK'.

      GARG = %ZRECORD_LOCK.

 

      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 '所选择记录正由' IT_SEQG3-GUNAME '处理!' INTO CMESSAGE.

          CONDENSE CMESSAGE.

          MESSAGE CMESSAGE TYPE 'E'.

      ELSE.

          CALL FUNCTION 'ENQUEUE_EZRECORD_LOCK'

               EXPORTING

                   MODE_ZRECORD_LOCK = '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

*&---------------------------------------------------------------------*

*       text  解锁

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

 

FORM UNLOCK_RECORD USING P_KEY.

    CALL FUNCTION 'DEQUEUE_EZRECORD_LOCK'

    EXPORTING

    MODE_ZRECORD_LOCK = 'E'

    MANDT = SY-MANDT

    FIELDKEY = P_KEY

    X_FIELDKEY = ' '

    _SCOPE = '3'

    _SYNCHRON = ' '

    _COLLECT = ' '.

 

ENDFORM.