锁机制-动态通用锁

report.

datalc_varkey type rstable-varkey.
*---锁表
concatenate sy-mandt g_zfyno into lc_varkey.
call function 'ENQUEUE_E_TABLE'
  exporting
    mode_rstable   'E'       "锁类型
    tabname        'ZSDT013' "表名称
    varkey         lc_varkey "记录主键值
  exceptions
    foreign_lock   1
    system_failure 2
    others         3.
if sy-subrc <> 0.
  message id sy-msgid type 'E' number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
*---锁表
concatenate sy-mandt g_zfyno into lc_varkey.
call function 'ENQUEUE_E_TABLE'
  exporting
    mode_rstable   'E'       "锁类型
    tabname        'ZSDT013' "表名称
    varkey         lc_varkey "记录主键值
  exceptions
    foreign_lock   1
    system_failure 2
    others         3.
if sy-subrc <> 0.
  message id sy-msgid type 'E' number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.

你可能感兴趣的:(锁机制-动态通用锁)