Rutina para eliminar caracteres extraños - Infobjeto /BIC/EPAUX1

por b.sacristan Jue Ago 03, 2017 10:13 am

DATA: a TYPE c LENGTH 000018.
DATA: l_len TYPE i,
l_time TYPE i.

MOVE SOURCE_FIELDS-/BIC/EPAUX1 TO a.
TRANSLATE a TO UPPER CASE.

l_len = strlen( a ).

DO l_len TIMES.
IF a+l_time(1) CN
'#{}(°Ç¦>$-Ç"_§ÁÉÍÓÚ!ºª.´,/`\u161?|]•¨%@ABCDEFGHIJKLMNÑOPQRSTUVWXYZÜÄCÖÀÈ' &
'ÌÒÙ 1234567890'.
a+l_time(1) = '!'.
ENDIF.

l_time = l_time + 1.
ENDDO.

REPLACE ALL OCCURRENCES OF '!' IN a WITH ' '.
CONDENSE a.

RESULT = a.