Posted: Wed Sep 05, 2007 10:35 am Post subject: Find no used includes
Author: Nathan Jones
Description:
A simple ABAP program to find orphaned includes. These are includes that are no longer referenced by programs and provides a useful housekeeping tool.
Code:
REPORT zorphanedincludes.
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.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
