DEF VAR cString     AS CHAR                     NO-UNDO.
    DEF VAR hCol        AS HANDLE                   NO-UNDO.
    DEF VAR iSort       AS INT                      NO-UNDO.

    hCol    = SELF:CURRENT-COLUMN.
    cString = hCol:NAME          .
    APPLY 'END-SEARCH' TO {&BROWSE-NAME}.

    IF NOT VALID-HANDLE(hDaten) THEN RETURN NO-APPLY.

    RUN SET_SORT IN hDaten ( INPUT cString ) NO-ERROR.
    APPLY 'U1'.
    RETURN NO-APPLY.