APBP--Find Unused Includes

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.