Создание новой записи результатов выполнения блока ошибок

Question

Я пытаюсь вернуть значение от 1 до 4 в зависимости от того, провалилась транзакция или нет.Добавление новой записи отображается в базе данных, но код возвращает 4, что означает, что блок ошибок выполняется, почему это происходит?

Я отправляю входные параметры из Java и возвращаю число в качестве выходного параметра из ABL.

/*Input parameters*/
DEFINE INPUT PARAMETER i_cCode LIKE Unit.Code NO-UNDO.
DEFINE INPUT PARAMETER i_iTransactionType AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER i_cName LIKE UNIT.Name NO-UNDO.
/*Output parameters*/ 
DEFINE OUTPUT PARAMETER o_iStatus AS INTEGER NO-UNDO. 
/*Local variables*/
DEFINE VARIABLE iModifySuccess AS INTEGER INITIAL 1.
DEFINE VARIABLE iModifyFailed AS INTEGER INITIAL 2.
DEFINE VARIABLE iAddedSuccessful AS INTEGER INITIAL 3.
DEFINE VARIABLE iCreateFailed AS INTEGER INITIAL 4.
/*Transaction types*/
DEFINE VARIABLE iCreate AS INTEGER INITIAL 1.
DEFINE VARIABLE iModify AS INTEGER INITIAL 2.

FIND FIRST Unit WHERE Unit.Code = i_cCode EXCLUSIVE-LOCK NO-ERROR.
            IF AVAIL(Unit) AND i_iTransactionType = iModify THEN DO:

                ASSIGN
                    Unit.Name = i_cName
                    /*Other fields as well*/
                NO-ERROR.
                MESSAGE "Unit has been modified".
                o_iStatus = iModifySuccess.

                IF ERROR-STATUS:ERROR THEN DO:
                    MESSAGE "Error Modifying Unit" + ERROR-STATUS:GET-MESSAGE(1).    
                    o_iStatus = iModifyFailed.
                END.   

            END.
            ELSE DO:
                IF i_iTransactionType = iCreate THEN DO:
                    /*Create new record*/
                    CREATE Unit NO-ERROR.
                        ASSIGN
                        Unit.Name = i_cName
                        /*Other fields as well*/
                            NO-ERROR.
                        MESSAGE "New Unit Created"
                        o_iStatus = iAddedSuccessful.

                        IF ERROR-STATUS:ERROR THEN DO:
                            MESSAGE "ERROR creating a new Unit" + ERROR-STATUS:GET-MESSAGE(1).
                            o_iStatus = iCreateFailed.
                        END. 
                END.   
            END.

Answer 1

Кажется, что после MESSAGE "New Unit Created" отсутствовал ., из-за которого запустился блок ошибок.Строительство проекта не дало никаких предупреждений.