使用代码获得table whered use list

153 阅读1分钟

Created by Jerry Wang, last modified on Dec 21, 2014

执行report,输入table name:
clipboard1

输出所有使用到comm_product这个ddic object的report name:
clipboard2

spot check:
clipboard3

source code:

PARAMETERS: tab TYPE D010TAB-TABNAME OBLIGATORY DEFAULT 'COMM_PRODUCT'.
 
DATA: lt_prog TYPE STANDARD TABLE OF d010tab,
lt_scope_programs LIKE lt_prog.
 

CALL FUNCTION 'RS_TABLE_IN_PROGRAMS'
EXPORTING
tabname = tab
TABLES
proglist = lt_prog
scope_programs = lt_scope_programs.
 
DELETE lt_prog WHERE table_line+0(1) = '/'.
 
LOOP AT lt_prog ASSIGNING FIELD-SYMBOL(<line>).
WRITE: / sy-tabix COLOR COL_NEGATIVE, <line>-master COLOR COL_TOTAL.
ENDLOOP.