1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
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. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/358.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。