REPORT zquebrar_string.

DATA: tl_texto_quebrado TYPE TABLE OF string,
      vl_texto          TYPE string VALUE '"openABAP - Como limitar e quebrar texto com uma quantidade de caracteres especifica de forma rápida e simples"'.

WRITE: / 'String original:',
       vl_texto,
       /.


CALL FUNCTION 'SOTR_SERV_STRING_TO_TABLE'
  EXPORTING
    text                = vl_texto  "String que será 'quebrada'
    flag_no_line_breaks = abap_true "Retira o caracter de final de linha
    line_length         = 10        "Quantidade de caracteres
    langu               = syst-langu "Idioma
  TABLES
    text_tab            = tl_texto_quebrado.

WRITE: / 'String após ser quebrada com uma limitação de 10 caracteres - Função SOTR_SERV_STRING_TO_TABLE'.
LOOP AT tl_texto_quebrado INTO vl_texto.
  WRITE: / vl_texto.
ENDLOOP.

WRITE: /.

CALL FUNCTION 'SOTR_SERV_TABLE_TO_STRING'
  EXPORTING
    flag_no_line_breaks = abap_true "Retira o caracter de final de linha
    line_length         = 10        "Quantidade de caracteres
    langu               = syst-langu "Idioma
  IMPORTING
    text                = vl_texto  "String que será concatenada
  TABLES
    text_tab            = tl_texto_quebrado.

WRITE: / 'String após ser concatenada - Função SOTR_SERV_TABLE_TO_STRING',
       / 'String concatenada:',
       vl_texto.