这段ABAP代码用于从程序中读取报告，扫描源代码获取关键字，并过滤出包含'TABLES'的语句。它涉及到ABAP的源代码解析、表处理和字符串操作。
下面这部分代码可以实现根据程序查表
`REPORT Z_LX_104.
CONSTANTS: TABLES TYPE STRING VALUE ‘TABLES’.
DATA: IKEYWORDS TYPE STANDARD TABLE OF TEXT20 WITH HEADER LINE.
DATA: CASTPROGRAMNAME TYPE PROGRAM.
DATA: IINCLUDELINES TYPE STANDARD TABLE OF STRING WITH HEADER LINE.
DATA: ITOKENS TYPE STANDARD TABLE OF STOKES WITH HEADER LINE.
DATA: ISTATEMENTS TYPE STANDARD TABLE OF SSTMNT WITH HEADER LINE.
READ REPORT ‘ZDMSIT001’ INTO IINCLUDELINES.
APPEND TABLES TO IKEYWORDS.
SCAN ABAP-SOURCE IINCLUDELINES TOKENS INTO ITOKENS WITH INCLUDES STATEMENTS INTO ISTATEMENTS KEYWORDS FROM IKEYWORDS.
CLEAR IINCLUDELINES[].
SORT ITOKENS ASCENDING BY STR.
DELETE ITOKENS WHERE STR = TABLES.`
扫一扫
585
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
