ITPub博客

首页 > Linux操作系统 > Linux操作系统 > QUEUE 锁的应用

QUEUE 锁的应用

原创 Linux操作系统 作者:niuchao 时间:2019-05-26 16:45:04 0 删除 编辑
1. SE11 - create lock object (if named EZRSNO for test)

2. SE37 - autogeneration two FMs
     ENQUEUE_EZRSNO
     DEQUEUE_EZRSNO

3.  BEFORE USE
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } CALL FUNCTION 'ENQUEUE_EZRSNO'
        EXPORTING
          MODE_ZM02_RS01 = 'X'
          MANDT          = SY-MANDT
          ZRSNO          = GV_LOCK_RSNO
          WERKS          = P_WERKS
          X_ZRSNO        = ' '
          X_WERKS        = ' '
          _SCOPE         = '2'
          _WAIT          = ' '
          _COLLECT       = ' '
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2
          OTHERS         = 3.
      IF SY-SUBRC <> 0.
        LV_NAME =  SY-MSGV1.
        MESSAGE E000 WITH GV_LOCK_RSNO 'is locked by' LV_NAME.
      ENDIF.

4. AFTER USERD
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } CALL FUNCTION 'DEQUEUE_EZRSNO'
    EXPORTING
      MODE_ZM02_RS01 = 'X'
      MANDT          = SY-MANDT
      ZRSNO          = P_RSNO
      WERKS          = P_WERKS
      X_ZRSNO        = ' '
      X_WERKS        = ' '
      _SCOPE         = '3'
      _SYNCHRON      = ' '
      _COLLECT       = ' '.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-573190/,如需转载,请注明出处,否则将追究法律责任。

下一篇: BASIS 常用TCODE
请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    108111