ABAP Select data from SAP table RNSERVICE02 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 RNSERVICE02 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 RNSERVICE02. 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 RNSERVICE02 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_RNSERVICE02 TYPE STANDARD TABLE OF RNSERVICE02,
      WA_RNSERVICE02 TYPE RNSERVICE02,
      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: <RNSERVICE02> TYPE RNSERVICE02.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNSERVICE02
*  INTO TABLE @DATA(IT_RNSERVICE022).
*--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_RNSERVICE02 INDEX 1 INTO DATA(WA_RNSERVICE022).


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

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

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNSERVICE02-ORGID_X, sy-vline,
  WA_RNSERVICE02-LEIST, sy-vline,
  WA_RNSERVICE02-LEIST_X, sy-vline,
  WA_RNSERVICE02-LNRLS, sy-vline,
  WA_RNSERVICE02-LEITX, sy-vline,
  WA_RNSERVICE02-LEITX_X, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNSERVICE02 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_RNSERVICE02 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_RNSERVICE02 INTO WA_RNSERVICE02.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CONSVA
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNSERVICE02-CONSVA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNSERVICE02-CONSVA.
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_RNSERVICE02_STR, 
MANDT TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
FALNR_X TYPE STRING,
ORGID TYPE STRING,
ORGID_X TYPE STRING,
LEIST TYPE STRING,
LEIST_X TYPE STRING,
LNRLS TYPE STRING,
LEITX TYPE STRING,
LEITX_X TYPE STRING,
ABRKZ TYPE STRING,
ABRKZ_X TYPE STRING,
ANART TYPE STRING,
ANART_X TYPE STRING,
ANFOE TYPE STRING,
ANFOE_X TYPE STRING,
ANPOE TYPE STRING,
ANPOE_X TYPE STRING,
IBZT TYPE STRING,
IBZT_X TYPE STRING,
BEGTX TYPE STRING,
BEGTX_X TYPE STRING,
IEZT TYPE STRING,
IEZT_X TYPE STRING,
ENTKY TYPE STRING,
ENTKY_X TYPE STRING,
ENZKY TYPE STRING,
ENZKY_X TYPE STRING,
ENTG2 TYPE STRING,
ENTG2_X TYPE STRING,
ERBOE TYPE STRING,
ERBOE_X TYPE STRING,
ERBTY TYPE STRING,
ERBTY_X TYPE STRING,
HCOKZ TYPE STRING,
HCOKZ_X TYPE STRING,
IBGDT TYPE STRING,
IBGDT_X TYPE STRING,
IENDT TYPE STRING,
IENDT_X TYPE STRING,
IMENG TYPE STRING,
IMENG_X TYPE STRING,
KTRKZ TYPE STRING,
KTRKZ_X TYPE STRING,
BZLST TYPE STRING,
BZLST_X TYPE STRING,
LFDBEW TYPE STRING,
LFDBEW_X TYPE STRING,
REMRK TYPE STRING,
REMRK_X TYPE STRING,
STALS TYPE STRING,
STALS_X TYPE STRING,
TARAS TYPE STRING,
TARAS_X TYPE STRING,
TARIF TYPE STRING,
TARIF_X TYPE STRING,
TARLS TYPE STRING,
TARLS_X TYPE STRING,
TARSP TYPE STRING,
TARSP_X TYPE STRING,
PREIS TYPE STRING,
PREIS_X TYPE STRING,
ABTYP TYPE STRING,
ABTYP_X TYPE STRING,
PZAHL TYPE STRING,
PZAHL_X TYPE STRING,
EXCAT TYPE STRING,
EXCAT_X TYPE STRING,
REFKY TYPE STRING,
REFKY_X TYPE STRING,
ZOTYP TYPE STRING,
ZOTYP_X TYPE STRING,
GPART1 TYPE STRING,
GPART1_X TYPE STRING,
ROLTP1 TYPE STRING,
ROLTP1_X TYPE STRING,
GPART2 TYPE STRING,
GPART2_X TYPE STRING,
ROLTP2 TYPE STRING,
ROLTP2_X TYPE STRING,
GPART3 TYPE STRING,
GPART3_X TYPE STRING,
ROLTP3 TYPE STRING,
ROLTP3_X TYPE STRING,
GPART4 TYPE STRING,
GPART4_X TYPE STRING,
ROLTP4 TYPE STRING,
ROLTP4_X TYPE STRING,
GPART5 TYPE STRING,
GPART5_X TYPE STRING,
ROLTP5 TYPE STRING,
ROLTP5_X TYPE STRING,
STORN TYPE STRING,
STORN_X TYPE STRING,
LEINH TYPE STRING,
LEINH_X TYPE STRING,
EAUFN TYPE STRING,
EAUFN_X TYPE STRING,
BFORM TYPE STRING,
BFORM_X TYPE STRING,
ENTGA TYPE STRING,
ENTGA_X TYPE STRING,
USER0 TYPE STRING,
USER0_X TYPE STRING,
USER1 TYPE STRING,
USER1_X TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE1_X TYPE STRING,
USERDATE2 TYPE STRING,
USERDATE2_X TYPE STRING,
USERTIME1 TYPE STRING,
USERTIME1_X TYPE STRING,
USERTIME2 TYPE STRING,
USERTIME2_X TYPE STRING,
USERPRICE1 TYPE STRING,
USERPRICE1_X TYPE STRING,
USERAMOUNT1 TYPE STRING,
USERAMOUNT1_X TYPE STRING,
USERUNIT1 TYPE STRING,
USERUNIT1_X TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN1_X TYPE STRING,
USERSIGN2 TYPE STRING,
USERSIGN2_X TYPE STRING,
USER2 TYPE STRING,
USER2_X TYPE STRING,
USERTEXT1 TYPE STRING,
USERTEXT1_X TYPE STRING,
WNDNR TYPE STRING,
WNDNR_X TYPE STRING,
NLSLOK TYPE STRING,
NLSLOK_X TYPE STRING,
MDIND TYPE STRING,
MDIND_X 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,
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,
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,
ASSTP TYPE STRING,
ASSTP_X TYPE STRING,
KZPRF TYPE STRING,
KZPRF_X TYPE STRING,
KZEAH TYPE STRING,
KZEAH_X TYPE STRING,
KZEXT TYPE STRING,
KZEXT_X TYPE STRING,
DBCNR TYPE STRING,
/ISHFR/AKTIV TYPE STRING,
/ISHFR/AKTIV_X TYPE STRING,
/ISHFR/PHASE TYPE STRING,
/ISHFR/PHASE_X TYPE STRING,
/ISHFR/MOD_CD1 TYPE STRING,
/ISHFR/MOD_CD1_X TYPE STRING,
/ISHFR/MOD_CD2 TYPE STRING,
/ISHFR/MOD_CD2_X TYPE STRING,
/ISHFR/MOD_CD3 TYPE STRING,
/ISHFR/MOD_CD3_X TYPE STRING,
/ISHFR/MOD_CD4 TYPE STRING,
/ISHFR/MOD_CD4_X TYPE STRING,
/ISHFR/KOE_SV TYPE STRING,
/ISHFR/KOE_SV_X TYPE STRING,
/ISHFR/PRSC_DT TYPE STRING,
/ISHFR/PRSC_DT_X TYPE STRING,
/ISHFR/ASS_CD TYPE STRING,
/ISHFR/ASS_CD_X TYPE STRING,
/ISHFR/PUR_PR TYPE STRING,
/ISHFR/PUR_PR_X TYPE STRING,
/ISHFR/EXO_CP TYPE STRING,
/ISHFR/EXO_CP_X TYPE STRING,
/ISHFR/NABM_CO TYPE STRING,
/ISHFR/NABM_CO_X TYPE STRING,
/ISHFR/HOPRICE TYPE STRING,
/ISHFR/HOPRICE_X TYPE STRING,
/ISHFR/PSCRV TYPE STRING,
/ISHFR/PSCRV_X TYPE STRING,
CONVSIGN TYPE STRING,
CONVSIGN_X TYPE STRING,
MEDUNIT TYPE STRING,
MEDUNIT_X TYPE STRING,
WISSCD TYPE STRING,
WISSCD_X TYPE STRING,
HIC_FREE TYPE STRING,
HIC_FREE_X TYPE STRING,
DEVNR TYPE STRING,
DEVNR_X TYPE STRING,
ORDNR TYPE STRING,
ORDNR_X TYPE STRING,
ASHOSP1 TYPE STRING,
ASHOSP1_X TYPE STRING,
ASHOSP2 TYPE STRING,
ASHOSP2_X TYPE STRING,
ASHOSP3 TYPE STRING,
ASHOSP3_X TYPE STRING,
ASHOSP4 TYPE STRING,
ASHOSP4_X TYPE STRING,
ASHOSP5 TYPE STRING,
ASHOSP5_X TYPE STRING,
DCODE TYPE STRING,
DCODE_X TYPE STRING,
CONSVA TYPE STRING,
CONSVA_X TYPE STRING,
LAAMB TYPE STRING,
LAAMB_X TYPE STRING,
LSCHL TYPE STRING,
LSCHL_X TYPE STRING,
ABRTX TYPE STRING,
ABRTX_X TYPE STRING,
ENTGAMB TYPE STRING,
ENTGAMB_X TYPE STRING,
THERGROUP TYPE STRING,
THERGROUP_X TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNSERVICE02_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_RNSERVICE02_STR-MANDT sy-vline 
WA_RNSERVICE02_STR-EINRI sy-vline 
WA_RNSERVICE02_STR-FALNR sy-vline 
WA_RNSERVICE02_STR-FALNR_X sy-vline 
WA_RNSERVICE02_STR-ORGID sy-vline 
WA_RNSERVICE02_STR-ORGID_X sy-vline 
WA_RNSERVICE02_STR-LEIST sy-vline 
WA_RNSERVICE02_STR-LEIST_X sy-vline 
WA_RNSERVICE02_STR-LNRLS sy-vline 
WA_RNSERVICE02_STR-LEITX sy-vline 
WA_RNSERVICE02_STR-LEITX_X sy-vline 
WA_RNSERVICE02_STR-ABRKZ sy-vline 
WA_RNSERVICE02_STR-ABRKZ_X sy-vline 
WA_RNSERVICE02_STR-ANART sy-vline 
WA_RNSERVICE02_STR-ANART_X sy-vline 
WA_RNSERVICE02_STR-ANFOE sy-vline 
WA_RNSERVICE02_STR-ANFOE_X sy-vline 
WA_RNSERVICE02_STR-ANPOE sy-vline 
WA_RNSERVICE02_STR-ANPOE_X sy-vline 
WA_RNSERVICE02_STR-IBZT sy-vline 
WA_RNSERVICE02_STR-IBZT_X sy-vline 
WA_RNSERVICE02_STR-BEGTX sy-vline 
WA_RNSERVICE02_STR-BEGTX_X sy-vline 
WA_RNSERVICE02_STR-IEZT sy-vline 
WA_RNSERVICE02_STR-IEZT_X sy-vline 
WA_RNSERVICE02_STR-ENTKY sy-vline 
WA_RNSERVICE02_STR-ENTKY_X sy-vline 
WA_RNSERVICE02_STR-ENZKY sy-vline 
WA_RNSERVICE02_STR-ENZKY_X sy-vline 
WA_RNSERVICE02_STR-ENTG2 sy-vline 
WA_RNSERVICE02_STR-ENTG2_X sy-vline 
WA_RNSERVICE02_STR-ERBOE sy-vline 
WA_RNSERVICE02_STR-ERBOE_X sy-vline 
WA_RNSERVICE02_STR-ERBTY sy-vline 
WA_RNSERVICE02_STR-ERBTY_X sy-vline 
WA_RNSERVICE02_STR-HCOKZ sy-vline 
WA_RNSERVICE02_STR-HCOKZ_X sy-vline 
WA_RNSERVICE02_STR-IBGDT sy-vline 
WA_RNSERVICE02_STR-IBGDT_X sy-vline 
WA_RNSERVICE02_STR-IENDT sy-vline 
WA_RNSERVICE02_STR-IENDT_X sy-vline 
WA_RNSERVICE02_STR-IMENG sy-vline 
WA_RNSERVICE02_STR-IMENG_X sy-vline 
WA_RNSERVICE02_STR-KTRKZ sy-vline 
WA_RNSERVICE02_STR-KTRKZ_X sy-vline 
WA_RNSERVICE02_STR-BZLST sy-vline 
WA_RNSERVICE02_STR-BZLST_X sy-vline 
WA_RNSERVICE02_STR-LFDBEW sy-vline 
WA_RNSERVICE02_STR-LFDBEW_X sy-vline 
WA_RNSERVICE02_STR-REMRK sy-vline 
WA_RNSERVICE02_STR-REMRK_X sy-vline 
WA_RNSERVICE02_STR-STALS sy-vline 
WA_RNSERVICE02_STR-STALS_X sy-vline 
WA_RNSERVICE02_STR-TARAS sy-vline 
WA_RNSERVICE02_STR-TARAS_X sy-vline 
WA_RNSERVICE02_STR-TARIF sy-vline 
WA_RNSERVICE02_STR-TARIF_X sy-vline 
WA_RNSERVICE02_STR-TARLS sy-vline 
WA_RNSERVICE02_STR-TARLS_X sy-vline 
WA_RNSERVICE02_STR-TARSP sy-vline 
WA_RNSERVICE02_STR-TARSP_X sy-vline 
WA_RNSERVICE02_STR-PREIS sy-vline 
WA_RNSERVICE02_STR-PREIS_X sy-vline 
WA_RNSERVICE02_STR-ABTYP sy-vline 
WA_RNSERVICE02_STR-ABTYP_X sy-vline 
WA_RNSERVICE02_STR-PZAHL sy-vline 
WA_RNSERVICE02_STR-PZAHL_X sy-vline 
WA_RNSERVICE02_STR-EXCAT sy-vline 
WA_RNSERVICE02_STR-EXCAT_X sy-vline 
WA_RNSERVICE02_STR-REFKY sy-vline 
WA_RNSERVICE02_STR-REFKY_X sy-vline 
WA_RNSERVICE02_STR-ZOTYP sy-vline 
WA_RNSERVICE02_STR-ZOTYP_X sy-vline 
WA_RNSERVICE02_STR-GPART1 sy-vline 
WA_RNSERVICE02_STR-GPART1_X sy-vline 
WA_RNSERVICE02_STR-ROLTP1 sy-vline 
WA_RNSERVICE02_STR-ROLTP1_X sy-vline 
WA_RNSERVICE02_STR-GPART2 sy-vline 
WA_RNSERVICE02_STR-GPART2_X sy-vline 
WA_RNSERVICE02_STR-ROLTP2 sy-vline 
WA_RNSERVICE02_STR-ROLTP2_X sy-vline 
WA_RNSERVICE02_STR-GPART3 sy-vline 
WA_RNSERVICE02_STR-GPART3_X sy-vline 
WA_RNSERVICE02_STR-ROLTP3 sy-vline 
WA_RNSERVICE02_STR-ROLTP3_X sy-vline 
WA_RNSERVICE02_STR-GPART4 sy-vline 
WA_RNSERVICE02_STR-GPART4_X sy-vline 
WA_RNSERVICE02_STR-ROLTP4 sy-vline 
WA_RNSERVICE02_STR-ROLTP4_X sy-vline 
WA_RNSERVICE02_STR-GPART5 sy-vline 
WA_RNSERVICE02_STR-GPART5_X sy-vline 
WA_RNSERVICE02_STR-ROLTP5 sy-vline 
WA_RNSERVICE02_STR-ROLTP5_X sy-vline 
WA_RNSERVICE02_STR-STORN sy-vline 
WA_RNSERVICE02_STR-STORN_X sy-vline 
WA_RNSERVICE02_STR-LEINH sy-vline 
WA_RNSERVICE02_STR-LEINH_X sy-vline 
WA_RNSERVICE02_STR-EAUFN sy-vline 
WA_RNSERVICE02_STR-EAUFN_X sy-vline 
WA_RNSERVICE02_STR-BFORM sy-vline 
WA_RNSERVICE02_STR-BFORM_X sy-vline 
WA_RNSERVICE02_STR-ENTGA sy-vline 
WA_RNSERVICE02_STR-ENTGA_X sy-vline 
WA_RNSERVICE02_STR-USER0 sy-vline 
WA_RNSERVICE02_STR-USER0_X sy-vline 
WA_RNSERVICE02_STR-USER1 sy-vline 
WA_RNSERVICE02_STR-USER1_X sy-vline 
WA_RNSERVICE02_STR-USERDATE1 sy-vline 
WA_RNSERVICE02_STR-USERDATE1_X sy-vline 
WA_RNSERVICE02_STR-USERDATE2 sy-vline 
WA_RNSERVICE02_STR-USERDATE2_X sy-vline 
WA_RNSERVICE02_STR-USERTIME1 sy-vline 
WA_RNSERVICE02_STR-USERTIME1_X sy-vline 
WA_RNSERVICE02_STR-USERTIME2 sy-vline 
WA_RNSERVICE02_STR-USERTIME2_X sy-vline 
WA_RNSERVICE02_STR-USERPRICE1 sy-vline 
WA_RNSERVICE02_STR-USERPRICE1_X sy-vline 
WA_RNSERVICE02_STR-USERAMOUNT1 sy-vline 
WA_RNSERVICE02_STR-USERAMOUNT1_X sy-vline 
WA_RNSERVICE02_STR-USERUNIT1 sy-vline 
WA_RNSERVICE02_STR-USERUNIT1_X sy-vline 
WA_RNSERVICE02_STR-USERSIGN1 sy-vline 
WA_RNSERVICE02_STR-USERSIGN1_X sy-vline 
WA_RNSERVICE02_STR-USERSIGN2 sy-vline 
WA_RNSERVICE02_STR-USERSIGN2_X sy-vline 
WA_RNSERVICE02_STR-USER2 sy-vline 
WA_RNSERVICE02_STR-USER2_X sy-vline 
WA_RNSERVICE02_STR-USERTEXT1 sy-vline 
WA_RNSERVICE02_STR-USERTEXT1_X sy-vline 
WA_RNSERVICE02_STR-WNDNR sy-vline 
WA_RNSERVICE02_STR-WNDNR_X sy-vline 
WA_RNSERVICE02_STR-NLSLOK sy-vline 
WA_RNSERVICE02_STR-NLSLOK_X sy-vline 
WA_RNSERVICE02_STR-MDIND sy-vline 
WA_RNSERVICE02_STR-MDIND_X sy-vline 
WA_RNSERVICE02_STR-REFBEW sy-vline 
WA_RNSERVICE02_STR-ANMAN sy-vline 
WA_RNSERVICE02_STR-ERMAN sy-vline 
WA_RNSERVICE02_STR-HAUST sy-vline 
WA_RNSERVICE02_STR-MATNR sy-vline 
WA_RNSERVICE02_STR-PMENG sy-vline 
WA_RNSERVICE02_STR-PBGDT sy-vline 
WA_RNSERVICE02_STR-PENDT sy-vline 
WA_RNSERVICE02_STR-PBZT sy-vline 
WA_RNSERVICE02_STR-PEZT sy-vline 
WA_RNSERVICE02_STR-TLMEN sy-vline 
WA_RNSERVICE02_STR-ERDAT sy-vline 
WA_RNSERVICE02_STR-ERUSR sy-vline 
WA_RNSERVICE02_STR-UPDAT sy-vline 
WA_RNSERVICE02_STR-UPUSR sy-vline 
WA_RNSERVICE02_STR-STUSR sy-vline 
WA_RNSERVICE02_STR-REFLNR sy-vline 
WA_RNSERVICE02_STR-ZEITR sy-vline 
WA_RNSERVICE02_STR-REFNR sy-vline 
WA_RNSERVICE02_STR-KZBCP sy-vline 
WA_RNSERVICE02_STR-BILLP sy-vline 
WA_RNSERVICE02_STR-APMAN sy-vline 
WA_RNSERVICE02_STR-REMKZ sy-vline 
WA_RNSERVICE02_STR-ICPMK sy-vline 
WA_RNSERVICE02_STR-ICPML sy-vline 
WA_RNSERVICE02_STR-ICPHC sy-vline 
WA_RNSERVICE02_STR-BEGKZ sy-vline 
WA_RNSERVICE02_STR-OTYPL sy-vline 
WA_RNSERVICE02_STR-UBVON sy-vline 
WA_RNSERVICE02_STR-UBBIS sy-vline 
WA_RNSERVICE02_STR-UBLKZ sy-vline 
WA_RNSERVICE02_STR-UMENG sy-vline 
WA_RNSERVICE02_STR-UAEKZ sy-vline 
WA_RNSERVICE02_STR-NUBKZ sy-vline 
WA_RNSERVICE02_STR-EVENT sy-vline 
WA_RNSERVICE02_STR-OBJCT sy-vline 
WA_RNSERVICE02_STR-KALKZ sy-vline 
WA_RNSERVICE02_STR-EVTUP sy-vline 
WA_RNSERVICE02_STR-OBJUP sy-vline 
WA_RNSERVICE02_STR-TCODE sy-vline 
WA_RNSERVICE02_STR-ABRMA sy-vline 
WA_RNSERVICE02_STR-NBGDT sy-vline 
WA_RNSERVICE02_STR-NBGZT sy-vline 
WA_RNSERVICE02_STR-SEQUE sy-vline 
WA_RNSERVICE02_STR-ACTION sy-vline 
WA_RNSERVICE02_STR-CHANGE sy-vline 
WA_RNSERVICE02_STR-FIX sy-vline 
WA_RNSERVICE02_STR-CURSOR_FIELD sy-vline 
WA_RNSERVICE02_STR-MARK sy-vline 
WA_RNSERVICE02_STR-IDX sy-vline 
WA_RNSERVICE02_STR-SECDE sy-vline 
WA_RNSERVICE02_STR-SECDE_X sy-vline 
WA_RNSERVICE02_STR-ZMID1 sy-vline 
WA_RNSERVICE02_STR-ZMID1_X sy-vline 
WA_RNSERVICE02_STR-ZMDA1 sy-vline 
WA_RNSERVICE02_STR-ZMDA1_X sy-vline 
WA_RNSERVICE02_STR-ZMTI1 sy-vline 
WA_RNSERVICE02_STR-ZMTI1_X sy-vline 
WA_RNSERVICE02_STR-ZMAN1 sy-vline 
WA_RNSERVICE02_STR-ZMAN1_X sy-vline 
WA_RNSERVICE02_STR-ZMEH1 sy-vline 
WA_RNSERVICE02_STR-ZMEH1_X sy-vline 
WA_RNSERVICE02_STR-LSTZ1 sy-vline 
WA_RNSERVICE02_STR-LSTZ1_X sy-vline 
WA_RNSERVICE02_STR-LSTZ2 sy-vline 
WA_RNSERVICE02_STR-LSTZ2_X sy-vline 
WA_RNSERVICE02_STR-BEAG sy-vline 
WA_RNSERVICE02_STR-BEAG_X sy-vline 
WA_RNSERVICE02_STR-LABTYP sy-vline 
WA_RNSERVICE02_STR-LABTYP_X sy-vline 
WA_RNSERVICE02_STR-ASSTP sy-vline 
WA_RNSERVICE02_STR-ASSTP_X sy-vline 
WA_RNSERVICE02_STR-KZPRF sy-vline 
WA_RNSERVICE02_STR-KZPRF_X sy-vline 
WA_RNSERVICE02_STR-KZEAH sy-vline 
WA_RNSERVICE02_STR-KZEAH_X sy-vline 
WA_RNSERVICE02_STR-KZEXT sy-vline 
WA_RNSERVICE02_STR-KZEXT_X sy-vline 
WA_RNSERVICE02_STR-DBCNR sy-vline 
WA_RNSERVICE02_STR-/ISHFR/AKTIV sy-vline 
WA_RNSERVICE02_STR-/ISHFR/AKTIV_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PHASE sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PHASE_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD1 sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD1_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD2 sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD2_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD3 sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD3_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD4 sy-vline 
WA_RNSERVICE02_STR-/ISHFR/MOD_CD4_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/KOE_SV sy-vline 
WA_RNSERVICE02_STR-/ISHFR/KOE_SV_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PRSC_DT sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PRSC_DT_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/ASS_CD sy-vline 
WA_RNSERVICE02_STR-/ISHFR/ASS_CD_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PUR_PR sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PUR_PR_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/EXO_CP sy-vline 
WA_RNSERVICE02_STR-/ISHFR/EXO_CP_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/NABM_CO sy-vline 
WA_RNSERVICE02_STR-/ISHFR/NABM_CO_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/HOPRICE sy-vline 
WA_RNSERVICE02_STR-/ISHFR/HOPRICE_X sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PSCRV sy-vline 
WA_RNSERVICE02_STR-/ISHFR/PSCRV_X sy-vline 
WA_RNSERVICE02_STR-CONVSIGN sy-vline 
WA_RNSERVICE02_STR-CONVSIGN_X sy-vline 
WA_RNSERVICE02_STR-MEDUNIT sy-vline 
WA_RNSERVICE02_STR-MEDUNIT_X sy-vline 
WA_RNSERVICE02_STR-WISSCD sy-vline 
WA_RNSERVICE02_STR-WISSCD_X sy-vline 
WA_RNSERVICE02_STR-HIC_FREE sy-vline 
WA_RNSERVICE02_STR-HIC_FREE_X sy-vline 
WA_RNSERVICE02_STR-DEVNR sy-vline 
WA_RNSERVICE02_STR-DEVNR_X sy-vline 
WA_RNSERVICE02_STR-ORDNR sy-vline 
WA_RNSERVICE02_STR-ORDNR_X sy-vline 
WA_RNSERVICE02_STR-ASHOSP1 sy-vline 
WA_RNSERVICE02_STR-ASHOSP1_X sy-vline 
WA_RNSERVICE02_STR-ASHOSP2 sy-vline 
WA_RNSERVICE02_STR-ASHOSP2_X sy-vline 
WA_RNSERVICE02_STR-ASHOSP3 sy-vline 
WA_RNSERVICE02_STR-ASHOSP3_X sy-vline 
WA_RNSERVICE02_STR-ASHOSP4 sy-vline 
WA_RNSERVICE02_STR-ASHOSP4_X sy-vline 
WA_RNSERVICE02_STR-ASHOSP5 sy-vline 
WA_RNSERVICE02_STR-ASHOSP5_X sy-vline 
WA_RNSERVICE02_STR-DCODE sy-vline 
WA_RNSERVICE02_STR-DCODE_X sy-vline 
WA_RNSERVICE02_STR-CONSVA sy-vline 
WA_RNSERVICE02_STR-CONSVA_X sy-vline 
WA_RNSERVICE02_STR-LAAMB sy-vline 
WA_RNSERVICE02_STR-LAAMB_X sy-vline 
WA_RNSERVICE02_STR-LSCHL sy-vline 
WA_RNSERVICE02_STR-LSCHL_X sy-vline 
WA_RNSERVICE02_STR-ABRTX sy-vline 
WA_RNSERVICE02_STR-ABRTX_X sy-vline 
WA_RNSERVICE02_STR-ENTGAMB sy-vline 
WA_RNSERVICE02_STR-ENTGAMB_X sy-vline 
WA_RNSERVICE02_STR-THERGROUP sy-vline 
WA_RNSERVICE02_STR-THERGROUP_X sy-vline      INTO ld_text SEPARATED BY SPACE.

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