在 ABAP 里直接改 ABAP 源码

在 ABAP 里直接改 ABAP 源码：从四行裸写到标准 RS_REPAIR_SOURCE，再到一个生产级折中

偶尔会有"程序改程序"的需求：批量替换某段代码、做个内部小工具、动态生成 include…… ABAP 里确实可以用 READ REPORT / EDITOR-CALL / INSERT REPORT 直接读写源码。但这条路上埋着好几个会静默损坏源码或重置程序属性的坑。本文把这条认知链走一遍：朴素写法 → 标准 RS_REPAIR_SOURCE 的真实面目 → 取两者之长的生产级模板。

一、最朴素的四行写法，以及它的每一行都是坑

很多人第一版会写成这样：

REPORT zabap_edit.DATA: BEGINOFitabOCCURS0,line(200),ENDOFitab.PARAMETERS: progrmm(30).READREPORT progrmm INTOitab.EDITOR-CALLFORitab.INSERTREPORT progrmm FROMitab.

能跑，但几乎每一行都有问题，按严重程度排：

1.line(200)—— 行宽不够会静默吃掉代码。 ABAP 源码单行上限是 255 个字符。用 200 取，超过 200 的行会被悄悄截断；接着 INSERT REPORT 把截断后的版本写回去，行尾代码就这么没了，且不报错。正确做法是 c LENGTH 255。

2.INSERT REPORT裸写会重置程序属性。按 ABAP 文档，不加 KEEPING DIRECTORY ENTRY 时，INSERT REPORT 会重新派生 TRDIR 里的程序属性（程序类型、状态、固定小数运算、Unicode 检查等）为默认值。对一个**主程序（REPORT，类型 1）**来说，这就是"保存后程序类型莫名其妙变了"的事故源头。（注意：这条对 include 不成立，后面会专门说明。）

3.progrmm(30)—— 程序名长度不够。program / syrepid 是 40 长度，30 会截断长名字（尤其增强、定义类 include）。

4. 没有加锁。两个人同时编辑会互相覆盖，最后写入的赢。

5.EDITOR-CALL FOR itab没有"取消"返回码。用户在编辑器里点了取消，你也照样会把内表写回去。

6. 回写前不做语法检查。把语法错误的源码写进数据库，程序当场报废。

二、标准答案：RS_REPAIR_SOURCE 到底是什么

很多资料把 RS_REPAIR_SOURCE 当成 function module，这是个常见误解。它其实是 SAP\_BASIS 里的一个标准报表程序（Auxiliary Editor，辅助编辑器），应用组件 BC-DWB-TOO-FUB。所以它不是 CALL FUNCTION，而是 SUBMIT：

SUBMIT rs_repair_sourceWITHinclude  = lv_prog     " 目标程序/include 名WITHversion  = 'A'" r3state：'A' 激活版 / 'I' 未激活版WITH display  = space       " space=可编辑, 'X'=只读WITH edt_call = 'X'" 三选一：编辑器 / 文本控件 / 调试器ANDRETURN.

它提供三种 UI 模式：经典编辑器（edt_call）、CL_GUI_TEXTEDIT 文本控件（txt_cntl）、以及直接进调试器（debugger）。它跨版本（R/3 4.x → ECC 6.0 → S/4HANA）名字一直稳定，没有改过名——但最权威的确认方式仍是在你自己的系统里 SE38/SE84 搜一下。

拆解它的核心做法

把标准源码里值得学的几点拎出来：

用EDITOR_TABLE拿返回码，而不是裸EDITOR-CALL。这正好补上了朴素版第 5 个坑——它返回 subrc，只有 subrc = 0 才保存：

CALLFUNCTION'EDITOR_TABLE'EXPORTING display = displayIMPORTING subrc   = subrcTABLES    content = source_tab.IF subrc = 0.PERFORM save_include.ENDIF.

READ/INSERT REPORT ... STATE version。带 STATE（r3state，默认 'A'）可以分别读写激活版与未激活版，朴素版完全没考虑这一层。

include 用EXTENSION TYPE处理后缀。对名字超过 30 位的特殊 include（增强 E、定义 D 等），它会取后缀再写：

INSERTREPORTincludeFROM source_tabEXTENSIONTYPE l_suffix  STATE version.

