ABAP Select data from SAP table RNAMB_ITEM into internal table

Get Example source ABAP code based on a different SAP table
  

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

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNAMB_ITEM
*  INTO TABLE @DATA(IT_RNAMB_ITEM2).
*--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_ITEM INDEX 1 INTO DATA(WA_RNAMB_ITEM2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RNAMB_ITEM ASSIGNING <RNAMB_ITEM>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNAMB_ITEM>-EINRI = 1.
<RNAMB_ITEM>-ASL_INSTN = 1.
<RNAMB_ITEM>-AMBCODE = 1.
<RNAMB_ITEM>-AMBID = 1.
<RNAMB_ITEM>-BELNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNAMB_ITEM-FALNR, sy-vline,
WA_RNAMB_ITEM-PATNR, sy-vline,
WA_RNAMB_ITEM-APPL_STATUS, sy-vline,
WA_RNAMB_ITEM-COMM_STATUS, sy-vline,
WA_RNAMB_ITEM-TCSTORN, sy-vline,
WA_RNAMB_ITEM-TCABRKZ, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RNAMB_ITEM 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_ITEM 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_ITEM INTO WA_RNAMB_ITEM. *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_RNAMB_ITEM-EINRI IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RNAMB_ITEM-EINRI.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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