SAP 不通过请求直接更改源代码

最新推荐文章于 2024-05-21 22:56:01 发布

Eron_lu

最新推荐文章于 2024-05-21 22:56:01 发布

阅读量184

点赞数

分类专栏： abap 文章标签：制造

本文链接：https://blog.youkuaiyun.com/Eron_lu/article/details/132617422

版权

abap 专栏收录该内容

1 篇文章

订阅专栏

REPORT zchange_rp.
TABLES: rs38m.

PARAMETERS:
  progm LIKE rs38m-programm OBLIGATORY MEMORY ID rid DEFAULT 'YW_TEMP',
  uname LIKE sy-uname DEFAULT sy-uname.

IF uname EQ 'ERONLU'.

* 编辑代码
  DATA i_code TYPE TABLE OF string.
  READ REPORT progm INTO i_code.
  IF progm(1) = 'Z'
    OR progm(1) = 'Y'
    OR progm(2) = 'LZ'.
*  OR PROGM(4) = 'DEMO'
*  OR PROGM(2) = 'YW'
*  OR UNAME EQ 'CN09180015'
*  OR UNAME EQ '09180015'
*  OR UNAME EQ 'SAP'.
    EDITOR-CALL FOR i_code.
  ENDIF.

* 保存
  IF sy-ucomm = 'WB_SAVE' OR sy-ucomm IS INITIAL.
* SY-UNAME = UNAME.
    INSERT REPORT progm FROM i_code.
  ENDIF.

ELSE.
  MESSAGE e000(zewm) WITH '已禁用，请用传输方式' DISPLAY LIKE 'E'.

ENDIF.