一条完整的权限链。这是它比朴素版强最多的地方：

S_TCODE（SE38）—— 事务级权限
S_DEVELOP（显示 03 / 修改 02）—— 对象级开发权限
TR_SYS_PARAMS —— 读系统 systemedit 与客户端 sys_cliinddep_edit，即 SCC4 / SE06 的可修改性设置；系统设为不可改、或客户端禁止改 Repository 对象，直接拦
DEVELOPER_CHECK —— 开发者注册检查

三、一个容易想当然的点：KEEPING DIRECTORY ENTRY 的真相

很多人（包括我自己最初）会把"INSERT REPORT 不加 KEEPING DIRECTORY ENTRY"当成铁律级的事故源头。但翻开标准 RS_REPAIR_SOURCE 的 save_include，会发现它偏偏没加——就是裸 INSERT REPORT ... STATE version。

对照之后原因就清楚了：这个工具是为 include 设计的（参数名就叫 include，消息文本是 'INCLUDE'，那段后缀处理也是冲着增强/定义 include 去的）。include 的 TRDIR 属性基本只有"类型 I"，重新派生默认值不会有实质损失。所以更准确的结论是：

KEEPING DIRECTORY ENTRY 的缺失，对 include 无害；但若你拿同样的逻辑去保存一个主程序（REPORT / 类型 1 / 模块池等），属性被重置就是真问题。

这也正是它顶上那行 USE IT VERY, VERY, VERY CAREFULLY 的来由之一。

四、标准工具"省略"了什么，以及为什么它是个后门

更反直觉的是：RS_REPAIR_SOURCE 只做"权限 + 可改性"校验，然后直接把源码拍回数据库。它没有：

加锁（没有 enqueue，不防并发覆盖）
挂传输请求（不走 correction/transport）
语法检查
版本管理（不自动建版本）

正因为它绕过了 enqueue / correction / 版本这一整套机制、只靠权限挡人，SAP 历史上把它列为著名的"后门程序"，专门发过安全 Note 1167258 去补权限检查。所以这里要分清楚：

"标准" = SAP 出厂自带的底层 repair 入口，不等于"最佳实践"。

换句话说：要"省事、跨版本一致的入口"（尤其改 include），SUBMIT rs_repair_source 没问题；要"安全、可回滚、走传输"的生产级改法，你得自己把 enqueue、语法检查、版本/传输补回来。

五、取两者之长：一个生产级模板

综合标准源码的优点（EDITOR_TABLE 拿 subrc、STATE 版本、include 分流）和朴素版缺的护栏（加锁、语法检查、主程序保留 directory entry）：

