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. RETURN NO-APPLY.
