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

    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).

    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    APPLY "CLOSE":U TO THIS-PROCEDURE.
    RETURN NO-APPLY.