如果不匹配，则从 abl 返回错误字符串

Question

我正在尝试搜索数据库，然后在找到匹配项时删除记录。然后，如果没有找到匹配项，我想以字符串格式返回错误信息。

DEF INPUT PARAM i_cCarID LIKE Car.carID NO-UNDO.
DEFINE OUTPUT PARAMETER o_cErrorMsg AS CHARACTER NO-UNDO.
DEF BUFFER carBuffer_B1 FOR Car.


FIND FIRST carBuffer_B1 WHERE carBuffer.carID= i_cCarID EXCLUSIVE-LOCK NO-ERROR.

    IF AVAIL(carBuffer_B1) THEN DO:
        DELETE carBuffer_B1 NO-ERROR.
        IF ERROR-STATUS:ERROR THEN DO:   
            o_cErrorMSG = "Error: ".
            RETURN o_cErrorMsg + ERROR-STATUS:GET-MESSAGE(1).
        END.
    END. 

当从 java 调用时，这段代码似乎没有返回任何错误。

编辑 1. 找不到匹配项甚至会导致错误，还是您必须以某种方式明确地“抛出”错误？

Answer 1

您有一个输出参数，但该过程执行 RETURN。这就是您看不到任何错误的原因。您的程序需要是这样的：（示例有客户表并且没有足够的错误处理）

DEF INPUT PARAM i_cCustNum LIKE Customer.Cust-Num NO-UNDO.
DEFINE OUTPUT PARAMETER o_cErrorMsg AS CHARACTER NO-UNDO.

DEF BUFFER carBuffer_B1 FOR Customer.

FIND FIRST carBuffer_B1 WHERE carBuffer_B1.Cust-Num = i_cCarID EXCLUSIVE-LOCK NO-ERROR.

IF AVAIL(carBuffer_B1) THEN 
DO:
    DELETE carBuffer_B1 NO-ERROR.
    o_cErrorMsg = "Delete Succeeded for id " + string(i_cCarID).
END.
ELSE 
DO:
    o_cErrorMsg = "No record found with id " + string(i_cCarID).
END.