【ABAP】关于ECP直接修改ABAP代码

1.针对REPORT

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.

READ REPORT prog INTO itab [MAXIMUM WIDTH INTO wid].

标准代码实例：

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.

结果为： 1.    

　　GENERATE SUBROUTINE POOL itab NAME prog MESSAGE mess SHORTDUMP-ID sid. "通过现有代码,生成可执行程序

 

EDITOR-CALL FOR REPORT prog [DISPLAY-MODE].

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.

2.使用SE37->TRINT_OBJECTS_CHECK_AND_INSERT: 487行断点，ct_ko200[]内表清空更改。