捕获 SUBMIT 语句的错误

Question

我有许多使用

submit

动态调用的 ABAP 程序。为了确保它能够运行，我首先进行语法检查。

syntax-check for program programName message error line location word word.
if ( sy-subrc = 0 ).
  submit (programName) exporting list to memory and return.
endif.

我遇到的问题是由于逻辑错误造成的。其中一个程序最终尝试将一个数字除以零。我不知道为什么或者是否可以修复该错误，但我想做的是能够优雅地告诉我的应用程序发生了错误，而不是使整个应用程序停止。

为了论证起见，我们假设该程序是：

report.
data(holeInEarth) = 1 / 0.

我尝试过使用 try catch 块，但如果发生错误，则不会发生任何事情。

try.
    submit (programName) exporting list to memory and return.
catch cx_root into (err).
    ...do something with err...
endtry.

我也尝试过使用

catch system-exceptions

。

catch system-exceptions others = 1.
    submit (programName) exporting list to memory and return.
endcatch.

无法在后台运行报告，因为我需要结果。有没有办法从这个语句中捕获错误？

Answer 1

同意@suncatcher关于不，无法处理SUBMIT异常，外部会话失败（整个SUBMIT链，如果有的话，失败）并且外部会话从零重新启动（在显示从未捕获的异常发出的短转储之后） ).

也同意@florian的观点，认为这是一个技巧，解决方案是纠正除以零的错误。

但是您可以在通过 RFC 打开的新外部会话中启动 SUBMIT，任何短转储都将返回 SYSTEM_FAILURE 异常：

1）创建一个支持Z RFC的功能模块，并使其SUBMIT其他程序

SUBMIT ... WITH ... " eventual parameters

2）从您的程序中调用它

CALL FUNCTION 'Z...'  " will do the SUBMIT
    DESTINATION 'NONE'
    EXPORTING ... " eventual parameters
    EXCEPTIONS
      SYSTEM_FAILURE = 1.
IF sy-subrc = 1.
  " there was a short dump
ENDIF.

Answer 2

有没有办法捕获此语句中的错误？

不。 SUBMIT 仅产生不可处理的异常，甚至在文档中也提到了 COMPUTE_INT_ZERODIVIDE 作为示例。阅读有关 ABAP 异常概念的更多信息。

这里唯一的解决方案是：

1. 将 SUBMIT 包装到 CALL TRANSACTION 语句中并将错误收集到选项卡中

    CALL TRANSACTION 'MEQ1' USING i_bdcdata MODE 'N'
                      MESSAGES INTO i_messtab.
   

你可以做这样的事情

    TYPES t_itab TYPE STANDARD TABLE OF char5
                          WITH DEFAULT KEY.
    
    DATA: messtab TYPE TABLE OF bdcmsgcoll,
          i_bdcdata TYPE bdcdata_tab.
    
    DATA(tab) = VALUE t_itab( ( 'MM03' ) ( 'Z0001' ) ( 'MIGO' ) ).
    
    LOOP AT tab ASSIGNING FIELD-SYMBOL(<fs>).
    CALL TRANSACTION <fs> USING i_bdcdata MODE 'N'
                                MESSAGES INTO messtab.
    ENDLOOP.

2. 将 SUBMIT 与

   EXPORTING LIST TO MEMORY

   子句一起使用，这样您就可以在不中断程序的情况下从假脱机中检索消息。