ABAP Select data from SAP table RN1PLANNING_DATA into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP RN1PLANNING_DATA table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to RN1PLANNING_DATA. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the RN1PLANNING_DATA table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_RN1PLANNING_DATA TYPE STANDARD TABLE OF RN1PLANNING_DATA,
      WA_RN1PLANNING_DATA TYPE RN1PLANNING_DATA,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <RN1PLANNING_DATA> TYPE RN1PLANNING_DATA.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_RN1PLANNING_DATA.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM RN1PLANNING_DATA
  INTO TABLE IT_RN1PLANNING_DATA.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1PLANNING_DATA
*  INTO TABLE @DATA(IT_RN1PLANNING_DATA2).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_RN1PLANNING_DATA INDEX 1 INTO DATA(WA_RN1PLANNING_DATA2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RN1PLANNING_DATA ASSIGNING <RN1PLANNING_DATA>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1PLANNING_DATA>-APP_OBJ = 1.
<RN1PLANNING_DATA>-APP_CONSTR_OBJ = 1.
<RN1PLANNING_DATA>-ATTR = 1.
<RN1PLANNING_DATA>-ATTRID = 1.
<RN1PLANNING_DATA>-MANDT = 1.

ENDLOOP.

LOOP AT IT_RN1PLANNING_DATA INTO WA_RN1PLANNING_DATA.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1PLANNING_DATA-EINRI, sy-vline,
  WA_RN1PLANNING_DATA-PATNR, sy-vline,
  WA_RN1PLANNING_DATA-PATNR_X, sy-vline,
  WA_RN1PLANNING_DATA-FALNR, sy-vline,
  WA_RN1PLANNING_DATA-FALNR_X, sy-vline,
  WA_RN1PLANNING_DATA-PAP_OBJ, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1PLANNING_DATA you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_RN1PLANNING_DATA TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_RN1PLANNING_DATA INTO WA_RN1PLANNING_DATA.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit ALPHA, internal->external for field EINRI
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-EINRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-EINRI.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PATNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-PATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-PATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field FALNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-FALNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-FALNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field TMNOE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-TMNOE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-TMNOE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field BEKAT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-BEKAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-BEKAT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field CLASS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-CLASS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-CLASS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field REFID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-REFID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-REFID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EINBOE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-EINBOE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-EINBOE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EINBPER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-EINBPER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-EINBPER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EINBZIM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-EINBZIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-EINBZIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field UARNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-UARNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-UARNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PERNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-PERNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-PERNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ZIMMR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-ZIMMR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-ZIMMR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ORGFA
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-ORGFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-ORGFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field FACHR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-FACHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-FACHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PELOC
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_DATA-PELOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_DATA-PELOC.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_RN1PLANNING_DATA_STR, 
APP_OBJ TYPE STRING,
APP_CONSTR_OBJ TYPE STRING,
ATTR TYPE STRING,
ATTRID TYPE STRING,
MANDT TYPE STRING,
EINRI TYPE STRING,
PATNR TYPE STRING,
PATNR_X TYPE STRING,
FALNR TYPE STRING,
FALNR_X TYPE STRING,
PAP_OBJ TYPE STRING,
PAP_OBJ_X TYPE STRING,
TMNOE TYPE STRING,
TMNOE_X TYPE STRING,
TMNDT TYPE STRING,
TMNDT_X TYPE STRING,
TMNZT TYPE STRING,
TMNZT_X TYPE STRING,
TMNDR TYPE STRING,
TMNDR_X TYPE STRING,
TMTAG TYPE STRING,
TMTAG_X TYPE STRING,
GPLVN TYPE STRING,
GPLVN_X TYPE STRING,
GPLTY TYPE STRING,
GPLTY_X TYPE STRING,
BWART TYPE STRING,
BWART_X TYPE STRING,
TPART TYPE STRING,
TPART_X TYPE STRING,
BWPRIO TYPE STRING,
BWPRIO_X TYPE STRING,
MEDTX TYPE STRING,
MEDTX_X TYPE STRING,
FATYP TYPE STRING,
FATYP_X TYPE STRING,
BEWTY TYPE STRING,
BEWTY_X TYPE STRING,
BEKAT TYPE STRING,
BEKAT_X TYPE STRING,
CLASS TYPE STRING,
CLASS_X TYPE STRING,
FALAR TYPE STRING,
FALAR_X TYPE STRING,
REFID TYPE STRING,
REFID_X TYPE STRING,
NOTAN TYPE STRING,
NOTAN_X TYPE STRING,
KRZAN TYPE STRING,
KRZAN_X TYPE STRING,
BNKZ TYPE STRING,
BNKZ_X TYPE STRING,
BNDT TYPE STRING,
BNDT_X TYPE STRING,
BNART TYPE STRING,
BNART_X TYPE STRING,
EINBDT TYPE STRING,
EINBDT_X TYPE STRING,
EINBZT TYPE STRING,
EINBZT_X TYPE STRING,
EINBOE TYPE STRING,
EINBOE_X TYPE STRING,
EINBPER TYPE STRING,
EINBPER_X TYPE STRING,
EINBZIM TYPE STRING,
EINBZIM_X TYPE STRING,
BWGR1 TYPE STRING,
BWGR1_X TYPE STRING,
BWGR2 TYPE STRING,
BWGR2_X TYPE STRING,
UARNR TYPE STRING,
UARNR_X TYPE STRING,
DISTMIN TYPE STRING,
DISTMIN_X TYPE STRING,
DISTMAX TYPE STRING,
DISTMAX_X TYPE STRING,
DISTUNIT TYPE STRING,
DISTUNIT_X TYPE STRING,
CYCLE TYPE STRING,
CYCLE_X TYPE STRING,
CYCLEUNIT TYPE STRING,
CYCLEUNIT_X TYPE STRING,
TMSTG TYPE STRING,
TMSTG_X TYPE STRING,
GPLVNX TYPE STRING,
GPLVNX_X TYPE STRING,
TMTAGX TYPE STRING,
TMTAGX_X TYPE STRING,
APP_OBJ_COPY TYPE STRING,
APP_OBJ_COPY_X TYPE STRING,
DSPTY TYPE STRING,
DSPTY_X TYPE STRING,
VISTY TYPE STRING,
VISTY_X TYPE STRING,
POBNR TYPE STRING,
POBNR_X TYPE STRING,
PERNR TYPE STRING,
PERNR_X TYPE STRING,
ZIMMR TYPE STRING,
ZIMMR_X TYPE STRING,
KZTXT TYPE STRING,
KZTXT_X TYPE STRING,
PTINP TYPE STRING,
PTINP_X TYPE STRING,
ORGFA TYPE STRING,
ORGFA_X TYPE STRING,
STATU TYPE STRING,
STATU_X TYPE STRING,
LGTXT TYPE STRING,
LGTXT_X TYPE STRING,
FACHR TYPE STRING,
FACHR_X TYPE STRING,
PELOC TYPE STRING,
PELOC_X TYPE STRING,
DSPTYX TYPE STRING,
DSPTYX_X TYPE STRING,
APP_OBJ_TEMPLATE TYPE STRING,
APP_OBJ_TEMPLATE_X TYPE STRING,
SORT TYPE STRING,
CHAINNO TYPE STRING,
CHAINNO_X TYPE STRING,
CHAIN_APP_OBJ TYPE STRING,
CHAIN_APP_OBJ_X TYPE STRING,
PZMAN TYPE STRING,
PZMAN_X TYPE STRING,
CAUSECHNG TYPE STRING,
CAUSECHNG_X TYPE STRING,
CSECHGID TYPE STRING,
CSECHGID_X TYPE STRING,
SRV_OBJ TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1PLANNING_DATA_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_RN1PLANNING_DATA_STR-APP_OBJ sy-vline 
WA_RN1PLANNING_DATA_STR-APP_CONSTR_OBJ sy-vline 
WA_RN1PLANNING_DATA_STR-ATTR sy-vline 
WA_RN1PLANNING_DATA_STR-ATTRID sy-vline 
WA_RN1PLANNING_DATA_STR-MANDT sy-vline 
WA_RN1PLANNING_DATA_STR-EINRI sy-vline 
WA_RN1PLANNING_DATA_STR-PATNR sy-vline 
WA_RN1PLANNING_DATA_STR-PATNR_X sy-vline 
WA_RN1PLANNING_DATA_STR-FALNR sy-vline 
WA_RN1PLANNING_DATA_STR-FALNR_X sy-vline 
WA_RN1PLANNING_DATA_STR-PAP_OBJ sy-vline 
WA_RN1PLANNING_DATA_STR-PAP_OBJ_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMNOE sy-vline 
WA_RN1PLANNING_DATA_STR-TMNOE_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMNDT sy-vline 
WA_RN1PLANNING_DATA_STR-TMNDT_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMNZT sy-vline 
WA_RN1PLANNING_DATA_STR-TMNZT_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMNDR sy-vline 
WA_RN1PLANNING_DATA_STR-TMNDR_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMTAG sy-vline 
WA_RN1PLANNING_DATA_STR-TMTAG_X sy-vline 
WA_RN1PLANNING_DATA_STR-GPLVN sy-vline 
WA_RN1PLANNING_DATA_STR-GPLVN_X sy-vline 
WA_RN1PLANNING_DATA_STR-GPLTY sy-vline 
WA_RN1PLANNING_DATA_STR-GPLTY_X sy-vline 
WA_RN1PLANNING_DATA_STR-BWART sy-vline 
WA_RN1PLANNING_DATA_STR-BWART_X sy-vline 
WA_RN1PLANNING_DATA_STR-TPART sy-vline 
WA_RN1PLANNING_DATA_STR-TPART_X sy-vline 
WA_RN1PLANNING_DATA_STR-BWPRIO sy-vline 
WA_RN1PLANNING_DATA_STR-BWPRIO_X sy-vline 
WA_RN1PLANNING_DATA_STR-MEDTX sy-vline 
WA_RN1PLANNING_DATA_STR-MEDTX_X sy-vline 
WA_RN1PLANNING_DATA_STR-FATYP sy-vline 
WA_RN1PLANNING_DATA_STR-FATYP_X sy-vline 
WA_RN1PLANNING_DATA_STR-BEWTY sy-vline 
WA_RN1PLANNING_DATA_STR-BEWTY_X sy-vline 
WA_RN1PLANNING_DATA_STR-BEKAT sy-vline 
WA_RN1PLANNING_DATA_STR-BEKAT_X sy-vline 
WA_RN1PLANNING_DATA_STR-CLASS sy-vline 
WA_RN1PLANNING_DATA_STR-CLASS_X sy-vline 
WA_RN1PLANNING_DATA_STR-FALAR sy-vline 
WA_RN1PLANNING_DATA_STR-FALAR_X sy-vline 
WA_RN1PLANNING_DATA_STR-REFID sy-vline 
WA_RN1PLANNING_DATA_STR-REFID_X sy-vline 
WA_RN1PLANNING_DATA_STR-NOTAN sy-vline 
WA_RN1PLANNING_DATA_STR-NOTAN_X sy-vline 
WA_RN1PLANNING_DATA_STR-KRZAN sy-vline 
WA_RN1PLANNING_DATA_STR-KRZAN_X sy-vline 
WA_RN1PLANNING_DATA_STR-BNKZ sy-vline 
WA_RN1PLANNING_DATA_STR-BNKZ_X sy-vline 
WA_RN1PLANNING_DATA_STR-BNDT sy-vline 
WA_RN1PLANNING_DATA_STR-BNDT_X sy-vline 
WA_RN1PLANNING_DATA_STR-BNART sy-vline 
WA_RN1PLANNING_DATA_STR-BNART_X sy-vline 
WA_RN1PLANNING_DATA_STR-EINBDT sy-vline 
WA_RN1PLANNING_DATA_STR-EINBDT_X sy-vline 
WA_RN1PLANNING_DATA_STR-EINBZT sy-vline 
WA_RN1PLANNING_DATA_STR-EINBZT_X sy-vline 
WA_RN1PLANNING_DATA_STR-EINBOE sy-vline 
WA_RN1PLANNING_DATA_STR-EINBOE_X sy-vline 
WA_RN1PLANNING_DATA_STR-EINBPER sy-vline 
WA_RN1PLANNING_DATA_STR-EINBPER_X sy-vline 
WA_RN1PLANNING_DATA_STR-EINBZIM sy-vline 
WA_RN1PLANNING_DATA_STR-EINBZIM_X sy-vline 
WA_RN1PLANNING_DATA_STR-BWGR1 sy-vline 
WA_RN1PLANNING_DATA_STR-BWGR1_X sy-vline 
WA_RN1PLANNING_DATA_STR-BWGR2 sy-vline 
WA_RN1PLANNING_DATA_STR-BWGR2_X sy-vline 
WA_RN1PLANNING_DATA_STR-UARNR sy-vline 
WA_RN1PLANNING_DATA_STR-UARNR_X sy-vline 
WA_RN1PLANNING_DATA_STR-DISTMIN sy-vline 
WA_RN1PLANNING_DATA_STR-DISTMIN_X sy-vline 
WA_RN1PLANNING_DATA_STR-DISTMAX sy-vline 
WA_RN1PLANNING_DATA_STR-DISTMAX_X sy-vline 
WA_RN1PLANNING_DATA_STR-DISTUNIT sy-vline 
WA_RN1PLANNING_DATA_STR-DISTUNIT_X sy-vline 
WA_RN1PLANNING_DATA_STR-CYCLE sy-vline 
WA_RN1PLANNING_DATA_STR-CYCLE_X sy-vline 
WA_RN1PLANNING_DATA_STR-CYCLEUNIT sy-vline 
WA_RN1PLANNING_DATA_STR-CYCLEUNIT_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMSTG sy-vline 
WA_RN1PLANNING_DATA_STR-TMSTG_X sy-vline 
WA_RN1PLANNING_DATA_STR-GPLVNX sy-vline 
WA_RN1PLANNING_DATA_STR-GPLVNX_X sy-vline 
WA_RN1PLANNING_DATA_STR-TMTAGX sy-vline 
WA_RN1PLANNING_DATA_STR-TMTAGX_X sy-vline 
WA_RN1PLANNING_DATA_STR-APP_OBJ_COPY sy-vline 
WA_RN1PLANNING_DATA_STR-APP_OBJ_COPY_X sy-vline 
WA_RN1PLANNING_DATA_STR-DSPTY sy-vline 
WA_RN1PLANNING_DATA_STR-DSPTY_X sy-vline 
WA_RN1PLANNING_DATA_STR-VISTY sy-vline 
WA_RN1PLANNING_DATA_STR-VISTY_X sy-vline 
WA_RN1PLANNING_DATA_STR-POBNR sy-vline 
WA_RN1PLANNING_DATA_STR-POBNR_X sy-vline 
WA_RN1PLANNING_DATA_STR-PERNR sy-vline 
WA_RN1PLANNING_DATA_STR-PERNR_X sy-vline 
WA_RN1PLANNING_DATA_STR-ZIMMR sy-vline 
WA_RN1PLANNING_DATA_STR-ZIMMR_X sy-vline 
WA_RN1PLANNING_DATA_STR-KZTXT sy-vline 
WA_RN1PLANNING_DATA_STR-KZTXT_X sy-vline 
WA_RN1PLANNING_DATA_STR-PTINP sy-vline 
WA_RN1PLANNING_DATA_STR-PTINP_X sy-vline 
WA_RN1PLANNING_DATA_STR-ORGFA sy-vline 
WA_RN1PLANNING_DATA_STR-ORGFA_X sy-vline 
WA_RN1PLANNING_DATA_STR-STATU sy-vline 
WA_RN1PLANNING_DATA_STR-STATU_X sy-vline 
WA_RN1PLANNING_DATA_STR-LGTXT sy-vline 
WA_RN1PLANNING_DATA_STR-LGTXT_X sy-vline 
WA_RN1PLANNING_DATA_STR-FACHR sy-vline 
WA_RN1PLANNING_DATA_STR-FACHR_X sy-vline 
WA_RN1PLANNING_DATA_STR-PELOC sy-vline 
WA_RN1PLANNING_DATA_STR-PELOC_X sy-vline 
WA_RN1PLANNING_DATA_STR-DSPTYX sy-vline 
WA_RN1PLANNING_DATA_STR-DSPTYX_X sy-vline 
WA_RN1PLANNING_DATA_STR-APP_OBJ_TEMPLATE sy-vline 
WA_RN1PLANNING_DATA_STR-APP_OBJ_TEMPLATE_X sy-vline 
WA_RN1PLANNING_DATA_STR-SORT sy-vline 
WA_RN1PLANNING_DATA_STR-CHAINNO sy-vline 
WA_RN1PLANNING_DATA_STR-CHAINNO_X sy-vline 
WA_RN1PLANNING_DATA_STR-CHAIN_APP_OBJ sy-vline 
WA_RN1PLANNING_DATA_STR-CHAIN_APP_OBJ_X sy-vline 
WA_RN1PLANNING_DATA_STR-PZMAN sy-vline 
WA_RN1PLANNING_DATA_STR-PZMAN_X sy-vline 
WA_RN1PLANNING_DATA_STR-CAUSECHNG sy-vline 
WA_RN1PLANNING_DATA_STR-CAUSECHNG_X sy-vline 
WA_RN1PLANNING_DATA_STR-CSECHGID sy-vline 
WA_RN1PLANNING_DATA_STR-CSECHGID_X sy-vline 
WA_RN1PLANNING_DATA_STR-SRV_OBJ sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.