Catch SAPSQL_DATA_LOSS

Question

我想在我的ABAP代码中捕获和处理SAPSQL_DATA_LOSS。

我试过这个：

try. 
SELECT *
FROM (rtab_name) AS rtab
WHERE (sub_condition)
into table @<sub_result>
.
catch SAPSQL_DATA_LOSS into error.
...
endtry.

但是上面的代码是无效的。我收到此消息：

类型"SAPSQL_DATA_LOSS"无效

我试过这个：

catch SYSTEM-EXCEPTIONS SAPSQL_DATA_LOSS = 123.
SELECT *
...
.
endcatch.
if sy-subrc = 123.
...
endif.

但是上面的代码给了我：

而不是"SAPSQL_DATA_LOSS"预期的"系统异常"(由我从德语翻译成英语)

如何捕捉SAPSQL_DATA_LOSS？

这个问题不是关于"为什么会发生这种异常？这已经解决了。我的代码应该处理异常。

Answer 1

SAPSQL_DATA_LOSS

是运行时错误。

由于SAPSQL_DATA_LOSS不是基于类的异常，因此无法使用try catch捕获它。

由于SAPSQL_DATA_LOSS不是可捕获的运行时错误，因此无法使用try catch SYSTEM-EXCEPTIONS捕获它。

请参阅下面可捕获的运行时错误。

https://help.sap.com/doc/abapdocu_751_index_htm/7.51/en-US/abenueb-abfb-sysexc.htm

Answer 2

经过一些尝试，我可以向你提出一个可能的解决方案。

这是一种解决方法：

我不知道它是否可以应用于您的情况，因为它需要将 select 语句包装到 RFC 函数模块中！

重点是可以在 RFC 调用中处理短转储(消息类型 X)。

因此，使用 RFC(例如CALL FUNCTION 'xxxxx' destination 'NONE')并使用特殊异常SYSTEM_FAILURE，系统不会终止调用程序，而是返回一个SY-SUBRC > 0，其中包含系统消息字段 (SY-MSGxx) 中的短转储信息。

步骤

使用 select 语句输入 + 结果表的行类型创建一个函数模块(已启用 RFC)。(所有参数按值传递)

您需要最后一个参数，因为泛型表无法在 RFC 中传递(不允许"键入任何表")

FUNCTION Z_DYN_SEL .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(RTAB_NAME) TYPE  TABNAME16
*"     VALUE(SUB_CONDITION) TYPE  STRING
*"     VALUE(RESULT_TYPE) TYPE  STRING
*"----------------------------------------------------------------------
* RTAB_NAME: DB Table
* SUB_CONDITION: WHERE Condition
* RESULT_TYPE: The ROW type of the internal table
field-symbols <sub_result> type any table.
* DEFINE LOCAL DYNAMIC TABLE TO STORE THE RESULT
data: lr_res type ref to data.
create data lr_res type standard table of (result_type).
assign lr_res->* to <sub_result>.
* DYNAMIC SELECT
select *
from (rtab_name) as rtab
where (sub_condition)
into table @<sub_result>.
* EXPORT RESULT TO A MEMORY ID, SO IT CAN BE RETRIEVED BY CALLER
export res = <sub_result> to memory id 'RES'.

主程序：在此调用方示例中，一些参数被传递给 RFC。

KTOKD 字段(长度应为 4 个字符)以 char10 值传递(生成您的短转储)。

如果在函数内部触发了任何转储，我们现在可以处理它。

如果一切顺利，IMPORTRFC 中的EXPORT语句的结果

field-symbols <sub_result> type any table.
data: lr_res type ref to data.
create data lr_res type standard table of KNA1.
assign lr_res->* to <sub_result>.
data lv_msg type char255.
call function 'Z_DYN_SEL' destination 'NONE'
exporting
rtab_name           = 'KNA1'
sub_condition       = `KTOKD = 'D001xxxxxx'`
result_type         = 'KNA1'
exceptions
system_failure = 1 message lv_msg.
if sy-subrc = 0.
import res = <sub_result> from memory id 'RES'.
else.
write: / lv_msg.
write : / sy-msgid, sy-msgno, sy-msgty, sy-msgv1, sy-msgv2, sy-msgv3, sy-msgv4.
endif.

结果

在 select 语句中出现短转储的情况下进行 RFC 调用后，程序不会终止，以下信息可用

SY-SUBRC = 1

lv_msg是错误文本(复制值时数据丢失。

Sy-msgid = 00
Sy-msgno = '341'
Sy-msgty = 'X'
Sy-msgv1 = 'SAPSQL_DATA_LOSS'