鎖定表操作

1.SE11鎖物件查詢或者建立鎖對象，形式為E+表名等，如EYTSN02，對應產生鎖定函數ENQUEUE_EYTVIN、解鎖函數EQUEUE_EYTVIN

2.調用函數鎖定表，並進行表操作，操作完成解鎖表

* LOCK TABLE YTVIN

          CALL FUNCTION 'ENQUEUE_EYTVIN'
            EXPORTING
              mandt          = sy-mandt
            EXCEPTIONS
              foreign_lock   = 1
              system_failure = 2
              OTHERS         = 3.

          IF sy-subrc <> 0.
* Table lock error.
            MESSAGE e398(00) WITH '資料庫鎖定出錯! 出錯代碼'
                            sy-subrc.
          ENDIF.

          YTVIN-FIELD = VALUE.
          INSERT YTVIN.
          IF sy-subrc = 0.
            COMMIT WORK.
          ELSE.
            ROLLBACK WORK.
* Record updated fail
            MESSAGE s398(00) WITH '記錄更新失敗'.
          ENDIF.
* 更新操作完畢, 解鎖
          CALL FUNCTION 'DEQUEUE_EYTVIN'
            EXPORTING
              mandt = sy-mandt.