GeMIS_WEB/GUI/Tools/Umlaute.p

DEF VAR cWort       AS CHAR                     NO-UNDO.
DEF VAR ii          AS INT                      NO-UNDO.

DEF TEMP-TABLE tWorte
    FIELD cWort     AS CHAR
    
    INDEX tWorte-k1 IS PRIMARY
        cWort.

FOR EACH Artst
        WHERE Artst.Firma = '1000':
    IF INDEX(Artst.Bez, 'ae') = 0 AND
       INDEX(Artst.Bez, 'oe') = 0 AND
       INDEX(Artst.Bez, 'ue') = 0 THEN NEXT.
    DO ii = 1 TO NUM-ENTRIES(Artst.Bez, ' '):
        cWort = TRIM(ENTRY(ii, Artst.Bez, ' ')).
        IF INDEX(cWort, 'ae') = 0 AND
           INDEX(cWort, 'oe') = 0 AND
           INDEX(cWort, 'ue') = 0 THEN NEXT.
        FIND FIRST tWorte NO-LOCK
                WHERE tWorte.cWort = cWort NO-ERROR.
        IF AVAILABLE tWorte THEN NEXT.
        CREATE  tWorte.
        ASSIGN  tWorte.cWort = cWort.
    END.
END.

OUTPUT TO 'P:\TEMP\Umlaute.csv' NO-MAP NO-CONVERT.
FOR EACH tWorte:
    EXPORT DELIMITER ';' tWorte.
END.
OUTPUT CLOSE.