醉逍遥

发表文章数:49

热门标签

首页 » ABAP代码库 » 正文

一、创建锁事务码:SE11 锁名称:EZTAR_T001
二、程序锁应用
1、加锁

  CALL FUNCTION 'ENQUEUE_EZTAR_T001'
    EXPORTING
      mode_ztar_t001 = 'E'
      mandt          = sy-mandt
      bukrs          = p_bukrs
      gjahr          = p_gjahr
      monat          = p_monat
      zar_type       = p_rtype
*     X_BUKRS        = ' '
*     X_GJAHR        = ' '
*     X_MONAT        = ' '
*     X_ZAR_TYPE     = ' '
*     _SCOPE         = '2'
*     _WAIT          = ' '
*     _COLLECT       = ' '
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
      OTHERS         = 3.

2、获取被锁定用户

  IF sy-subrc <> 0.
    CALL FUNCTION 'ENQUE_READ2'
      EXPORTING
        gclient = sy-mandt
        gname   = 'ZTAR_T001'
*       GARG    = ' '
        guname  = '*'
*       OPCODE2 = 1
*       IMPORTING
*       NUMBER  =
*       SUBRC   =
      TABLES
        enq     = lt_enq.
    LOOP AT lt_enq ASSIGNING FIELD-SYMBOL().
      lv_uname = -guname.
    ENDLOOP.
    lv_str = '当前操作数据已被' && lv_uname && '锁定!'.
    MESSAGE lv_str TYPE 'S' DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.

3、解锁

  CALL FUNCTION 'DEQUEUE_EZTAR_T001'
    EXPORTING
      mode_ztar_t001 = 'E'
      mandt          = sy-mandt
      bukrs          = p_bukrs
      gjahr          = p_gjahr
      monat          = p_monat
      zar_type       = p_rtype
*     X_BUKRS        = ' '
*     X_GJAHR        = ' '
*     X_MONAT        = ' '
*     X_ZAR_TYPE     = ' '
*     _SCOPE         = '3'
*     _SYNCHRON      = ' '
*     _COLLECT       = ' '
    .
标签:

未经允许不得转载:作者:醉逍遥, 转载或复制请以 超链接形式 并注明出处 SapiShare
原文地址:《SE11 自定义锁》 发布于2020-05-22

分享到:
赞(0) 生成海报

评论 抢沙发

评论前必须登录!

  注册



长按图片转发给朋友

Vieu4.0主题
专业打造轻量级个人企业风格博客主题!专注于前端开发,全站响应式布局自适应模板。
切换注册

登录

忘记密码 ?

切换登录

注册