我认为您可以搜索read语句，然后从中得出列名：

 READ REPORT'您的报告'INTO来源。
 * sources = VALUE#（（line ='使用键bdatj = l_jah将表l_t009b读取到wa_t009b中）
 *（行='xxxxx = aaaaa'）
 *（line ='bumon = l_mon二进制搜索。'）
 *）。
 在表源中查找正则表达式'（读取表）。*（带键）（。* \ =）'的所有事件
   在角色模式下
   忽略案例
   结果code_lines。
 "连接多个密钥
 循环至code_lines INTO DATA（code_line）。
   count = code_line-line。
   temp_result = VALUE#（src_line = code_line-line
                          tab_name = segment（val = condense（shift_left（val = sources [code_line-line] -line
                                                                          位= code_line-submatches [1] -offset + code_line-submatches [1] -length））
                                              指数= 1
                                              sep =``）
                          code_line =子字符串（val =来源[code_line-line] -line
                                                 off = code_line-submatches [3] -offset））。
   APPEND temp_result至temp_results分配字段符号（）。
   当count <=行（源）。
     如果shift_left（val =  -code_lineplaces = strlen（ -code_line -1）='。'。
       出口。
     其他。
       计数=计数+ 1。
        -code_line = | { -code_line} {condense（sources [count] -line）} |。
     万一。
   结束。
 结局。
 "获取密钥列
 循环到temp_results进入temp_result。
   清除：collect_tab。
   做。
     尝试。
         collect_tab = VALUE#（基本collect_tab（segment（val = condense（temp_result-code_line）
                                                            索引= sy-index
                                                            sep =``）））。
       捕捉cx_sy_strg_par_val。
         出口。
     ENDTRY。
   ENDDO。
   在table_line ='='处将LOOP AT在collect_tab放入DATA（word）中。
     最终=值#（基本最终（src_line = temp_result-src_line
                                   tab_name = temp_result-tab_name
                                   code_line = collect_tab [sy-tabix-1]））。
   结局。
 结局。