使用代碼獲得table whered use list

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.