sonderzeichen?

Code: Alles auswählen.

*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(X) TYPE  XSTRING
*"  EXPORTING
*"     REFERENCE(S) TYPE  STRING
*"----------------------------------------------------------------------

  CLEAR: s.
  FIELD-SYMBOLS <s> TYPE c.
  CONSTANTS: bufflen TYPE i VALUE 4096.
  DATA: xc(bufflen) TYPE x.
  DATA: len TYPE i.
  DATA: n   TYPE i VALUE 0.

  len = xstrlen( x ).
  IF ( len > 0 ).

    DO.
      len = xstrlen( x ) - n.
      IF ( len > bufflen ).
        len = bufflen.
      ENDIF.
      xc = x+n(len).
      ASSIGN xc TO <s> CASTING TYPE c.
      len = len / cl_abap_char_utilities=>charsize. "unicode
      CONCATENATE s space INTO s
        SEPARATED BY <s>(len) IN CHARACTER MODE.
      n = n + bufflen.
      IF n >= xstrlen( x ).
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.