ABAP Select data from SAP table RNAMB_STD 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_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.