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文件名输入,执行后修改代码,然后保存即可。
作者:ITiger
出处:https://www.cnblogs.com/zyhcs/p/15535111.html
版权:本作品采用「署名-非商业性使用-相同方式共享 4.0 国际」许可协议进行许可。
转载请注明出处!
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步