夜雨聆风在 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 确认。
六、选型小结
一句话：
改 include、做一次性内部小工具 → 直接 SUBMIT rs_repair_source，省事且跨版本稳定；
要进生产、要可回滚、要走传输 → 别迷信"标准 = 安全"，把 enqueue、语法检查、主程序属性保护补回来。
而所有这类工具的共同前提是那行刺眼的注释：USE IT VERY, VERY, VERY CAREFULLY。
我是 #老周 ，如果你喜欢我的文字，请记得点击⬇️关注 #曰天曰地。
码字不易，文章下拉，右边点个【赞】和【在看】吧！！
猜您还喜欢合集：
#曰天曰地#老周 #解决方案 #SAP优化 #SAPNote #ABAP新语法 #ABAP #SAP
猜您还喜欢文章：
