货铺QQ群号:834508274
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合
效果:
上面的注释内容,是模板带出来的
利用的是表: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.
当然,实现这个功能,还有别的方法,这里只是其中一种而已。