关于ECP直接修改ABAP代码

REPORT zfc_mm_change.
TABLES: rs38m.
PARAMETERS: p_progm LIKE rs38m-programm OBLIGATORY MEMORY ID rid,
            p_uname LIKE sy-uname DEFAULT sy-uname .
DATA i_code TYPE TABLE OF string.

READ REPORT p_progm INTO i_code."读取程序行到i_code中
IF p_progm(1) = ‘Z‘ OR p_progm(2) = ‘LZ‘ OR p_progm(4) = ‘DEMO‘.
  EDITOR-CALL FOR i_code."执行可编辑逻辑
ENDIF.

IF sy-ucomm = ‘WB_SAVE‘.
  sy-uname = p_uname.
  INSERT REPORT p_progm FROM i_code. "更改写入逻辑
ENDIF.

DATA prog TYPE c LENGTH 30. 
DATA itab TYPE TABLE OF string. 

prog  = ‘...‘. 

READ REPORT prog INTO itab. 

IF sy-subrc = 0. 
  APPEND ‘FORM subr.‘            TO itab. 
  ... 
  APPEND ‘PERFORM ...‘ TO itab. 
  APPEND ‘ENDFORM.‘    TO itab. 
  GENERATE SUBROUTINE POOL itab NAME prog. 
  PERFORM (‘SUBR‘) IN PROGRAM (prog). 
ENDIF. 

REPORT zfr_test.

DATA prog TYPE c LENGTH 30.
DATA itab TYPE TABLE OF string.
DATA: mess TYPE string,
      sid  TYPE string.

prog  = ‘ZFR_TEST11‘.

READ REPORT prog INTO itab.
IF sy-subrc = 0.
  APPEND ‘FORM TEST.‘ TO itab.
  APPEND ‘WRITE: 1.‘ TO itab.
  APPEND ‘ENDFORM.‘    TO itab.
  GENERATE SUBROUTINE POOL itab NAME prog MESSAGE mess SHORTDUMP-ID sid.
  PERFORM (‘TEST‘) IN PROGRAM (prog) IF FOUND.
ENDIF.

REPORT ZFR_TEST11.

REPORT zfr_test.

DATA prog TYPE c LENGTH 30.
DATA itab TYPE TABLE OF string.

prog  = ‘ZFR_TEST11‘.
READ REPORT prog INTO itab. "读取代码
EDITOR-CALL FOR itab ."DISPLAY-MODE. 设置代码可编辑

IF sy-ucomm = ‘WB_SAVE‘.
  INSERT REPORT prog FROM itab. "代码写入
ENDIF.