SAP Lock Object简单实例.doc

Lock Object(锁控制)简单实例1. 建立 Lock Object 使用TCODE: SE11，選擇最後一項加鎖物件，輸入物件名稱(注意一定要以字母E開頭，這是SAP內部規定的，如EZTEST01)2. 輸入名稱後，按新增，進入界面後輸入要加鎖的Table名，及加鎖類型(E:專用，累計；S:共享；X:專用，不累計)。保存後，系統會自動產生兩個函數： ENQUEUE_EZTESTING（加鎖）和 DEQUEUE_EZTESTING（解鎖）。有两种锁类型：共享锁只读锁，一个用户正在读数据时，阻止其他用户更改该数据。独占锁可写锁，一个用户正在修改数据时，阻止其他用户更改该数据。3.然後在更改記錄前調用加鎖函數對記錄進行鎖定，在修改完成或退出修改後一定要對記錄進行解鎖。范例程序如下：*&-*&ReportYLOCK_TEST01*&*&-*&*&*&-*REPORTYLOCK_TEST01.TABLES:ZPICKLISTH.SELECTION-SCREENBEGINOFBLOCKVENWITHFRAMETITLETEXT-110.PARAMETERS:P_WERKSLIKEZPICKLISTH-WERKSOBLIGATORYDEFAULT2210,P_ZPKNOLIKEZPICKLISTH-ZPICKLNOOBLIGATORYDEFAULTTST1203000002.SELECTION-SCREENENDOFBLOCKVEN.START-OF-SELECTION.PERFORMLOCK_RECORDUSINGP_WERKSP_ZPKNO.PERFORMUNLOCK_RECORDUSINGP_WERKSP_ZPKNO.*&-*&Formlock_record*&-*text*-*-P_KEYtext*-*FORMLOCK_RECORDUSINGP_KEY1P_KEY2.DATA:IT_SEQG3TYPESEQG3OCCURS01WITHHEADERLINE.DATA:GNAMELIKESEQG3-GNAME,GARGLIKESEQG3-GARG.DATA:BEGINOF%ZPICKLISTH,MANDTTYPEZPICKLISTH-MANDT,WERKSTYPEZPICKLISTH-WERKS,ZPICKLNOTYPEZPICKLISTH-ZPICKLNO,ENDOF%ZPICKLISTH.CALLC_ENQ_WILDCARDIDHEX0FIELD%ZPICKLISTH.MOVESY-MANDTTO:%ZPICKLISTH-MANDT.MOVEP_KEY1TO:%ZPICKLISTH-WERKS.MOVEP_KEY2TO:%ZPICKLISTH-ZPICKLNO.GNAME=ZPICKLISTH.GARG=%ZPICKLISTH.CALLFUNCTIONENQUEUE_READEXPORTINGGCLIENT=SY-MANDTGNAME=GNAMEGARG=GARGTABLESENQ=IT_SEQG3.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.IFIT_SEQG3ISNOTINITIAL.DATA:CMESSAGE(100)TYPEC.CONCATENATEP_KEY1P_KEY2正由IT_SEQG3-GUNAME處理!INTOCMESSAGE.CONDENSECMESSAGE.MESSAGECMESSAGETYPEE.ELSE.CALLFUNCTIONENQUEUE_EZTEST01EXPORTINGMODE_ZPICKLISTH=EMANDT=SY-MANDTWERKS=P_KEY1ZPICKLNO=P_KEY2_SCOPE=2EXCEPTIONSFOREIGN_LOCK=1SYSTEM_FAILURE=2OTHERS=3.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.ENDIF.WRITE:Locked.ENDFORM.lock_record*&-*&Formunlock_record*&-*text*-*-P_KEYtext*-*FORMUNLOCK_RECORDUSINGP_KEY1P_KEY2.CALLFUNCTIONDEQUEUE_EZTEST01EXPORTINGMO