ABAP Select data from SAP table RKSPIL into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP RKSPIL 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 RKSPIL. 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 RKSPIL 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_RKSPIL TYPE STANDARD TABLE OF RKSPIL,
      WA_RKSPIL TYPE RKSPIL,
      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: <RKSPIL> TYPE RKSPIL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RKSPIL
*  INTO TABLE @DATA(IT_RKSPIL2).
*--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_RKSPIL INDEX 1 INTO DATA(WA_RKSPIL2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RKSPIL ASSIGNING <RKSPIL>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RKSPIL>-OBJNR = 1.
<RKSPIL>-OBART = 1.
<RKSPIL>-OBJID = 1.
<RKSPIL>-KOSTL = 1.
<RKSPIL>-LSTAR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RKSPIL-PRZNR, sy-vline,
WA_RKSPIL-TEXT_OBJ, sy-vline,
WA_RKSPIL-LSTBTR, sy-vline,
WA_RKSPIL-LEINH, sy-vline,
WA_RKSPIL-TKGBTR, sy-vline,
WA_RKSPIL-TKFBTR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RKSPIL 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_RKSPIL 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_RKSPIL INTO WA_RKSPIL. *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 OBART, internal->external for field OBART CALL FUNCTION 'CONVERSION_EXIT_OBART_OUTPUT' EXPORTING input = WA_RKSPIL-OBART IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-OBART.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field LEINH CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_RKSPIL-LEINH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-LEINH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TKGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TKGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TKFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TKFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TKVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TKVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TOGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TOGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TOGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TOFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TOFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TOFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TOVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TOVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TOVBTR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AC112, internal->external for field TAGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TAGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TAGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TAFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TAFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TAFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TAVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TAVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TAVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TVGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TVGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TVGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TVFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TVFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TVFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TVVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TVVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TVVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TBGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TBGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TBGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TBFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TBFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TBFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TBVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TBVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TBVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TCGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TCGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TCGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TCFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TCFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TCFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TCVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TCVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TCVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TDGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TDGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TDGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TDFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TDFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TDFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TDVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TDVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TDVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TEGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TEGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TEGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TEFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TEFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TEFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TEVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TEVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TEVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TFGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TFGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TFGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TFFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TFFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TFFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TFVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TFVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TFVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TGGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TGGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TGGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TGFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TGFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TGFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TGVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-TGVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-TGVBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field THGBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-THGBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-THGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field THFBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-THFBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-THFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field THVBTR CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT' EXPORTING input = WA_RKSPIL-THVBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RKSPIL-THVBTR.
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_RKSPIL_STR,
OBJNR TYPE STRING,
OBART TYPE STRING,
OBJID TYPE STRING,
KOSTL TYPE STRING,
LSTAR TYPE STRING,
PRZNR TYPE STRING,
TEXT_OBJ TYPE STRING,
LSTBTR TYPE STRING,
LEINH TYPE STRING,
TKGBTR TYPE STRING,
TKFBTR TYPE STRING,
TKVBTR TYPE STRING,
TKEBTR TYPE STRING,
TOGBTR TYPE STRING,
TOFBTR TYPE STRING,
TOVBTR TYPE STRING,
TOEBTR TYPE STRING,
WAERS TYPE STRING,
VKSTA TYPE STRING,
LATYP TYPE STRING,
TARKZ TYPE STRING,
FIXVO TYPE STRING,
YRATE TYPE STRING,
NABST TYPE STRING,
ITVBF TYPE STRING,
ITCHG TYPE STRING,
AWAER TYPE STRING,
TAGBTR TYPE STRING,
TAFBTR TYPE STRING,
TAVBTR TYPE STRING,
TAEBTR TYPE STRING,
VWAER TYPE STRING,
TVGBTR TYPE STRING,
TVFBTR TYPE STRING,
TVVBTR TYPE STRING,
TVEBTR TYPE STRING,
BWAER TYPE STRING,
TBGBTR TYPE STRING,
TBFBTR TYPE STRING,
TBVBTR TYPE STRING,
TBEBTR TYPE STRING,
CWAER TYPE STRING,
TCGBTR TYPE STRING,
TCFBTR TYPE STRING,
TCVBTR TYPE STRING,
TCEBTR TYPE STRING,
DWAER TYPE STRING,
TDGBTR TYPE STRING,
TDFBTR TYPE STRING,
TDVBTR TYPE STRING,
TDEBTR TYPE STRING,
EWAER TYPE STRING,
TEGBTR TYPE STRING,
TEFBTR TYPE STRING,
TEVBTR TYPE STRING,
TEEBTR TYPE STRING,
FWAER TYPE STRING,
TFGBTR TYPE STRING,
TFFBTR TYPE STRING,
TFVBTR TYPE STRING,
TFEBTR TYPE STRING,
GWAER TYPE STRING,
TGGBTR TYPE STRING,
TGFBTR TYPE STRING,
TGVBTR TYPE STRING,
TGEBTR TYPE STRING,
HWAER TYPE STRING,
THGBTR TYPE STRING,
THFBTR TYPE STRING,
THVBTR TYPE STRING,
THEBTR TYPE STRING,END OF T_EKKO_STR. DATA: WA_RKSPIL_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_RKSPIL_STR-OBJNR sy-vline
WA_RKSPIL_STR-OBART sy-vline
WA_RKSPIL_STR-OBJID sy-vline
WA_RKSPIL_STR-KOSTL sy-vline
WA_RKSPIL_STR-LSTAR sy-vline
WA_RKSPIL_STR-PRZNR sy-vline
WA_RKSPIL_STR-TEXT_OBJ sy-vline
WA_RKSPIL_STR-LSTBTR sy-vline
WA_RKSPIL_STR-LEINH sy-vline
WA_RKSPIL_STR-TKGBTR sy-vline
WA_RKSPIL_STR-TKFBTR sy-vline
WA_RKSPIL_STR-TKVBTR sy-vline
WA_RKSPIL_STR-TKEBTR sy-vline
WA_RKSPIL_STR-TOGBTR sy-vline
WA_RKSPIL_STR-TOFBTR sy-vline
WA_RKSPIL_STR-TOVBTR sy-vline
WA_RKSPIL_STR-TOEBTR sy-vline
WA_RKSPIL_STR-WAERS sy-vline
WA_RKSPIL_STR-VKSTA sy-vline
WA_RKSPIL_STR-LATYP sy-vline
WA_RKSPIL_STR-TARKZ sy-vline
WA_RKSPIL_STR-FIXVO sy-vline
WA_RKSPIL_STR-YRATE sy-vline
WA_RKSPIL_STR-NABST sy-vline
WA_RKSPIL_STR-ITVBF sy-vline
WA_RKSPIL_STR-ITCHG sy-vline
WA_RKSPIL_STR-AWAER sy-vline
WA_RKSPIL_STR-TAGBTR sy-vline
WA_RKSPIL_STR-TAFBTR sy-vline
WA_RKSPIL_STR-TAVBTR sy-vline
WA_RKSPIL_STR-TAEBTR sy-vline
WA_RKSPIL_STR-VWAER sy-vline
WA_RKSPIL_STR-TVGBTR sy-vline
WA_RKSPIL_STR-TVFBTR sy-vline
WA_RKSPIL_STR-TVVBTR sy-vline
WA_RKSPIL_STR-TVEBTR sy-vline
WA_RKSPIL_STR-BWAER sy-vline
WA_RKSPIL_STR-TBGBTR sy-vline
WA_RKSPIL_STR-TBFBTR sy-vline
WA_RKSPIL_STR-TBVBTR sy-vline
WA_RKSPIL_STR-TBEBTR sy-vline
WA_RKSPIL_STR-CWAER sy-vline
WA_RKSPIL_STR-TCGBTR sy-vline
WA_RKSPIL_STR-TCFBTR sy-vline
WA_RKSPIL_STR-TCVBTR sy-vline
WA_RKSPIL_STR-TCEBTR sy-vline
WA_RKSPIL_STR-DWAER sy-vline
WA_RKSPIL_STR-TDGBTR sy-vline
WA_RKSPIL_STR-TDFBTR sy-vline
WA_RKSPIL_STR-TDVBTR sy-vline
WA_RKSPIL_STR-TDEBTR sy-vline
WA_RKSPIL_STR-EWAER sy-vline
WA_RKSPIL_STR-TEGBTR sy-vline
WA_RKSPIL_STR-TEFBTR sy-vline
WA_RKSPIL_STR-TEVBTR sy-vline
WA_RKSPIL_STR-TEEBTR sy-vline
WA_RKSPIL_STR-FWAER sy-vline
WA_RKSPIL_STR-TFGBTR sy-vline
WA_RKSPIL_STR-TFFBTR sy-vline
WA_RKSPIL_STR-TFVBTR sy-vline
WA_RKSPIL_STR-TFEBTR sy-vline
WA_RKSPIL_STR-GWAER sy-vline
WA_RKSPIL_STR-TGGBTR sy-vline
WA_RKSPIL_STR-TGFBTR sy-vline
WA_RKSPIL_STR-TGVBTR sy-vline
WA_RKSPIL_STR-TGEBTR sy-vline
WA_RKSPIL_STR-HWAER sy-vline
WA_RKSPIL_STR-THGBTR sy-vline
WA_RKSPIL_STR-THFBTR sy-vline
WA_RKSPIL_STR-THVBTR sy-vline
WA_RKSPIL_STR-THEBTR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.