DEF INPUT PARAMETER ipAktion    AS CHAR         NO-UNDO.

    IF NOT VALID-HANDLE(hAktionen) THEN RETURN.

    IF ipAktion = 'ABBRUCH' THEN DO:
        DYNAMIC-FUNCTION('setFlagabbruch':U, INPUT TRUE, INPUT Progname ) NO-ERROR.
        RETURN NO-APPLY.
    END.

    RUN onChoose IN hAktionen ( INPUT ipAktion ).