ABAP——代码更改器

前言:在一些特殊情况下(请求传输限制、审批慢等)需要对系统中的自定义程序进行更改，这时候就可以用下面这段代码形成的程序实现我们的需求:

TABLES: rs38m.
DATA i_code TYPE TABLE OF string.
DATA: BEGIN OF srctab1 OCCURS 1,
txt(255) TYPE c,
END OF srctab1.
PARAMETERS: p_progm LIKE rs38m-programm OBLIGATORY MEMORY ID rid,
            p_uname LIKE sy-uname DEFAULT sy-uname .
READ REPORT p_progm INTO i_code."读取程序行到i_code中
IF p_progm(1) = 'Z' OR p_progm(2) = 'LZ' OR p_progm(4) = 'DEMO' or p_progm(1) = 'Y'.
  EDITOR-CALL FOR i_code."执行可编辑逻辑
ENDIF.
INSERT REPORT p_progm FROM i_code. "更改写入逻辑
PARAMETERS: rep LIKE trdir-name.

START-OF-SELECTION.
   sy-uname = 'SAP'.
   READ REPORT rep INTO srctab1.
   EDITOR-CALL FOR srctab1.
   IF sy-subrc = 0.
      INSERT REPORT rep FROM srctab1.
   ENDIF.

执行上面代码生成的程序，将测试或者生产系统需要更改的程序&INCLUDE文件名输入，执行后修改代码，然后保存即可。