对于字符串的拆分

  *&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->IT_MARC-LTEXT  text
*----------------------------------------------------------------------*
form output_long_text using p_text.

  data:begin of it_text occurs 0,
         text(1000),
       end   of it_text,
       l_line(119),
       l_rest(1000).

  split p_text at '|' into table it_text.
  write:sy-uline.
  loop at it_text from 2.

    write: sy-uline,
           at 1 sy-vline.
    do.

      call function 'TEXT_SPLIT'
        exporting
          length = 119
          text   = it_text-text
        importing
          line   = l_line
          rest   = l_rest.

      if not l_rest is initial.
        it_text-text = l_rest.
      endif.
      write: sy-vline, 2 l_line ,120 sy-vline .

      if l_rest is initial.
        exit.
      endif.
    enddo.

    write:sy-uline.
  endloop.
endform.                    "output_long_text