ABAP Sonderzeichen entfernen

Ab und zu kommt es vor, dass das Quellsystem Sonderzeichen liefert, womit das Business Warehouse System nicht umgehen kann und der Ladeprozess abbricht.

Eine Lösung ist folgender ABAP Code

DATA: zeichen(1) TYPE c,

muster(2) TYPE c,

field TYPE c LENGTH 000060.

field = SOURCE_FIELDS-YYSTREET.

DO.

    IF field CO

        ' !"%&()*+,-./:;<=>?_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜßabcdefg' & & 'hijklmnopqrstuvwxyzäöü '.

        EXIT.

    ELSE.

        zeichen = field+sy-fdpos(1).

        muster+0(1) = zeichen.

        muster+1(1) = space.

        TRANSLATE field USING muster.

    ENDIF.

ENDDO.

RESULT = field.

Dieser Blog ist nun unter www.reyemsaibot.com erreichbar.