SAP Lock Object简单实例

《SAP Lock Object简单实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、LockObject(锁控制)简单实例1.建立LockObject使用TCODE:SE11，選擇最後一項[加鎖物件]，輸入物件名稱(注意一定要以字母‘E’開頭，這是SAP內部規定的，如EZTEST01)2.輸入名稱後，按新增，進入界面後輸入要加鎖的Table名，及加鎖類型(E:專用，累計；S:共享；X:專用，不累計)。保存後，系統會自動產生兩個函數：ENQUEUE_EZTESTING（加鎖）和DEQUEUE_EZTESTING（解鎖）。有两种锁类型：共享锁——只读锁，一个用户正在读数据时，阻止其他用户更改该数据。独占锁——可写锁，一个

2、用户正在修改数据时，阻止其他用户更改该数据。3.然後在更改記錄前調用加鎖函數對記錄進行鎖定，在修改完成或退出修改後一定要對記錄進行解鎖。范例程序如下：*&---------------------------------------------------------------------**& Report  YLOCK_TEST01*&*&---------------------------------------------------------------------**&*&*&--------------------

3、-------------------------------------------------*REPORT  YLOCK_TEST01.TABLES:ZPICKLISTH.SELECTION-SCREEN BEGIN OF BLOCK VEN                            WITH FRAME TITLE TEXT-110.PARAMETERS: P_WERKS LIKE ZPICKLISTH-WERKS OBLIGATORY DEFAULT '2210', P_ZPKNO LIKE ZPICKLISTH

4、-ZPICKLNO OBLIGATORY DEFAULT 'TST1203000002'.SELECTION-SCREEN END OF BLOCK VEN.START-OF-SELECTION.PERFORM LOCK_RECORD USING P_WERKS P_ZPKNO.PERFORM UNLOCK_RECORD  USING P_WERKS P_ZPKNO.*&---------------------------------------------------------------------**&      Form 

5、 lock_record*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->P_KEY      text*----------------------------------------------------------------------*FORM 

6、LOCK_RECORD USING P_KEY1 P_KEY2.  DATA: IT_SEQG3 TYPE SEQG3 OCCURS 01 WITH HEADER LINE.  DATA: GNAME LIKE SEQG3-GNAME, GARG LIKE SEQG3-GARG.  DATA: BEGIN OF %ZPICKLISTH,    MANDT TYPE ZPICKLISTH-MANDT,    WERKS TYPE ZPICKLISTH-WERKS,    ZPICKLNO TYPE ZPICKLISTH-ZPICKLNO

7、,  END OF %ZPICKLISTH.  CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %ZPICKLISTH.  MOVE SY-MANDT TO: %ZPICKLISTH-MANDT.  MOVE P_KEY1 TO: %ZPICKLISTH-WERKS.  MOVE P_KEY2 TO: %ZPICKLISTH-ZPICKLNO.  GNAME = 'ZPICKLISTH'.  GARG = %ZPICKLISTH.  CALL FUNCTION 'ENQUEUE_READ'    EXPOR

8、TING      GCLIENT = SY-MANDT      GNAME   = GNAME      GARG    = GARG    TABLES      ENQ     = IT_SEQG3.  IF S