SPLIT string into Internal Table in ABAP

In this Blog will show you how we can split string data into Internal table.

REPORT zsr_splite.
*&---------------------------------------------------------------------*
*   In this Sample program will show you how we can Splite string data
*   Into Internal table and concatenate using REDUCE Expression.
*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*  Local Structure declaration
*----------------------------------------------------------------------*
DATA: ls_data TYPE string.

*&---------------------------------------------------------------------*
*  Local Internal table declaration
*----------------------------------------------------------------------*
DATA: lt_data LIKE TABLE OF ls_data.

*&---------------------------------------------------------------------*
*  Selection Screen
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS: p_deli TYPE char1,    "Delimiter
            p_data TYPE text256.  "String
SELECTION-SCREEN END OF BLOCK a1.

*&---------------------------------------------------------------------*
*  START-OF-SELECTION Events
*----------------------------------------------------------------------*
START-OF-SELECTION.

  "&... Splite data into Internal table with delimiter
  SPLIT p_data AT p_deli INTO TABLE lt_data.

  "&... Concatenate data using REDUCE expression
  DATA(lv_data) = REDUCE string( INIT lv_x TYPE string FOR ls_conc IN lt_data
                                 NEXT lv_x = COND #( WHEN lv_x IS INITIAL
                                 THEN |{ ls_conc }|
                                 ELSE |{ lv_x }{ p_deli }{ ls_conc }| ) ).

*&---------------------------------------------------------------------*
*  END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
  "&... Display Internal table data
  LOOP AT lt_data INTO ls_data.
    WRITE : / ls_data.
  ENDLOOP.

  "&... Line
  ULINE.
  WRITE: / 'Display string data using REDUCE Expression: '.
  WRITE / lv_data.

Output: