ABAP Select data from SAP table RNAMB_STD 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 RNAMB_STD 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 RNAMB_STD. 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 RNAMB_STD 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_RNAMB_STD TYPE STANDARD TABLE OF RNAMB_STD,
      WA_RNAMB_STD TYPE RNAMB_STD,
      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: <RNAMB_STD> TYPE RNAMB_STD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNAMB_STD
*  INTO TABLE @DATA(IT_RNAMB_STD2).
*--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_RNAMB_STD INDEX 1 INTO DATA(WA_RNAMB_STD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNAMB_STD>-PFDAT = 1.
<RNAMB_STD>-HEALTHID = 1.
<RNAMB_STD>-GSCHL = 1.
<RNAMB_STD>-GSCHLE = 1.
<RNAMB_STD>-GBDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNAMB_STD-ISTAT_RES, sy-vline,
  WA_RNAMB_STD-KKSNR, sy-vline,
  WA_RNAMB_STD-NATIO, sy-vline,
  WA_RNAMB_STD-STRAS, sy-vline,
  WA_RNAMB_STD-PCNTR, sy-vline,
  WA_RNAMB_STD-BOKDT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNAMB_STD 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_RNAMB_STD 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_RNAMB_STD INTO WA_RNAMB_STD.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field KSTYI
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNAMB_STD-KSTYI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNAMB_STD-KSTYI.
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_RNAMB_STD_STR, 
PFDAT TYPE STRING,
HEALTHID TYPE STRING,
GSCHL TYPE STRING,
GSCHLE TYPE STRING,
GBDAT TYPE STRING,
ISTAT_RES TYPE STRING,
KKSNR TYPE STRING,
NATIO TYPE STRING,
STRAS TYPE STRING,
PCNTR TYPE STRING,
BOKDT TYPE STRING,
EBZEI TYPE STRING,
RFSRC TYPE STRING,
EXTTY TYPE STRING,
EXPID TYPE STRING,
PFMOD TYPE STRING,
EXCAT TYPE STRING,
PATCONT TYPE STRING,
WAERS TYPE STRING,
LNRLS1 TYPE STRING,
HAUST1 TYPE STRING,
LEIST1 TYPE STRING,
IMENG1 TYPE STRING,
LEINH1 TYPE STRING,
LNRLS2 TYPE STRING,
HAUST2 TYPE STRING,
LEIST2 TYPE STRING,
IMENG2 TYPE STRING,
LEINH2 TYPE STRING,
LNRLS3 TYPE STRING,
HAUST3 TYPE STRING,
LEIST3 TYPE STRING,
IMENG3 TYPE STRING,
LEINH3 TYPE STRING,
LNRLS4 TYPE STRING,
HAUST4 TYPE STRING,
LEIST4 TYPE STRING,
IMENG4 TYPE STRING,
LEINH4 TYPE STRING,
LNRLS5 TYPE STRING,
HAUST5 TYPE STRING,
LEIST5 TYPE STRING,
IMENG5 TYPE STRING,
LEINH5 TYPE STRING,
LNRLS6 TYPE STRING,
HAUST6 TYPE STRING,
LEIST6 TYPE STRING,
IMENG6 TYPE STRING,
LEINH6 TYPE STRING,
LNRLS7 TYPE STRING,
HAUST7 TYPE STRING,
LEIST7 TYPE STRING,
IMENG7 TYPE STRING,
LEINH7 TYPE STRING,
LNRLS8 TYPE STRING,
HAUST8 TYPE STRING,
LEIST8 TYPE STRING,
IMENG8 TYPE STRING,
LEINH8 TYPE STRING,
LNRLS9 TYPE STRING,
HAUST9 TYPE STRING,
LEIST9 TYPE STRING,
IMENG9 TYPE STRING,
LEINH9 TYPE STRING,
LNRLS10 TYPE STRING,
HAUST10 TYPE STRING,
LEIST10 TYPE STRING,
IMENG10 TYPE STRING,
LEINH10 TYPE STRING,
TCPRI TYPE STRING,
TCPRT TYPE STRING,
TCDKEY TYPE STRING,
ORGPF TYPE STRING,
RETRI TYPE STRING,
RETRT TYPE STRING,
ASTDT TYPE STRING,
ABGDT TYPE STRING,
KSART TYPE STRING,
EXCOD TYPE STRING,
UEXID TYPE STRING,
TCLAS TYPE STRING,
KSTYI TYPE STRING,
TEAMSTCODE TYPE STRING,
TEAMNNAME TYPE STRING,
TEAMVNAME TYPE STRING,
TEAMPERSID TYPE STRING,
TEAMINSTNR TYPE STRING,
TEAMACNYM TYPE STRING,
TEAMCARDNR TYPE STRING,
TEAMEXPDT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNAMB_STD_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_RNAMB_STD_STR-PFDAT sy-vline 
WA_RNAMB_STD_STR-HEALTHID sy-vline 
WA_RNAMB_STD_STR-GSCHL sy-vline 
WA_RNAMB_STD_STR-GSCHLE sy-vline 
WA_RNAMB_STD_STR-GBDAT sy-vline 
WA_RNAMB_STD_STR-ISTAT_RES sy-vline 
WA_RNAMB_STD_STR-KKSNR sy-vline 
WA_RNAMB_STD_STR-NATIO sy-vline 
WA_RNAMB_STD_STR-STRAS sy-vline 
WA_RNAMB_STD_STR-PCNTR sy-vline 
WA_RNAMB_STD_STR-BOKDT sy-vline 
WA_RNAMB_STD_STR-EBZEI sy-vline 
WA_RNAMB_STD_STR-RFSRC sy-vline 
WA_RNAMB_STD_STR-EXTTY sy-vline 
WA_RNAMB_STD_STR-EXPID sy-vline 
WA_RNAMB_STD_STR-PFMOD sy-vline 
WA_RNAMB_STD_STR-EXCAT sy-vline 
WA_RNAMB_STD_STR-PATCONT sy-vline 
WA_RNAMB_STD_STR-WAERS sy-vline 
WA_RNAMB_STD_STR-LNRLS1 sy-vline 
WA_RNAMB_STD_STR-HAUST1 sy-vline 
WA_RNAMB_STD_STR-LEIST1 sy-vline 
WA_RNAMB_STD_STR-IMENG1 sy-vline 
WA_RNAMB_STD_STR-LEINH1 sy-vline 
WA_RNAMB_STD_STR-LNRLS2 sy-vline 
WA_RNAMB_STD_STR-HAUST2 sy-vline 
WA_RNAMB_STD_STR-LEIST2 sy-vline 
WA_RNAMB_STD_STR-IMENG2 sy-vline 
WA_RNAMB_STD_STR-LEINH2 sy-vline 
WA_RNAMB_STD_STR-LNRLS3 sy-vline 
WA_RNAMB_STD_STR-HAUST3 sy-vline 
WA_RNAMB_STD_STR-LEIST3 sy-vline 
WA_RNAMB_STD_STR-IMENG3 sy-vline 
WA_RNAMB_STD_STR-LEINH3 sy-vline 
WA_RNAMB_STD_STR-LNRLS4 sy-vline 
WA_RNAMB_STD_STR-HAUST4 sy-vline 
WA_RNAMB_STD_STR-LEIST4 sy-vline 
WA_RNAMB_STD_STR-IMENG4 sy-vline 
WA_RNAMB_STD_STR-LEINH4 sy-vline 
WA_RNAMB_STD_STR-LNRLS5 sy-vline 
WA_RNAMB_STD_STR-HAUST5 sy-vline 
WA_RNAMB_STD_STR-LEIST5 sy-vline 
WA_RNAMB_STD_STR-IMENG5 sy-vline 
WA_RNAMB_STD_STR-LEINH5 sy-vline 
WA_RNAMB_STD_STR-LNRLS6 sy-vline 
WA_RNAMB_STD_STR-HAUST6 sy-vline 
WA_RNAMB_STD_STR-LEIST6 sy-vline 
WA_RNAMB_STD_STR-IMENG6 sy-vline 
WA_RNAMB_STD_STR-LEINH6 sy-vline 
WA_RNAMB_STD_STR-LNRLS7 sy-vline 
WA_RNAMB_STD_STR-HAUST7 sy-vline 
WA_RNAMB_STD_STR-LEIST7 sy-vline 
WA_RNAMB_STD_STR-IMENG7 sy-vline 
WA_RNAMB_STD_STR-LEINH7 sy-vline 
WA_RNAMB_STD_STR-LNRLS8 sy-vline 
WA_RNAMB_STD_STR-HAUST8 sy-vline 
WA_RNAMB_STD_STR-LEIST8 sy-vline 
WA_RNAMB_STD_STR-IMENG8 sy-vline 
WA_RNAMB_STD_STR-LEINH8 sy-vline 
WA_RNAMB_STD_STR-LNRLS9 sy-vline 
WA_RNAMB_STD_STR-HAUST9 sy-vline 
WA_RNAMB_STD_STR-LEIST9 sy-vline 
WA_RNAMB_STD_STR-IMENG9 sy-vline 
WA_RNAMB_STD_STR-LEINH9 sy-vline 
WA_RNAMB_STD_STR-LNRLS10 sy-vline 
WA_RNAMB_STD_STR-HAUST10 sy-vline 
WA_RNAMB_STD_STR-LEIST10 sy-vline 
WA_RNAMB_STD_STR-IMENG10 sy-vline 
WA_RNAMB_STD_STR-LEINH10 sy-vline 
WA_RNAMB_STD_STR-TCPRI sy-vline 
WA_RNAMB_STD_STR-TCPRT sy-vline 
WA_RNAMB_STD_STR-TCDKEY sy-vline 
WA_RNAMB_STD_STR-ORGPF sy-vline 
WA_RNAMB_STD_STR-RETRI sy-vline 
WA_RNAMB_STD_STR-RETRT sy-vline 
WA_RNAMB_STD_STR-ASTDT sy-vline 
WA_RNAMB_STD_STR-ABGDT sy-vline 
WA_RNAMB_STD_STR-KSART sy-vline 
WA_RNAMB_STD_STR-EXCOD sy-vline 
WA_RNAMB_STD_STR-UEXID sy-vline 
WA_RNAMB_STD_STR-TCLAS sy-vline 
WA_RNAMB_STD_STR-KSTYI sy-vline 
WA_RNAMB_STD_STR-TEAMSTCODE sy-vline 
WA_RNAMB_STD_STR-TEAMNNAME sy-vline 
WA_RNAMB_STD_STR-TEAMVNAME sy-vline 
WA_RNAMB_STD_STR-TEAMPERSID sy-vline 
WA_RNAMB_STD_STR-TEAMINSTNR sy-vline 
WA_RNAMB_STD_STR-TEAMACNYM sy-vline 
WA_RNAMB_STD_STR-TEAMCARDNR sy-vline 
WA_RNAMB_STD_STR-TEAMEXPDT sy-vline      INTO ld_text SEPARATED BY SPACE.

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