report.
data: lc_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.
评论