精华内容
下载资源
问答
  • ABAP 程序运行

    2019-10-06 19:59:05
    1. create a Table ZRUNNING_LOCK (tcode:se11)fields: MANDT , ...2. create Lock object EZRUNLOCK (tcode:se11)短文本 程序运行 3. 如果需对程序加锁,则在程序中执行perform do_lock 4. 如果需对程序解...

    1. create a Table ZRUNNING_LOCK (tcode:se11) 
    fields: MANDT , PROGNAME

    2. create Lock object        EZRUNLOCK (tcode:se11) 
    短文本             程序运行锁

    3. 如果需对程序加锁,则在程序中执行 
      perform do_lock

    4. 如果需对程序解锁,则在程序中执行 
      perform release_lock

     

     

    ————————————————————– 
    DEQUEUE_EZRUNLOCK              释放对象 EZRUNLOCK 的锁定 
    ENQUEUE_EZRUNLOCK              对象 EZRUNLOCK 要求的锁定

    *&———————————————————————* 
    *&  Include           ZILOCKFUN01 
    *&———————————————————————* 
    * 程序运行锁, 控制同一时间只有一个程序在运行 
    *———————————————————————- 
    *&——————————————————————–* 
    *&      Form  do_lock 
    *&——————————————————————–* 
    *       提交一个锁定 
    *———————————————————————* 
    *      –>PI_PROGNAME 程序名 
    *      –>PI_WAIT    是否等待 
    *      –>PI_SHOW_MSG 是否显示消息 
    *      –>PO_SUBRC 返回状态 
    *      –>PO_MSG     返回的消息 
    *———————————————————————* 
    FORM do_lock USING pi_progname TYPE progname 
                                       pi_wait TYPE c      "X=waiting 
                              CHANGING po_subrc TYPE c     "0=OK,非0=Error 
                                       po_msg TYPE text100. 
      CALL FUNCTION ‘ENQUEUE_EZRUNLOCK’ 
       EXPORTING 
         mode_zrunning_lock       = ‘E’ 
         mandt                    = sy-mandt 
         progname                 = pi_progname 
    *   X_PROGNAME               = ‘ ‘ 
    *   _SCOPE                   = ’2′ 
         _wait                    = pi_wait 
    *   _COLLECT                 = ‘ ‘ 
       EXCEPTIONS 
         foreign_lock             = 1 
         system_failure           = 2 
         OTHERS                   = 3.

      IF sy-subrc <> 0. 
        po_subrc = ’1′. 
        IF sy-subrc = 1. 
          CONCATENATE ‘另一用户’ sy-msgv1 ‘正在运行该程序!’ INTO po_msg 
                            SEPARATED BY space. 
        ELSE. 
          po_msg = ‘锁定该程序时出错!’. 
        ENDIF. 
      ELSE. 
        po_subrc = ’0′. 
      ENDIF. 
    ENDFORM.                    "do_lock 
    *&——————————————————————–* 
    *&      Form  release_lock 
    *&——————————————————————–* 
    *       释放锁定 
    *———————————————————————* 
    *      –>PI_PROGNAME 程序名 
    *———————————————————————* 
    FORM release_lock USING pi_progname TYPE progname. 
      CALL FUNCTION ‘DEQUEUE_EZRUNLOCK’ 
       EXPORTING 
         mode_zrunning_lock       = ‘E’ 
         mandt                    = sy-mandt 
         progname                 = pi_progname 
    *     X_PROGNAME               = ‘ ‘ 
    *     _SCOPE                   = ’3′ 
    *     _SYNCHRON                = ‘ ‘ 
    *     _COLLECT                 = ‘ ‘ 
                .

    ENDFORM.                    "release_lock

    转载于:https://www.cnblogs.com/aBaoRong/archive/2012/06/15/2550458.html

    展开全文
  • 关键字:Unlock ABAP Program editor lock 方法1:在已有SE38创建修改权限的情况下 REPORT ZUNLOCK. TABLES: TRDIR. "System table TRDIR PARAMETERS: PROGRAM LIKE TRDIR-NAME. PARAMETERS: LOCK LIKE TRDIR-EDTX...

    关键字:Unlock ABAP Program editor lock

    方法1:在已有SE38创建修改权限的情况下

    REPORT ZUNLOCK. 
    TABLES: TRDIR. "System table TRDIR 
    PARAMETERS: PROGRAM LIKE TRDIR-NAME. 
    PARAMETERS: LOCK LIKE TRDIR-EDTX. 
    SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM. 
    TRDIR-EDTX = LOCK. 
    MODIFY TRDIR. 
    IF SY-SUBRC EQ 0. 
       WRITE: / 'Editor Lock update Successful ', TRDIR-NAME. 
       IF TRDIR-EDTX = 'X'. 
          WRITE: ' Lock'. 
       ELSE. 
          WRITE: ' UnLock'. 
       ENDIF. 
    ELSE. 
        WRITE: / 'Editor Lock update Unsuccessful ', TRDIR-NAME. 
    ENDIF.

    方法2:在没有SE38创建修改权限的情况下

    运行SE30/Tips&Tricks/在最右边文件框输入:

    Update PROGDIR set edtx = '' 
    Where name = 'PROGRAM' . "将PROGRAM替换为你要修改的程序名

    执行后即可解除成功。

    如果要加锁,同理,设置:edtx = 'X' 
    此方法比较常用的破解ABAP ACCESS KEY时解除程序LSKEYF00的编辑锁。

    方法3:SE16/SE16N修改透明表TRDIR字段EDTX的值(注:对ECC6无效)
     

    展开全文
  • 1.1 当我们用se37修改程序,用SM30修改表,或者MM02等程序修改前台数据时,则程序被占用,则其他人无法进行编辑,出现如下情况: 1.2 解决方式:输入事务码SM12,输入使用者进入表后,选中行项目,删除,即可...

    1.1   当我们用se37修改程序,用SM30修改表,或者MM02等程序修改前台数据时,则程序被占用,则其他人无法进行编辑,出现如下情况:

     

    1.2  解决方式:输入事务码SM12,输入使用者进入表后,选中行项目,删除,即可解除锁定。

    展开全文
  • ABAP程序 加锁/解锁

    2015-07-09 10:43:16
    REPORT ZEDITOR. TABLES: TRDIR. "System table TRDIR PARAMETERS: PROGRAM LIKE TRDIR-NAME. ...PARAMETERS: EDITOR LIKE TRDIR-EDTX....SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM. ...TRDIR-EDTX =

    REPORT ZEDITOR.

    TABLES: TRDIR. "System table TRDIR

    PARAMETERS: PROGRAM LIKE TRDIR-NAME.
    PARAMETERS: EDITOR  LIKE TRDIR-EDTX.

    SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM.

    TRDIR-EDTX = EDITOR.
    MODIFY TRDIR.
    IF SY-SUBRC EQ 0.
       WRITE: / 'Editor Lock update Successful ', TRDIR-NAME.
       IF TRDIR-EDTX = 'X'.
          WRITE: ' Lock'.
       ELSE.
          WRITE: ' UnLock'.
       ENDIF.
    ELSE.
       WRITE: / 'Editor Lock update Unsuccessful ', TRDIR-NAME.
    ENDIF.

    展开全文
  • 前言:在SAP中对于一些重要的程序,可能会要求处理并发的情况,在有用户操作的情况下不允许其他用户进行操作,以此来保证数据及程序的安全。 使用技术:ENQUEUE_ES_PROG和 DEQUEUE_ES_PROG,这两个function 是SAP...
  • ABAP 锁对象与加锁机制(程序锁)

    千次阅读 2013-05-13 18:33:35
    SAP机制 一、SAP为什么要设置: 1,保持数据的一致性 如果几个用户要访问同样的资源,需要找到一种同步访问的方法去保持数据的一致性。比如说,在航班预订系 统中,需要检查还有没有空座位,当检查的时候,你不...
  • 关键字:Unlock ABAP Program editor lock 方法1:在已有SE38创建修改权限的情况下 REPORT ZUNLOCK. TABLES: TRDIR. "System table TRDIR PARAMETERS: PROGRAM LIKE TRDIR-NAM...
  • ABAP锁、数据库

    2018-05-10 15:50:16
    ABAP数据锁定SM12查看与维护通用加锁与解锁函数ABAP程序锁定数据库锁锁的分类和兼容性并发性与的权衡数据库的事务隔离级别在JDBC应用程序中设置隔离级别在应用程序中采用悲观和乐观由数据库系统独占实现...
  • abap editer 解锁枷锁

    2008-04-30 15:29:00
    TABLES: trdir. "系统表 TRDIR PARAMETERS: program LIKE trdir-name. PARAMETERS: editor LIKE trdir-edtx. SELECT SINGLE * FROM trdir WHERE name = program. ... WRITE: / '未找到程序:', program. ENDIF.
  • 对象激活后,会在系统中自动产生两个函数,分别用于表对象的锁定及表对象的释放。 创建锁定的函数的命名规则为:ENQUEUE_+对象名,下面用到的创建对象的函数为ENQUEUE_EZSPFLI。... 在ABAP程序执行中...
  • ABAP锁,数据库

    2019-09-22 09:49:09
    ABAP程序锁定 数据库 的分类和兼容性 并发性与的权衡 数据库的事务隔离级别 在JDBC应用程序中设置隔离级别 在应用程序中采用悲观和乐观 由数据库系统独占实现悲观 利用版本控制...
  • ABAP程序运行锁定

    2019-09-22 09:52:05
    转自http://www.cnblogs.com/aBaoRong/archive/2012/06/15/2550458.html ABAP 程序运行 1. create a Table ZRUNNING_LOCK (tcode:se11)fields: MANDT , PROGNAME 2. create Lock object EZRUNLOCK (tco...
  • ABAP程序锁定

    千次阅读 2016-10-31 14:39:33
    除了数据库有锁定外,ABAP程序本身也有锁定。   SAP提供了两个函数来解决程序运行时的同步锁定问题:ENQUEUE_ES_PROG和DEQUEUE_ES_PROG。 CALL FUNCTION 'ENQUEUE_ES_PROG' * EXPORTING * MODE_TRDIR = 'E...
  • SAP ABAP 语言的是在语言层面设计的一种机制,它是一种逻辑,独立于数据库。 SAP 帮助 给出了一个例子:在 SAP 示例数据订票系统中,为了避免订票过度,通过 E_Booking 对象来对两个数据库表 SFLIGHT ...
  • 1.概要 ...对象是在SE11中可以创建/变更/查询的ABAP对象,起着同期化数据的作用。如下图1-1所示,当“程序1” 修改数据时使“程序2”不能访问数据。因为这时的“程序1”给相应数据加了。   ...
  • ABAP 对象

    2021-05-14 13:37:45
    ABAP锁、数据库 *&---------------------------------------------------------------------* *& FORM GET_ALV_DATA *&---------------------------------------------------------------------* * ...
  • 我写了一个例子,调用函数ZVIEW_MAINTENANCE_CALL来维护视图,运行结果来看一下:先修改公司2001 窗口保持编辑状态不退出, 再打开一个窗口,运行程序,更改公司2003,是可以更改的。 再看看SM12,有两条不一样的...
  • 影响ABAP程序的运行效率主要是在程序中大量数据的取得,如果取数不得方法,很影响报表的运行效率,所有优化ABAP程序主要是优化数据取数的方法。下面这几点可以有效的提高取数的效率,从而来提高程序的运行效率。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 835
精华内容 334
关键字:

abap程序锁