ABAP Select data from SAP table RNSERVICE00 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 RNSERVICE00 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 RNSERVICE00. 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 RNSERVICE00 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_RNSERVICE00 TYPE STANDARD TABLE OF RNSERVICE00,
      WA_RNSERVICE00 TYPE RNSERVICE00,
      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: <RNSERVICE00> TYPE RNSERVICE00.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNSERVICE00
*  INTO TABLE @DATA(IT_RNSERVICE002).
*--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_RNSERVICE00 INDEX 1 INTO DATA(WA_RNSERVICE002).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNSERVICE00>-MANDT = 1.
<RNSERVICE00>-EINRI = 1.
<RNSERVICE00>-FALNR = 1.
<RNSERVICE00>-ORGID = 1.
<RNSERVICE00>-LEIST = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNSERVICE00-LNRLS, sy-vline,
  WA_RNSERVICE00-LEITX, sy-vline,
  WA_RNSERVICE00-ABRKZ, sy-vline,
  WA_RNSERVICE00-ANART, sy-vline,
  WA_RNSERVICE00-ANFOE, sy-vline,
  WA_RNSERVICE00-ANPOE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNSERVICE00 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_RNSERVICE00 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_RNSERVICE00 INTO WA_RNSERVICE00.


*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_RNSERVICE00-EINRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNSERVICE00-EINRI.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_RNSERVICE00-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNSERVICE00-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field LSTZ2
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNSERVICE00-LSTZ2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNSERVICE00-LSTZ2.
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_RNSERVICE00_STR, 
MANDT TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
ORGID TYPE STRING,
LEIST TYPE STRING,
LNRLS TYPE STRING,
LEITX TYPE STRING,
ABRKZ TYPE STRING,
ANART TYPE STRING,
ANFOE TYPE STRING,
ANPOE TYPE STRING,
IBZT TYPE STRING,
BEGTX TYPE STRING,
IEZT TYPE STRING,
ENTKY TYPE STRING,
ENZKY TYPE STRING,
ENTG2 TYPE STRING,
ERBOE TYPE STRING,
ERBTY TYPE STRING,
HCOKZ TYPE STRING,
IBGDT TYPE STRING,
IENDT TYPE STRING,
IMENG TYPE STRING,
KTRKZ TYPE STRING,
BZLST TYPE STRING,
LFDBEW TYPE STRING,
REMRK TYPE STRING,
STALS TYPE STRING,
TARAS TYPE STRING,
TARIF TYPE STRING,
TARLS TYPE STRING,
TARSP TYPE STRING,
PREIS TYPE STRING,
ABTYP TYPE STRING,
PZAHL TYPE STRING,
EXCAT TYPE STRING,
REFKY TYPE STRING,
ZOTYP TYPE STRING,
GPART1 TYPE STRING,
ROLTP1 TYPE STRING,
GPART2 TYPE STRING,
ROLTP2 TYPE STRING,
GPART3 TYPE STRING,
ROLTP3 TYPE STRING,
GPART4 TYPE STRING,
ROLTP4 TYPE STRING,
GPART5 TYPE STRING,
ROLTP5 TYPE STRING,
STORN TYPE STRING,
LEINH TYPE STRING,
EAUFN TYPE STRING,
BFORM TYPE STRING,
ENTGA TYPE STRING,
USER0 TYPE STRING,
USER1 TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE2 TYPE STRING,
USERTIME1 TYPE STRING,
USERTIME2 TYPE STRING,
USERPRICE1 TYPE STRING,
USERAMOUNT1 TYPE STRING,
USERUNIT1 TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN2 TYPE STRING,
USER2 TYPE STRING,
USERTEXT1 TYPE STRING,
REFBEW TYPE STRING,
ANMAN TYPE STRING,
ERMAN TYPE STRING,
HAUST TYPE STRING,
MATNR TYPE STRING,
PMENG TYPE STRING,
PBGDT TYPE STRING,
PENDT TYPE STRING,
PBZT TYPE STRING,
PEZT TYPE STRING,
TLMEN TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
STUSR TYPE STRING,
REFLNR TYPE STRING,
ZEITR TYPE STRING,
WNDNR TYPE STRING,
REFNR TYPE STRING,
KZBCP TYPE STRING,
BILLP TYPE STRING,
APMAN TYPE STRING,
REMKZ TYPE STRING,
ICPMK TYPE STRING,
ICPML TYPE STRING,
ICPHC TYPE STRING,
BEGKZ TYPE STRING,
OTYPL TYPE STRING,
UBVON TYPE STRING,
UBBIS TYPE STRING,
UBLKZ TYPE STRING,
UMENG TYPE STRING,
UAEKZ TYPE STRING,
NUBKZ TYPE STRING,
EVENT TYPE STRING,
OBJCT TYPE STRING,
KALKZ TYPE STRING,
EVTUP TYPE STRING,
OBJUP TYPE STRING,
TCODE TYPE STRING,
ABRMA TYPE STRING,
NBGDT TYPE STRING,
NBGZT TYPE STRING,
SEQUE TYPE STRING,
ACTION TYPE STRING,
CHANGE TYPE STRING,
FIX TYPE STRING,
CURSOR_FIELD TYPE STRING,
MARK TYPE STRING,
IDX TYPE STRING,
NLSLOK TYPE STRING,
MDIND TYPE STRING,
SECDE TYPE STRING,
SECDE_X TYPE STRING,
ZMID1 TYPE STRING,
ZMID1_X TYPE STRING,
ZMDA1 TYPE STRING,
ZMDA1_X TYPE STRING,
ZMTI1 TYPE STRING,
ZMTI1_X TYPE STRING,
ZMAN1 TYPE STRING,
ZMAN1_X TYPE STRING,
ZMEH1 TYPE STRING,
ZMEH1_X TYPE STRING,
LSTZ1 TYPE STRING,
LSTZ1_X TYPE STRING,
LSTZ2 TYPE STRING,
LSTZ2_X TYPE STRING,
BEAG TYPE STRING,
BEAG_X TYPE STRING,
LABTYP TYPE STRING,
LABTYP_X TYPE STRING,
CONVSIGN TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNSERVICE00_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_RNSERVICE00_STR-MANDT sy-vline 
WA_RNSERVICE00_STR-EINRI sy-vline 
WA_RNSERVICE00_STR-FALNR sy-vline 
WA_RNSERVICE00_STR-ORGID sy-vline 
WA_RNSERVICE00_STR-LEIST sy-vline 
WA_RNSERVICE00_STR-LNRLS sy-vline 
WA_RNSERVICE00_STR-LEITX sy-vline 
WA_RNSERVICE00_STR-ABRKZ sy-vline 
WA_RNSERVICE00_STR-ANART sy-vline 
WA_RNSERVICE00_STR-ANFOE sy-vline 
WA_RNSERVICE00_STR-ANPOE sy-vline 
WA_RNSERVICE00_STR-IBZT sy-vline 
WA_RNSERVICE00_STR-BEGTX sy-vline 
WA_RNSERVICE00_STR-IEZT sy-vline 
WA_RNSERVICE00_STR-ENTKY sy-vline 
WA_RNSERVICE00_STR-ENZKY sy-vline 
WA_RNSERVICE00_STR-ENTG2 sy-vline 
WA_RNSERVICE00_STR-ERBOE sy-vline 
WA_RNSERVICE00_STR-ERBTY sy-vline 
WA_RNSERVICE00_STR-HCOKZ sy-vline 
WA_RNSERVICE00_STR-IBGDT sy-vline 
WA_RNSERVICE00_STR-IENDT sy-vline 
WA_RNSERVICE00_STR-IMENG sy-vline 
WA_RNSERVICE00_STR-KTRKZ sy-vline 
WA_RNSERVICE00_STR-BZLST sy-vline 
WA_RNSERVICE00_STR-LFDBEW sy-vline 
WA_RNSERVICE00_STR-REMRK sy-vline 
WA_RNSERVICE00_STR-STALS sy-vline 
WA_RNSERVICE00_STR-TARAS sy-vline 
WA_RNSERVICE00_STR-TARIF sy-vline 
WA_RNSERVICE00_STR-TARLS sy-vline 
WA_RNSERVICE00_STR-TARSP sy-vline 
WA_RNSERVICE00_STR-PREIS sy-vline 
WA_RNSERVICE00_STR-ABTYP sy-vline 
WA_RNSERVICE00_STR-PZAHL sy-vline 
WA_RNSERVICE00_STR-EXCAT sy-vline 
WA_RNSERVICE00_STR-REFKY sy-vline 
WA_RNSERVICE00_STR-ZOTYP sy-vline 
WA_RNSERVICE00_STR-GPART1 sy-vline 
WA_RNSERVICE00_STR-ROLTP1 sy-vline 
WA_RNSERVICE00_STR-GPART2 sy-vline 
WA_RNSERVICE00_STR-ROLTP2 sy-vline 
WA_RNSERVICE00_STR-GPART3 sy-vline 
WA_RNSERVICE00_STR-ROLTP3 sy-vline 
WA_RNSERVICE00_STR-GPART4 sy-vline 
WA_RNSERVICE00_STR-ROLTP4 sy-vline 
WA_RNSERVICE00_STR-GPART5 sy-vline 
WA_RNSERVICE00_STR-ROLTP5 sy-vline 
WA_RNSERVICE00_STR-STORN sy-vline 
WA_RNSERVICE00_STR-LEINH sy-vline 
WA_RNSERVICE00_STR-EAUFN sy-vline 
WA_RNSERVICE00_STR-BFORM sy-vline 
WA_RNSERVICE00_STR-ENTGA sy-vline 
WA_RNSERVICE00_STR-USER0 sy-vline 
WA_RNSERVICE00_STR-USER1 sy-vline 
WA_RNSERVICE00_STR-USERDATE1 sy-vline 
WA_RNSERVICE00_STR-USERDATE2 sy-vline 
WA_RNSERVICE00_STR-USERTIME1 sy-vline 
WA_RNSERVICE00_STR-USERTIME2 sy-vline 
WA_RNSERVICE00_STR-USERPRICE1 sy-vline 
WA_RNSERVICE00_STR-USERAMOUNT1 sy-vline 
WA_RNSERVICE00_STR-USERUNIT1 sy-vline 
WA_RNSERVICE00_STR-USERSIGN1 sy-vline 
WA_RNSERVICE00_STR-USERSIGN2 sy-vline 
WA_RNSERVICE00_STR-USER2 sy-vline 
WA_RNSERVICE00_STR-USERTEXT1 sy-vline 
WA_RNSERVICE00_STR-REFBEW sy-vline 
WA_RNSERVICE00_STR-ANMAN sy-vline 
WA_RNSERVICE00_STR-ERMAN sy-vline 
WA_RNSERVICE00_STR-HAUST sy-vline 
WA_RNSERVICE00_STR-MATNR sy-vline 
WA_RNSERVICE00_STR-PMENG sy-vline 
WA_RNSERVICE00_STR-PBGDT sy-vline 
WA_RNSERVICE00_STR-PENDT sy-vline 
WA_RNSERVICE00_STR-PBZT sy-vline 
WA_RNSERVICE00_STR-PEZT sy-vline 
WA_RNSERVICE00_STR-TLMEN sy-vline 
WA_RNSERVICE00_STR-ERDAT sy-vline 
WA_RNSERVICE00_STR-ERUSR sy-vline 
WA_RNSERVICE00_STR-UPDAT sy-vline 
WA_RNSERVICE00_STR-UPUSR sy-vline 
WA_RNSERVICE00_STR-STUSR sy-vline 
WA_RNSERVICE00_STR-REFLNR sy-vline 
WA_RNSERVICE00_STR-ZEITR sy-vline 
WA_RNSERVICE00_STR-WNDNR sy-vline 
WA_RNSERVICE00_STR-REFNR sy-vline 
WA_RNSERVICE00_STR-KZBCP sy-vline 
WA_RNSERVICE00_STR-BILLP sy-vline 
WA_RNSERVICE00_STR-APMAN sy-vline 
WA_RNSERVICE00_STR-REMKZ sy-vline 
WA_RNSERVICE00_STR-ICPMK sy-vline 
WA_RNSERVICE00_STR-ICPML sy-vline 
WA_RNSERVICE00_STR-ICPHC sy-vline 
WA_RNSERVICE00_STR-BEGKZ sy-vline 
WA_RNSERVICE00_STR-OTYPL sy-vline 
WA_RNSERVICE00_STR-UBVON sy-vline 
WA_RNSERVICE00_STR-UBBIS sy-vline 
WA_RNSERVICE00_STR-UBLKZ sy-vline 
WA_RNSERVICE00_STR-UMENG sy-vline 
WA_RNSERVICE00_STR-UAEKZ sy-vline 
WA_RNSERVICE00_STR-NUBKZ sy-vline 
WA_RNSERVICE00_STR-EVENT sy-vline 
WA_RNSERVICE00_STR-OBJCT sy-vline 
WA_RNSERVICE00_STR-KALKZ sy-vline 
WA_RNSERVICE00_STR-EVTUP sy-vline 
WA_RNSERVICE00_STR-OBJUP sy-vline 
WA_RNSERVICE00_STR-TCODE sy-vline 
WA_RNSERVICE00_STR-ABRMA sy-vline 
WA_RNSERVICE00_STR-NBGDT sy-vline 
WA_RNSERVICE00_STR-NBGZT sy-vline 
WA_RNSERVICE00_STR-SEQUE sy-vline 
WA_RNSERVICE00_STR-ACTION sy-vline 
WA_RNSERVICE00_STR-CHANGE sy-vline 
WA_RNSERVICE00_STR-FIX sy-vline 
WA_RNSERVICE00_STR-CURSOR_FIELD sy-vline 
WA_RNSERVICE00_STR-MARK sy-vline 
WA_RNSERVICE00_STR-IDX sy-vline 
WA_RNSERVICE00_STR-NLSLOK sy-vline 
WA_RNSERVICE00_STR-MDIND sy-vline 
WA_RNSERVICE00_STR-SECDE sy-vline 
WA_RNSERVICE00_STR-SECDE_X sy-vline 
WA_RNSERVICE00_STR-ZMID1 sy-vline 
WA_RNSERVICE00_STR-ZMID1_X sy-vline 
WA_RNSERVICE00_STR-ZMDA1 sy-vline 
WA_RNSERVICE00_STR-ZMDA1_X sy-vline 
WA_RNSERVICE00_STR-ZMTI1 sy-vline 
WA_RNSERVICE00_STR-ZMTI1_X sy-vline 
WA_RNSERVICE00_STR-ZMAN1 sy-vline 
WA_RNSERVICE00_STR-ZMAN1_X sy-vline 
WA_RNSERVICE00_STR-ZMEH1 sy-vline 
WA_RNSERVICE00_STR-ZMEH1_X sy-vline 
WA_RNSERVICE00_STR-LSTZ1 sy-vline 
WA_RNSERVICE00_STR-LSTZ1_X sy-vline 
WA_RNSERVICE00_STR-LSTZ2 sy-vline 
WA_RNSERVICE00_STR-LSTZ2_X sy-vline 
WA_RNSERVICE00_STR-BEAG sy-vline 
WA_RNSERVICE00_STR-BEAG_X sy-vline 
WA_RNSERVICE00_STR-LABTYP sy-vline 
WA_RNSERVICE00_STR-LABTYP_X sy-vline 
WA_RNSERVICE00_STR-CONVSIGN sy-vline      INTO ld_text SEPARATED BY SPACE.

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