1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Object oApplication is a cApplication
End_Object // oApplication

// Nach dem erstellen des Objects oApplication kann das Objekt ErrorSystem
// geändert werden.
Object MyErrorSystem is a ErrorSystem
    // create property to keep track of previous error handler
    Property Integer piErrorCount

    Procedure Run_Process
        Move Self to Error_object_id // make self the error object
    End_Procedure
    
    Procedure Error_Report Integer ErrNum Integer Err_Line String ErrMsg
        String sErrorMessage

        //
        // Hier kann ich die Fehlernummern abfragen und sonstwas damit anstellen :D
        // Get Error_Description ErrNum ErrMsg to sErrorMessage // Fehlertext holen
        //
        
        Forward Send Error_Report ErrNum Err_Line ErrMsg // Fehlermeldung von Dataflex anzeigen
    End_Procedure
    
End_Object