DEF VAR wx          AS INT                      NO-UNDO.
    DEF VAR wy          AS INT                      NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    IF AktSeite > 1 THEN DO:
        RUN selectPage ( INPUT 1 ).
        RETURN NO-APPLY.
    END.

    IF sAktiv THEN RUN ENDE_PROGRAMM ( INPUT Progname ) NO-ERROR.

    wx = {&WINDOW-NAME}:X NO-ERROR.
    wy = {&WINDOW-NAME}:Y NO-ERROR.

    DYNAMIC-FUNCTION('setFensterposition':U, INPUT 'Fensterposition',
                                             INPUT Progname,
                                             INPUT wx,
                                             INPUT wy) NO-ERROR.

    APPLY "CLOSE":U TO THIS-PROCEDURE.