FM SLIN。

2020-08-26 17:09发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨, 我正在尝试在程序中使用...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嗨,

我正在尝试在程序中使用FM EXTENDED_PROGRAM_CHECK列出错误类型,错误,警告。

我不知道如何使用FM从RESULT_HEAD参数中获取错误文本

请提出建议。

谢谢。

Ambi

2条回答
Violet凡
2020-08-26 17:42

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

 * ----------------------------------------------  ----------------------- *
 *表格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

一周热门 更多>