Função - TEXT_SPLIT

"  Haa, tava debugando o standard e encontrei essa função aee,
" bem, o que ele faz eh bem simples e até um pouco engraçado
" mas ele quebra o texto conforme o tamanho que você informar
" olha que fácil, a vantagem é que desta função para o comando
" 'SPLIT' eh que ele não exclui o delimitador.

REPORT z_text_split.

DATA : line TYPE string,
       rest TYPE string
       ." Tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.PARAMETERS :
  leng(2)  TYPE i VISIBLE LENGTH 2,
  text(50) TYPE c.
SELECTION-SCREEN END OF BLOCK   b1." Inicio de processo
START-OF-SELECTION.

  PERFORM text_split.
  PERFORM show.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      Form  TEXT_SPLIT
*&---------------------------------------------------------------------*
FORM text_split .CONDENSE text.

  CALL FUNCTION 'TEXT_SPLIT'
    EXPORTING
      length             = leng
      text               = text
*   AS_CHARACTER       =
    IMPORTING
      line               = line
      rest               = rest
            .ENDFORM.                    " TEXT_SPLIT
*&---------------------------------------------------------------------*
*&      Form  SHOW
*&---------------------------------------------------------------------*
FORM show .

  WRITE : 'Texto completo:    ',space,text,/
          'Texto Selecionado: ',space,line,/
          'Resto do texto:    ',space,rest,/
          .ENDFORM.                    " SHOW"