捕捉 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-enabled功能模块，并提交给其他程序

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 只产生non-handleable exceptions，甚至在文档中也提到了 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 TABLE OF 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.
   

1. 将 SUBMIT 与 EXPORTING LIST TO MEMORY 子句一起使用，这样您就可以在不中断程序的情况下从假脱机中检索消息。