ABAP Select data from SAP table RA03W 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 RA03W 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 RA03W. 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 RA03W 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_RA03W TYPE STANDARD TABLE OF RA03W,
      WA_RA03W TYPE RA03W,
      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: <RA03W> TYPE RA03W.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RA03W
*  INTO TABLE @DATA(IT_RA03W2).
*--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_RA03W INDEX 1 INTO DATA(WA_RA03W2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RA03W>-ANLN2 = 1.
<RA03W>-AFABE = 1.
<RA03W>-AFABER1 = 1.
<RA03W>-AFABER2 = 1.
<RA03W>-AFABER_CHG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RA03W-GJA_AUFW, sy-vline,
  WA_RA03W-GJE_AUFW, sy-vline,
  WA_RA03W-GEB_AUFWTG, sy-vline,
  WA_RA03W-GJA_KANSW0, sy-vline,
  WA_RA03W-GJA_KANSW, sy-vline,
  WA_RA03W-GJA_ANSWL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RA03W 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_RA03W 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_RA03W INTO WA_RA03W.


*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 ANLN2
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANLN2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANLN2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_AUFW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_AUFW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_AUFW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_AUFW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_AUFW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_AUFW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GEB_AUFWTG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GEB_AUFWTG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GEB_AUFWTG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_KANSW0
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_KANSW0
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_KANSW0.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_KANSW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_KANSW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_KANSW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_ANSWL
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_ANSWL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_ANSWL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field LFD_KANSW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-LFD_KANSW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-LFD_KANSW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field LFD_ANSWL
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-LFD_ANSWL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-LFD_ANSWL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_KANSW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_KANSW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_KANSW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_BCHWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_BCHWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_BCHWRT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field LFD_BCHWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-LFD_BCHWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-LFD_BCHWRT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_BCHWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_BCHWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_BCHWRT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_ZUSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_ZUSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_ZUSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_BWGWB
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_BWGWB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_BWGWB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_NAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_NAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_NAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_SAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_SAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_SAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_MAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_MAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_MAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_AAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_AAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_AAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_WBW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_WBW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_WBW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANT_BCKLG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ANT_BCKLG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ANT_BCKLG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GEB_ABSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GEB_ABSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GEB_ABSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GEP_ABSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GEP_ABSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GEP_ABSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field NVG_ABSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-NVG_ABSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-NVG_ABSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field RVG_ABSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-RVG_ABSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-RVG_ABSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field RGP_ABSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-RGP_ABSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-RGP_ABSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_INVZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_INVZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_INVZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_INVZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_INVZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_INVZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field IBETRG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-IBETRG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-IBETRG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field INVZM_SUM
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-INVZM_SUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-INVZM_SUM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field INVZ_SUM
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-INVZ_SUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-INVZ_SUM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field LFD_MAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-LFD_MAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-LFD_MAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJE_MAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJE_MAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJE_MAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_ANSWLR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJA_ANSWLR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJA_ANSWLR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DETWERT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-DETWERT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-DETWERT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ORIWERT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-ORIWERT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-ORIWERT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field GJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GJAHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_ANWSL
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_ANWSL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_ANWSL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_AUFWP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_AUFWP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_AUFWP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_MAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_MAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_MAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_NAFAP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_NAFAP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_NAFAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_SAFAP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_SAFAP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_SAFAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_AAFAP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_AAFAP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_AAFAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_AUFNP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_AUFNP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_AUFNP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_ZINSP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_ZINSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_ZINSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_ANSAZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_ANSAZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_ANSAZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_ZUSCHR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_ZUSCHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_ZUSCHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GES_BWGWB
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-GES_BWGWB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-GES_BWGWB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field LFD_RSTWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RA03W-LFD_RSTWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RA03W-LFD_RSTWRT.
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_RA03W_STR, 
ANLN2 TYPE STRING,
AFABE TYPE STRING,
AFABER1 TYPE STRING,
AFABER2 TYPE STRING,
AFABER_CHG TYPE STRING,
GJA_AUFW TYPE STRING,
GJE_AUFW TYPE STRING,
GEB_AUFWTG TYPE STRING,
GJA_KANSW0 TYPE STRING,
GJA_KANSW TYPE STRING,
GJA_ANSWL TYPE STRING,
LFD_KANSW TYPE STRING,
LFD_ANSWL TYPE STRING,
GJE_KANSW TYPE STRING,
GJA_BCHWRT TYPE STRING,
LFD_BCHWRT TYPE STRING,
GJE_BCHWRT TYPE STRING,
GJE_ZUSCHR TYPE STRING,
GJE_BWGWB TYPE STRING,
ANT_NAFA TYPE STRING,
ANT_SAFA TYPE STRING,
ANT_MAFA TYPE STRING,
ANT_AAFA TYPE STRING,
ANT_WBW TYPE STRING,
ANT_BCKLG TYPE STRING,
GEB_ABSCHR TYPE STRING,
GEP_ABSCHR TYPE STRING,
NVG_ABSCHR TYPE STRING,
RVG_ABSCHR TYPE STRING,
RGP_ABSCHR TYPE STRING,
GJE_INVZ TYPE STRING,
GES_INVZ TYPE STRING,
IBETRG TYPE STRING,
INVZM_SUM TYPE STRING,
INVZ_SUM TYPE STRING,
LFD_MAFA TYPE STRING,
GJE_MAFA TYPE STRING,
GJA_ANSWLR TYPE STRING,
DETFELD TYPE STRING,
DETWERT TYPE STRING,
ORIFELD TYPE STRING,
ORIWERT TYPE STRING,
RSTNDP TYPE STRING,
RSTNDJ TYPE STRING,
XMARK TYPE STRING,
FTEXT01 TYPE STRING,
FTEXT02 TYPE STRING,
FTEXT03 TYPE STRING,
FTEXT11 TYPE STRING,
FTEXT12 TYPE STRING,
FTEXT13 TYPE STRING,
FTEXT14 TYPE STRING,
FTEXT20 TYPE STRING,
FTEXT21 TYPE STRING,
FTEXT30 TYPE STRING,
FTEXT31 TYPE STRING,
FTEXT32 TYPE STRING,
FTEXT33 TYPE STRING,
FTEXT34 TYPE STRING,
FTEXT90 TYPE STRING,
FTEXT01K TYPE STRING,
FTEXT02K TYPE STRING,
FTEXT03K TYPE STRING,
FTEXT11K TYPE STRING,
FTEXT12K TYPE STRING,
FTEXT13K TYPE STRING,
FTEXT14K TYPE STRING,
FTEXT20K TYPE STRING,
FTEXT21K TYPE STRING,
FTEXT30K TYPE STRING,
FTEXT31K TYPE STRING,
FTEXT32K TYPE STRING,
FTEXT33K TYPE STRING,
FTEXT34K TYPE STRING,
FTEXT90K TYPE STRING,
XSTOR TYPE STRING,
LSEIT TYPE STRING,
MSEIT TYPE STRING,
GJANF TYPE STRING,
GJAHR TYPE STRING,
GJENDE TYPE STRING,
AW01HEADER TYPE STRING,
AFABE_AW01 TYPE STRING,
ANLGRTXT TYPE STRING,
GES_ANWSL TYPE STRING,
GES_AUFWP TYPE STRING,
GES_MAFA TYPE STRING,
GES_NAFAP TYPE STRING,
GES_SAFAP TYPE STRING,
GES_AAFAP TYPE STRING,
GES_AUFNP TYPE STRING,
GES_ZINSP TYPE STRING,
GES_ANSAZ TYPE STRING,
GES_ZUSCHR TYPE STRING,
GES_BWGWB TYPE STRING,
LFD_RSTWRT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RA03W_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_RA03W_STR-ANLN2 sy-vline 
WA_RA03W_STR-AFABE sy-vline 
WA_RA03W_STR-AFABER1 sy-vline 
WA_RA03W_STR-AFABER2 sy-vline 
WA_RA03W_STR-AFABER_CHG sy-vline 
WA_RA03W_STR-GJA_AUFW sy-vline 
WA_RA03W_STR-GJE_AUFW sy-vline 
WA_RA03W_STR-GEB_AUFWTG sy-vline 
WA_RA03W_STR-GJA_KANSW0 sy-vline 
WA_RA03W_STR-GJA_KANSW sy-vline 
WA_RA03W_STR-GJA_ANSWL sy-vline 
WA_RA03W_STR-LFD_KANSW sy-vline 
WA_RA03W_STR-LFD_ANSWL sy-vline 
WA_RA03W_STR-GJE_KANSW sy-vline 
WA_RA03W_STR-GJA_BCHWRT sy-vline 
WA_RA03W_STR-LFD_BCHWRT sy-vline 
WA_RA03W_STR-GJE_BCHWRT sy-vline 
WA_RA03W_STR-GJE_ZUSCHR sy-vline 
WA_RA03W_STR-GJE_BWGWB sy-vline 
WA_RA03W_STR-ANT_NAFA sy-vline 
WA_RA03W_STR-ANT_SAFA sy-vline 
WA_RA03W_STR-ANT_MAFA sy-vline 
WA_RA03W_STR-ANT_AAFA sy-vline 
WA_RA03W_STR-ANT_WBW sy-vline 
WA_RA03W_STR-ANT_BCKLG sy-vline 
WA_RA03W_STR-GEB_ABSCHR sy-vline 
WA_RA03W_STR-GEP_ABSCHR sy-vline 
WA_RA03W_STR-NVG_ABSCHR sy-vline 
WA_RA03W_STR-RVG_ABSCHR sy-vline 
WA_RA03W_STR-RGP_ABSCHR sy-vline 
WA_RA03W_STR-GJE_INVZ sy-vline 
WA_RA03W_STR-GES_INVZ sy-vline 
WA_RA03W_STR-IBETRG sy-vline 
WA_RA03W_STR-INVZM_SUM sy-vline 
WA_RA03W_STR-INVZ_SUM sy-vline 
WA_RA03W_STR-LFD_MAFA sy-vline 
WA_RA03W_STR-GJE_MAFA sy-vline 
WA_RA03W_STR-GJA_ANSWLR sy-vline 
WA_RA03W_STR-DETFELD sy-vline 
WA_RA03W_STR-DETWERT sy-vline 
WA_RA03W_STR-ORIFELD sy-vline 
WA_RA03W_STR-ORIWERT sy-vline 
WA_RA03W_STR-RSTNDP sy-vline 
WA_RA03W_STR-RSTNDJ sy-vline 
WA_RA03W_STR-XMARK sy-vline 
WA_RA03W_STR-FTEXT01 sy-vline 
WA_RA03W_STR-FTEXT02 sy-vline 
WA_RA03W_STR-FTEXT03 sy-vline 
WA_RA03W_STR-FTEXT11 sy-vline 
WA_RA03W_STR-FTEXT12 sy-vline 
WA_RA03W_STR-FTEXT13 sy-vline 
WA_RA03W_STR-FTEXT14 sy-vline 
WA_RA03W_STR-FTEXT20 sy-vline 
WA_RA03W_STR-FTEXT21 sy-vline 
WA_RA03W_STR-FTEXT30 sy-vline 
WA_RA03W_STR-FTEXT31 sy-vline 
WA_RA03W_STR-FTEXT32 sy-vline 
WA_RA03W_STR-FTEXT33 sy-vline 
WA_RA03W_STR-FTEXT34 sy-vline 
WA_RA03W_STR-FTEXT90 sy-vline 
WA_RA03W_STR-FTEXT01K sy-vline 
WA_RA03W_STR-FTEXT02K sy-vline 
WA_RA03W_STR-FTEXT03K sy-vline 
WA_RA03W_STR-FTEXT11K sy-vline 
WA_RA03W_STR-FTEXT12K sy-vline 
WA_RA03W_STR-FTEXT13K sy-vline 
WA_RA03W_STR-FTEXT14K sy-vline 
WA_RA03W_STR-FTEXT20K sy-vline 
WA_RA03W_STR-FTEXT21K sy-vline 
WA_RA03W_STR-FTEXT30K sy-vline 
WA_RA03W_STR-FTEXT31K sy-vline 
WA_RA03W_STR-FTEXT32K sy-vline 
WA_RA03W_STR-FTEXT33K sy-vline 
WA_RA03W_STR-FTEXT34K sy-vline 
WA_RA03W_STR-FTEXT90K sy-vline 
WA_RA03W_STR-XSTOR sy-vline 
WA_RA03W_STR-LSEIT sy-vline 
WA_RA03W_STR-MSEIT sy-vline 
WA_RA03W_STR-GJANF sy-vline 
WA_RA03W_STR-GJAHR sy-vline 
WA_RA03W_STR-GJENDE sy-vline 
WA_RA03W_STR-AW01HEADER sy-vline 
WA_RA03W_STR-AFABE_AW01 sy-vline 
WA_RA03W_STR-ANLGRTXT sy-vline 
WA_RA03W_STR-GES_ANWSL sy-vline 
WA_RA03W_STR-GES_AUFWP sy-vline 
WA_RA03W_STR-GES_MAFA sy-vline 
WA_RA03W_STR-GES_NAFAP sy-vline 
WA_RA03W_STR-GES_SAFAP sy-vline 
WA_RA03W_STR-GES_AAFAP sy-vline 
WA_RA03W_STR-GES_AUFNP sy-vline 
WA_RA03W_STR-GES_ZINSP sy-vline 
WA_RA03W_STR-GES_ANSAZ sy-vline 
WA_RA03W_STR-GES_ZUSCHR sy-vline 
WA_RA03W_STR-GES_BWGWB sy-vline 
WA_RA03W_STR-LFD_RSTWRT sy-vline      INTO ld_text SEPARATED BY SPACE.

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