Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.2 kB
3
Indexable
Never
*$*$ begin of routine - insert your code only below this line        *-*

data: len type i.
data: l_d_length like sy-index.
DATA: l_d_offset LIKE sy-index.
DATA: CharAllowedUpper(60) TYPE C.
DATA: CharAllowedLower(60) TYPE C.
DATA: CharAllowedNumbr(60) TYPE C.
DATA: CharAllowedSondr(60) TYPE C.
DATA: CharAllowedAll(240) TYPE C.
data: temp type c length 000060.




   CharAllowedUpper = 'ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZÄ'.
    CharAllowedLower = 'abcçdefgğhiıjklmnoöpqrsştuüvwxyzäüö'.
    CharAllowedNumbr = '0123456789'.
    CharAllowedSondr = '!"§$%&/()=?{[]}\ u00B4`*+~;:_,.-><|@'''.


    CONCATENATE CharAllowedUpper CharAllowedLower CharAllowedNumbr
    CharAllowedSondr INTO CharAllowedAll.

   temp = SOURCE_FIELDS-TASIMAADRESI.
   translate temp to upper case.
   RESULT = temp .
    l_d_length = strlen( RESULT ).

    IF NOT RESULT CO CharAllowedAll.

      DO l_d_length TIMES.

        l_d_offset = sy-index - 1.

        IF NOT RESULT+l_d_offset(1) CO CharAllowedAll.

          RESULT+l_d_offset(1) = ''.

        ENDIF.
      ENDDO.
    endif.


*$*$ end of routine - insert your code only before this line         *-*