OpenEdge doesn't call GetMessage of a customised error object if there isn't a CATCH block

Jan 5, 2018
Knowledge

Title

URL Name

OpenEdge-doesn-t-call-GetMessage-of-a-customised-error-object-if-there-isn-t-a-CATCH-block

Article Number

000115499

Environment

Product: OpenEdge Version: 11.7 OS: Windows

Question/Problem Description

OpenEdge doesn't call GetMessage of a customised error object if there isn't a CATCH block

When a customised error object is thrown to the procedure block and there isn't a CATCH block, the AVM doesn't call GetMessage(). Application code that calls GetMessage displays the correct error message, but when the message is thrown to the AVM, then the message doesn't display. The problem can be reproduced with the following code:

USING Progress.Lang.*.
USING Progress.Lang.AppError.

ROUTINE-LEVEL ON ERROR UNDO, THROW.

CLASS Exc INHERITS AppError: 
    DEFINE PRIVATE PROPERTY baseString AS CHAR
        GET. SET.

    CONSTRUCTOR PUBLIC Exc(msg AS CHAR):
        baseString = msg.
    END.

    METHOD OVERRIDE PUBLIC CHARACTER GetMessage( INPUT iNumber AS INTEGER ):
        MESSAGE "In GetMessage" SKIP
            baseString
            VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
        RETURN baseString + "XYZ".
    END METHOD.
END CLASS.

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING Exc.* FROM PROPATH.

DEFINE VARIABLE lException AS Exc NO-UNDO.

DO ON ERROR UNDO, THROW:
    lException = NEW Exc("ABC").
    
    UNDO, THROW lException.
    CATCH e AS Progress.Lang.Error :
        MESSAGE 
            "Show by message" SKIP 
            e:GetMessage(1)
            VIEW-AS ALERT-BOX.   
        UNDO, THROW e.  /* Throw to Procedure Block */
    END CATCH. 
END.

/*CATCH e AS Progress.Lang.Error :*/
/*    MESSAGE                     */
/*        "Show by message-2" SKIP*/
/*        e:GetMessage(1)         */
/*        VIEW-AS ALERT-BOX.      */
/*END CATCH.                      */

The message from the error object GetMessage() override displays correctly from within the CATCH block, but when it's thrown to the Procedure block the OpenEdge AVM ignores it unless there is a CATCH block at the Procedure level.

Steps to Reproduce

Clarifying Information

Error Message

Defect Number

Defect PSC00362843

Enhancement Number

Cause

The AVM is not calling GetMessage() when there isn't a CATCH block.

Resolution

None at this time.

Workaround

Add a CATCH block at the procedure level.

Notes

Keyword Phrase

Last Modified Date

1/5/2018 4:01 PM

OpenEdge doesn't call GetMessage of a customised error object if there isn't a CATCH block

Files(0)

Was this article helpful?

Was this article helpful?

OpenEdge doesn't call GetMessage of a customised error object if there isn't a CATCH block

Information

Related Articles