使用Pattern调用自建的模板

最新推荐文章于 2022-04-28 16:09:36 发布

weixin_30633949

最新推荐文章于 2022-04-28 16:09:36 发布

阅读量139

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/senlinmu110/p/3802114.html

本文介绍了一个用于ABAP编程的模板实例，展示了如何通过TSE05表来定义程序注释，包括程序名称、功能说明、创建人等关键信息。

效果：

上面的注释内容，是模板带出来的

利用的是表：TSE05

可以自己进入该表查看相关信息

上例实例代码：

REPORT ZLM_TEST_MOBAN .

*&---------------------------------------------------------------------*
*&变量定义
*&---------------------------------------------------------------------*
DATA : wa_tse05 TYPE tse05 ,
      it_tse05 TYPE TABLE OF tse05 .

*&---------------------------------------------------------------------*
*&变量定义
*&---------------------------------------------------------------------*
wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .                                          "key
wa_tse05 - position = 1 .                                                  "第一行
wa_tse05 - line = '*&---------------------------------------------------------------------*' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 2 .                                                  "第二行
wa_tse05 - line = '*& 程序名  :' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 3 .                                                  "第三行
wa_tse05 - line = '*& 功能说明:' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 4 .
wa_tse05 - line = '**& 创建人  :' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 5 .
wa_tse05 - line = '*& 创建时间:' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 6 .
wa_tse05 - line = '*& 修改记录:' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 7 .
wa_tse05 - line = '*& 请求号|修改人|修改时间' .
APPEND wa_tse05 TO it_tse05 .

wa_tse05 -app_obj   = 'ABAP' .
wa_tse05 -keyword   = 'REPORT1' .
wa_tse05 - position = 8 .
wa_tse05 - line = '*&---------------------------------------------------------------------*' .
APPEND wa_tse05 TO it_tse05 .

MODIFY tse05 FROM TABLE it_tse05 .

这段代码执行完后，就没用了.

转载于:https://www.cnblogs.com/senlinmu110/p/3802114.html