REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        CREATE  ASMutation.
        ASSIGN
            ASMutation.asmutation_id = NEXT-VALUE(asmutation_id)
            ASMutation.MutArt        = 'MAILYBM'
            ASMutation.Aktiv         = TRUE
            ASMutation.cStatus       = ''
            ASMutation.Datum         = TODAY
            ASMutation.Firma         = '1000'
            ASMutation.cFeld_1       = ''
            ASMutation.cFeld_2       = 'Auftrag YBM'
            ASMutation.cFeld_3       = ''
            ASMutation.cKey_1        = ''
            ASMutation.cKey_2        = ''
            ASMutation.cKey_3        = 'CREATEAUFTRAG'
            ASMutation.iFeld_1       = TIME
            ASMutation.iKey_1        = 1095359
            ASMutation.iKey_2        = 21550.
        RELEASE ASMutation.
        LEAVE.
    END.