下面这部分代码可以实现根据程序查表
`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.`