Класс состоит из набора инклудов, поэтому нужно найти все инклуды, относящиеся к классу и посчитать у каждого количество строк.
Вот программка, ищущая классы на Z* и выводящая список инклудов к каждому.
Code:
REPORT zfind_includes.
DATA: gt_tadir TYPE tadir OCCURS 100 WITH HEADER LINE
, gt_class_includes TYPE STANDARD TABLE OF trdir-name WITH HEADER LINE
, include_mask TYPE trdir-name
.
START-OF-SELECTION.
SELECT * FROM tadir INTO TABLE gt_tadir
WHERE pgmid = 'R3TR' AND object = 'CLAS' AND obj_name LIKE 'Z%'.
CHECK sy-subrc = 0.
LOOP AT gt_tadir.
CONCATENATE gt_tadir-obj_name '=%' INTO include_mask.
SELECT name FROM trdir INTO TABLE gt_class_includes
WHERE name LIKE include_mask and subc in ('I', 'K').
WRITE:/ 'Class', gt_tadir-obj_name.
WRITE: AT /1 'Includes'.
LOOP AT gt_class_includes.
WRITE: AT /2 gt_class_includes.
ENDLOOP.
IF sy-subrc <> 0.
WRITE: AT /2 'None'.
ENDIF.
skip.
ENDLOOP.
Обратите внимание на выборку из TRDIR - в продуктивной программе так писать не надо
Наверняка где то есть табличка, сопоставляющая класс и инклуды к нему, лучше бы ее поискать.
UPD. забыл про самое главное - пул класса. Это программа типа 'K', куда собственно остальные инклуды включены. См. выборку из TRDIR
Вход
Регистрация
FAQ пользователя
Поиск
