APBP--Find Unused Includes

ABAP未使用包含报告

最新推荐文章于 2025-02-03 09:53:31 发布

原创最新推荐文章于 2025-02-03 09:53:31 发布 · 2.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#include #table #list #report #types

18 SAP TOOL 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种通过ABAP编程获取系统中未被使用的包含（INCLUSION）的方法。通过查询系统表d010sinf和d010inc，筛选出所有以Z开头但未被任何程序调用的包含文件。这些包含文件可能因为不再需要或冗余而未被使用。

REPORT zunusedincludes.

TYPES:
BEGIN OF t_all_includes,
prog LIKE d010sinf-prog,
END OF t_all_includes,

BEGIN OF t_used_includes,
include LIKE d010inc-include,
END OF t_used_includes.

DATA:
itab_all_includes TYPE STANDARD TABLE OF t_all_includes,
itab_used_includes TYPE STANDARD TABLE OF t_used_includes,
wa_all_includes TYPE t_all_includes,
wa_used_includes TYPE t_used_includes.

START-OF-SELECTION.
* get a list of all includes first
*(the appl ne 'S' removes classes* from the list)

SELECT prog
    INTO TABLE itab_all_includes
FROM d010sinf
WHERE prog LIKE 'Z%'
    AND subc = 'I'
    AND appl NE 'S'.
SORT itab_all_includes BY prog.

* this table is a list of includes with parent program
SELECT include
INTO TABLE itab_used_includes
FROM d010inc
WHERE include LIKE 'Z%'.
SORT itab_used_includes BY include.

* now list the includes that are not in the above table
LOOP AT itab_all_includes INTO wa_all_includes.
    READ TABLE itab_used_includes
                            WITH KEY include = wa_all_includes-prog
                            TRANSPORTING NO FIELDS
                            BINARY SEARCH.

    IF sy-subrc NE 0.
      WRITE:/
             wa_all_includes-prog.
    ENDIF.
ENDLOOP.