也许这段代码可以帮助您：

 * ----------------------------------------------  ----------------------- *
 *表格EXTENDED_PROGRAM_CHECK_GEN *
 * -------------------------------------------------  -------------------- *
 FORM Extended_program_check_gen使用p_filter TYPE slin_errcodes
                                       p_program TYPE程序
                                       p_flags喜欢rslin。
   数据：l_i TYPE i，
         l_category TYPE c，
         l_repid类型syrepid，
         l_program类型的程序，
         l_line TYPE字符串，
         l_head类型slin_head，
         l_result类型slin_result。
 *
   l_program = p_program。
   将l_program转换为大写。  " #EC TRANSLANG
   通话功能" EXTENDED_PROGRAM_CHECK"
        出口
             程序= l_program
             test_all = p_flags-x_all
             test_bre = p_flags-x_bre
             test_cal = p_flags-x_cal
             test_dat = p_flags-x_dat
             test_dyc = p_flags-x_dyc
             test_ges = p_flags-x_ges
             test_mes = p_flags-x_mes
             test_aut = p_flags-x_aut
             test_opf = p_flags-x_opf
             test_per = p_flags-x_per
             test_pfs = p_flags-x_pfs
             test_unr = p_flags-x_unr
             test_wrn = p_flags-x_wrn
             test_txt = p_flags-x_txt
             test_por = p_flags-x_por
             test_sub = p_flags-x_sub
             test_ste = p_flags-x_ste
        输入
              结果= l_result
 * RESULT_STAT = L_STATISTICS []
        例外情况
             其他。
   如果sy-subrc <> 0。
     执行samt_coded_hint（saprsamt）
                   使用c_category_error slin_error p_program 0。
     使用'EXCEPTION aufgetreten'（302）执行samt_message（saprsamt）。
     出口。
   万一。

   将l_result循环到l_head中
             种类='A'或种类='B'或种类='C'。
     从l_head-code读取表p_filter传输没有字段。
     检查sy-subrc <> 0。

     案例l_head-kind。
       当一个'。  l_category = c_category_error。
       当" B"。  l_category = c_category_warning。
       当" C"。  l_category = c_category_info。
     结束。

     如果l_head-editor <> slin_editor-program并且
        l_head-editor <> slin_editor-function。
       l_i = 1。
     其他。
       l_i = l_head-src_line。
     万一。

     l_repid = l_head-err_incl。
     使用l_category执行samt_coded_hint（saprsamt）
                                             l_head-code
                                             l_repid
                                             l_i。

     如果l_head-editor <> slin_editor-program并且
        l_head-editor <> slin_editor-function。
       执行：msg_header（rslinsho）使用l_head更改l_line，
                samt_out使用l_line。
     万一。
     使用l_head执行list_out。
   结局。
 ENDFORM。

亲切问候

Eswar