REPORT zabap_edit_safe.TYPES ty_line TYPE c LENGTH255.            " 必须 255，否则截断丢码DATA: gt_source TYPESTANDARDTABLEOF ty_line,      gt_before TYPESTANDARDTABLEOF ty_line.DATA: gv_locked TYPE abap_bool,      gv_subrc  TYPE sy-subrc,      gv_subc   TYPE trdir-subc,      gv_msg    TYPE string,      gv_lin    TYPE i,      gv_wrd    TYPE string.PARAMETERS: p_prog  TYPEprogramOBLIGATORY,    " 用 program(40)，非 (30)            p_state TYPE r3state DEFAULT'A',   " 激活版/未激活版            p_disp  ASCHECKBOXDEFAULT space.  " X = 只读START-OF-SELECTION.PERFORM main.*&---------------------------------------------------------------------*FORM main." 1) 存在性 + 程序类型（区分 include 与主程序）SELECTSINGLE subc FROM trdir INTO gv_subc WHERE name = p_prog.IF sy-subrc <> 0.MESSAGE |程序 { p_prog } 不存在| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF." 2) 权限（修改 02 / 显示 03）。生产环境建议再补 TR_SYS_PARAMS +"    DEVELOPER_CHECK，逻辑照搬 RS_REPAIR_SOURCE 的 authority_check。DATA lv_act TYPE c LENGTH2.  lv_act = COND #( WHEN p_disp = 'X'THEN'03'ELSE'02' ).  AUTHORITY-CHECKOBJECT'S_DEVELOP'    ID 'DEVCLASS' DUMMY ID 'OBJTYPE'FIELD'PROG'    ID 'OBJNAME'FIELD p_prog ID 'P_GROUP' DUMMY    ID 'ACTVT'FIELD lv_act.IF sy-subrc <> 0.MESSAGE |无程序 { p_prog } 的开发权限| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF." 3) 读源码（带 STATE）READREPORT p_prog INTO gt_source STATE p_state.IF sy-subrc <> 0.MESSAGE |读取失败 (subrc={ sy-subrc })| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF." 4) 只读模式：显示完即退IF p_disp = 'X'.CALLFUNCTION'EDITOR_TABLE'EXPORTING display = 'X'IMPORTING subrc   = gv_subrcTABLES    content = gt_source.RETURN.ENDIF." 5) 加锁（与 SE38 同款，顺带挂传输请求）"    注意：RS_ACCESS_PERMISSION 各版本异常列表略有差异，"    object_class / mode 的取值请在 SE37 按接口核对后再用。PERFORM lock USING'MODIFY'.IF gv_locked <> abap_true.MESSAGE |程序 { p_prog } 已锁定或无法加锁| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF." 6) 编辑：用 EDITOR_TABLE 的 subrc 判断是否取消  gt_before = gt_source.CALLFUNCTION'EDITOR_TABLE'EXPORTING display = spaceIMPORTING subrc   = gv_subrcTABLES    content = gt_source.IF gv_subrc <> 0OR gt_source = gt_before.PERFORM lock USING'FREE'.MESSAGE'已取消或内容未变化，放弃保存'TYPE'S'. RETURN.ENDIF." 7) 回写前语法检查  SYNTAX-CHECKFOR gt_sourceMESSAGE gv_msg LINE gv_lin WORD gv_wrd PROGRAM p_prog.IF sy-subrc <> 0.PERFORM lock USING'FREE'.MESSAGE |语法错误(行 { gv_lin }): { gv_msg }| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF." 8) 回写：include 与主程序分流"    - include（subc = 'I'）：照标准，可不加 KEEPING"    - 其余（主程序/模块池/函数组…）：加 KEEPING DIRECTORY ENTRY 保属性IF gv_subc = 'I'.INSERTREPORT p_prog FROM gt_source STATE p_state.ELSE.INSERTREPORT p_prog FROM gt_source KEEPINGDIRECTORY ENTRY STATE p_state.ENDIF.IF sy-subrc <> 0.PERFORM lock USING'FREE'.MESSAGE |回写失败 (subrc={ sy-subrc })| TYPE'S' DISPLAY LIKE'E'. RETURN.ENDIF.PERFORM lock USING'FREE'.COMMITWORK.MESSAGE |程序 { p_prog } 已保存| TYPE'S'.ENDFORM.*&---------------------------------------------------------------------*FORM lock USING iv_mode TYPE c.CALLFUNCTION'RS_ACCESS_PERMISSION'EXPORTING      global_lock  = 'X'mode         = iv_mode          " MODIFY / SHOW / FREEobject       = p_prog      object_class = 'ABAP'EXCEPTIONSOTHERS       = 1.  gv_locked = COND #( WHEN iv_mode = 'FREE'THENabap_falseWHEN sy-subrc = 0THENabap_trueELSEabap_false ).ENDFORM.

⚠️ 两处必须自己核对的接口：
RS_ACCESS_PERMISSION 的 object_class / mode 取值与异常列表，各版本略有差异，请在 SE37 对照后再用。
"保存即建版本"如果要做，更稳的是依赖传输请求释放时系统自动建版本这条不依赖具体 FM 的路径；若坚持即时建版本，相关内部 FM（SVRS_* / RS_VERSION_* 一类）签名各版本不一致，同样需在 SE37 确认。

六、选型小结

维度	四行裸写	标准 RS_REPAIR_SOURCE	生产级折中模板
行宽安全（255）	❌ 易截断	✅	✅
取消检测	❌	✅（EDITOR_TABLE subrc）	✅
激活/未激活版（STATE）	❌	✅	✅
权限校验	几乎没有	✅ 完整（S_TCODE/S_DEVELOP/可改性）	✅（可照搬补全）
主程序属性保护	❌	❌（为 include 设计）	✅（分流 KEEPING）
加锁 / 防并发	❌	❌	✅
语法检查	❌	❌	✅
走传输 / 版本	❌	❌	⚠️ 需自行接