ABAP Select data from SAP table RNF09 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 RNF09 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 RNF09. 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 RNF09 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_RNF09 TYPE STANDARD TABLE OF RNF09,
      WA_RNF09 TYPE RNF09,
      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: <RNF09> TYPE RNF09.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNF09
*  INTO TABLE @DATA(IT_RNF092).
*--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_RNF09 INDEX 1 INTO DATA(WA_RNF092).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNF09>-ANREXPAT = 1.
<RNF09>-BIRTHDTPAT = 1.
<RNF09>-BIRTHNMPAT = 1.
<RNF09>-CITYOFPAT = 1.
<RNF09>-CONCATPAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNF09-FSTNAMEPAT, sy-vline,
  WA_RNF09-NAMEADDPAT, sy-vline,
  WA_RNF09-PATIENTNO, sy-vline,
  WA_RNF09-PHONENOPAT, sy-vline,
  WA_RNF09-POSTCDPAT, sy-vline,
  WA_RNF09-PREFIXPAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNF09 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_RNF09 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_RNF09 INTO WA_RNF09.


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

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

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

*Conversion exit SXIDN, internal->external for field EMAIL
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RNF09-EMAIL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNF09-EMAIL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field P115EXTPHYS2
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNF09-P115EXTPHYS2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNF09-P115EXTPHYS2.
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_RNF09_STR, 
ANREXPAT TYPE STRING,
BIRTHDTPAT TYPE STRING,
BIRTHNMPAT TYPE STRING,
CITYOFPAT TYPE STRING,
CONCATPAT TYPE STRING,
FSTNAMEPAT TYPE STRING,
NAMEADDPAT TYPE STRING,
PATIENTNO TYPE STRING,
PHONENOPAT TYPE STRING,
POSTCDPAT TYPE STRING,
PREFIXPAT TYPE STRING,
PSEUDONPAT TYPE STRING,
QUARTERPAT TYPE STRING,
RESLANDPAT TYPE STRING,
RACEOFPAT TYPE STRING,
SEXOFPAT TYPE STRING,
SEXNAMPAT TYPE STRING,
SURNAMEPAT TYPE STRING,
STREETPAT TYPE STRING,
TITELOFPAT TYPE STRING,
MANDT TYPE STRING,
ADRNR TYPE STRING,
ADROB TYPE STRING,
PSTLZ TYPE STRING,
LAND TYPE STRING,
REGIO TYPE STRING,
ORT TYPE STRING,
ORT2 TYPE STRING,
STRAS TYPE STRING,
STRAZ TYPE STRING,
EINZG TYPE STRING,
PSTLP TYPE STRING,
PFACH TYPE STRING,
LANPF TYPE STRING,
ORTPF TYPE STRING,
PSTLF TYPE STRING,
TELNR TYPE STRING,
TELXT TYPE STRING,
FAXNR TYPE STRING,
FAXXT TYPE STRING,
TEXNR TYPE STRING,
BUILD TYPE STRING,
FLOOR TYPE STRING,
ROOM TYPE STRING,
STORT TYPE STRING,
STOTT TYPE STRING,
STSTR TYPE STRING,
STSTZ TYPE STRING,
STORP TYPE STRING,
TELKZ TYPE STRING,
EMAIL TYPE STRING,
USER1 TYPE STRING,
USER2 TYPE STRING,
USER3 TYPE STRING,
USER4 TYPE STRING,
USER5 TYPE STRING,
USER6 TYPE STRING,
ITREG TYPE STRING,
ITREGTXT TYPE STRING,
CASENO TYPE STRING,
CASEART TYPE STRING,
CASEARTEXT TYPE STRING,
FATXT TYPE STRING,
ABRKZ TYPE STRING,
SICHV TYPE STRING,
EINZGB TYPE STRING,
EINZGTX TYPE STRING,
KZTXT TYPE STRING,
INFKZ TYPE STRING,
FZIFF TYPE STRING,
ENDAT TYPE STRING,
RESID TYPE STRING,
ENTIM TYPE STRING,
FGTYP TYPE STRING,
GBTXT TYPE STRING,
KZKOM TYPE STRING,
KOMTX TYPE STRING,
ARBUN TYPE STRING,
FAENDDT TYPE STRING,
BEKAT TYPE STRING,
BEKATTXT TYPE STRING,
FPEDT TYPE STRING,
FACHR TYPE STRING,
FACHRTX TYPE STRING,
PATGEW TYPE STRING,
GWEIN TYPE STRING,
PATGRO TYPE STRING,
GREIN TYPE STRING,
RESPI TYPE STRING,
VORGR TYPE STRING,
CASE_LEAD TYPE STRING,
TOB TYPE STRING,
CONSENT TYPE STRING,
ASL_RES TYPE STRING,
ASL_RES_CODE TYPE STRING,
ISTAT_RES TYPE STRING,
ISTAT_RESTXT TYPE STRING,
EXTBUD TYPE STRING,
EXTBUDTXT TYPE STRING,
AUTOPSY TYPE STRING,
ORGAN_EXP TYPE STRING,
AUFART TYPE STRING,
AUFTXT TYPE STRING,
ADMISSDATE TYPE STRING,
ADMISSTIME TYPE STRING,
AUFOFA TYPE STRING,
AUFOFAKB TYPE STRING,
AUFOFAFACH TYPE STRING,
AUFOPF TYPE STRING,
AUFOPFKB TYPE STRING,
AUFZIM TYPE STRING,
AUFZIMKB TYPE STRING,
AUFBET TYPE STRING,
AUFBETKB TYPE STRING,
AUFDAUER TYPE STRING,
AUFPHYS TYPE STRING,
AUFPHYSNNAM TYPE STRING,
AUFPHYSVNAM TYPE STRING,
AUFPHYSNNAM3 TYPE STRING,
AUFPHYSCONC TYPE STRING,
UNFKZ TYPE STRING,
UNFNR TYPE STRING,
UNFTXT TYPE STRING,
UNFORT TYPE STRING,
UNFDT TYPE STRING,
UNFZT TYPE STRING,
RETTNR TYPE STRING,
UNFVS TYPE STRING,
AUFBEM TYPE STRING,
AUFPLANP TYPE STRING,
AUFLFDNR TYPE STRING,
AKTBEWTYP TYPE STRING,
AKTBEWART TYPE STRING,
BEWARTTXT TYPE STRING,
AKTBEWDATE TYPE STRING,
AKTBEWTIME TYPE STRING,
AKTOFA TYPE STRING,
AKTOFAKB TYPE STRING,
AKTOFAFACH TYPE STRING,
AKTOPF TYPE STRING,
AKTOPFKB TYPE STRING,
AKTZIM TYPE STRING,
AKTZIMKB TYPE STRING,
AKTBET TYPE STRING,
AKTBETKB TYPE STRING,
AKTPLANP TYPE STRING,
AKTLFDNR TYPE STRING,
AKTPHYS TYPE STRING,
AKTPHYSNNAM TYPE STRING,
AKTPHYSVNAM TYPE STRING,
AKTPHYSNNAM3 TYPE STRING,
AKTPHYSCONC TYPE STRING,
DAUERDAT TYPE STRING,
AUFGRUND12 TYPE STRING,
AUFGRTXT12 TYPE STRING,
AUFGRUND34 TYPE STRING,
AUFGRTXT34 TYPE STRING,
BBEKAT TYPE STRING,
BBEKATTXT TYPE STRING,
AUFCLASS TYPE STRING,
AKTCLASS TYPE STRING,
AKTBEKAT TYPE STRING,
AKTBEKATXT TYPE STRING,
VSTATDATE TYPE STRING,
VSTATTIME TYPE STRING,
VSTATART TYPE STRING,
AKTBWEDT TYPE STRING,
AKTBWEZT TYPE STRING,
AKTFACHRI TYPE STRING,
AKTFACHRITX TYPE STRING,
ACCNOTE TYPE STRING,
POSTDISPHYS TYPE STRING,
POSTDISPHYSNNAM TYPE STRING,
POSTDISPHYSVNAM TYPE STRING,
POSTDISPHYSNNAM3 TYPE STRING,
POSTDISPHYSCONC TYPE STRING,
P115SFAPHYS TYPE STRING,
P115SFAPHYSNNAM TYPE STRING,
P115SFAPHYSVNAM TYPE STRING,
P115SFAPHYSNNAM3 TYPE STRING,
P115SFAPHYSCONC TYPE STRING,
P115SFAPHYS2 TYPE STRING,
P115SFAPHYS2NNAM TYPE STRING,
P115SFAPHYS2VNAM TYPE STRING,
P115SFAPHYS2NNAM3 TYPE STRING,
P115SFAPHYS2CONC TYPE STRING,
P115EXTPHYS TYPE STRING,
P115EXTPHYSNNAM TYPE STRING,
P115EXTPHYSVNAM TYPE STRING,
P115EXTPHYSNNAM3 TYPE STRING,
P115EXTPHYSCONC TYPE STRING,
P115EXTPHYS2 TYPE STRING,
P115EXTPHYS2NNAM TYPE STRING,
P115EXTPHYS2VNAM TYPE STRING,
P115EXTPHYS2NNAM3 TYPE STRING,
P115EXTPHYS2CONC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNF09_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_RNF09_STR-ANREXPAT sy-vline 
WA_RNF09_STR-BIRTHDTPAT sy-vline 
WA_RNF09_STR-BIRTHNMPAT sy-vline 
WA_RNF09_STR-CITYOFPAT sy-vline 
WA_RNF09_STR-CONCATPAT sy-vline 
WA_RNF09_STR-FSTNAMEPAT sy-vline 
WA_RNF09_STR-NAMEADDPAT sy-vline 
WA_RNF09_STR-PATIENTNO sy-vline 
WA_RNF09_STR-PHONENOPAT sy-vline 
WA_RNF09_STR-POSTCDPAT sy-vline 
WA_RNF09_STR-PREFIXPAT sy-vline 
WA_RNF09_STR-PSEUDONPAT sy-vline 
WA_RNF09_STR-QUARTERPAT sy-vline 
WA_RNF09_STR-RESLANDPAT sy-vline 
WA_RNF09_STR-RACEOFPAT sy-vline 
WA_RNF09_STR-SEXOFPAT sy-vline 
WA_RNF09_STR-SEXNAMPAT sy-vline 
WA_RNF09_STR-SURNAMEPAT sy-vline 
WA_RNF09_STR-STREETPAT sy-vline 
WA_RNF09_STR-TITELOFPAT sy-vline 
WA_RNF09_STR-MANDT sy-vline 
WA_RNF09_STR-ADRNR sy-vline 
WA_RNF09_STR-ADROB sy-vline 
WA_RNF09_STR-PSTLZ sy-vline 
WA_RNF09_STR-LAND sy-vline 
WA_RNF09_STR-REGIO sy-vline 
WA_RNF09_STR-ORT sy-vline 
WA_RNF09_STR-ORT2 sy-vline 
WA_RNF09_STR-STRAS sy-vline 
WA_RNF09_STR-STRAZ sy-vline 
WA_RNF09_STR-EINZG sy-vline 
WA_RNF09_STR-PSTLP sy-vline 
WA_RNF09_STR-PFACH sy-vline 
WA_RNF09_STR-LANPF sy-vline 
WA_RNF09_STR-ORTPF sy-vline 
WA_RNF09_STR-PSTLF sy-vline 
WA_RNF09_STR-TELNR sy-vline 
WA_RNF09_STR-TELXT sy-vline 
WA_RNF09_STR-FAXNR sy-vline 
WA_RNF09_STR-FAXXT sy-vline 
WA_RNF09_STR-TEXNR sy-vline 
WA_RNF09_STR-BUILD sy-vline 
WA_RNF09_STR-FLOOR sy-vline 
WA_RNF09_STR-ROOM sy-vline 
WA_RNF09_STR-STORT sy-vline 
WA_RNF09_STR-STOTT sy-vline 
WA_RNF09_STR-STSTR sy-vline 
WA_RNF09_STR-STSTZ sy-vline 
WA_RNF09_STR-STORP sy-vline 
WA_RNF09_STR-TELKZ sy-vline 
WA_RNF09_STR-EMAIL sy-vline 
WA_RNF09_STR-USER1 sy-vline 
WA_RNF09_STR-USER2 sy-vline 
WA_RNF09_STR-USER3 sy-vline 
WA_RNF09_STR-USER4 sy-vline 
WA_RNF09_STR-USER5 sy-vline 
WA_RNF09_STR-USER6 sy-vline 
WA_RNF09_STR-ITREG sy-vline 
WA_RNF09_STR-ITREGTXT sy-vline 
WA_RNF09_STR-CASENO sy-vline 
WA_RNF09_STR-CASEART sy-vline 
WA_RNF09_STR-CASEARTEXT sy-vline 
WA_RNF09_STR-FATXT sy-vline 
WA_RNF09_STR-ABRKZ sy-vline 
WA_RNF09_STR-SICHV sy-vline 
WA_RNF09_STR-EINZGB sy-vline 
WA_RNF09_STR-EINZGTX sy-vline 
WA_RNF09_STR-KZTXT sy-vline 
WA_RNF09_STR-INFKZ sy-vline 
WA_RNF09_STR-FZIFF sy-vline 
WA_RNF09_STR-ENDAT sy-vline 
WA_RNF09_STR-RESID sy-vline 
WA_RNF09_STR-ENTIM sy-vline 
WA_RNF09_STR-FGTYP sy-vline 
WA_RNF09_STR-GBTXT sy-vline 
WA_RNF09_STR-KZKOM sy-vline 
WA_RNF09_STR-KOMTX sy-vline 
WA_RNF09_STR-ARBUN sy-vline 
WA_RNF09_STR-FAENDDT sy-vline 
WA_RNF09_STR-BEKAT sy-vline 
WA_RNF09_STR-BEKATTXT sy-vline 
WA_RNF09_STR-FPEDT sy-vline 
WA_RNF09_STR-FACHR sy-vline 
WA_RNF09_STR-FACHRTX sy-vline 
WA_RNF09_STR-PATGEW sy-vline 
WA_RNF09_STR-GWEIN sy-vline 
WA_RNF09_STR-PATGRO sy-vline 
WA_RNF09_STR-GREIN sy-vline 
WA_RNF09_STR-RESPI sy-vline 
WA_RNF09_STR-VORGR sy-vline 
WA_RNF09_STR-CASE_LEAD sy-vline 
WA_RNF09_STR-TOB sy-vline 
WA_RNF09_STR-CONSENT sy-vline 
WA_RNF09_STR-ASL_RES sy-vline 
WA_RNF09_STR-ASL_RES_CODE sy-vline 
WA_RNF09_STR-ISTAT_RES sy-vline 
WA_RNF09_STR-ISTAT_RESTXT sy-vline 
WA_RNF09_STR-EXTBUD sy-vline 
WA_RNF09_STR-EXTBUDTXT sy-vline 
WA_RNF09_STR-AUTOPSY sy-vline 
WA_RNF09_STR-ORGAN_EXP sy-vline 
WA_RNF09_STR-AUFART sy-vline 
WA_RNF09_STR-AUFTXT sy-vline 
WA_RNF09_STR-ADMISSDATE sy-vline 
WA_RNF09_STR-ADMISSTIME sy-vline 
WA_RNF09_STR-AUFOFA sy-vline 
WA_RNF09_STR-AUFOFAKB sy-vline 
WA_RNF09_STR-AUFOFAFACH sy-vline 
WA_RNF09_STR-AUFOPF sy-vline 
WA_RNF09_STR-AUFOPFKB sy-vline 
WA_RNF09_STR-AUFZIM sy-vline 
WA_RNF09_STR-AUFZIMKB sy-vline 
WA_RNF09_STR-AUFBET sy-vline 
WA_RNF09_STR-AUFBETKB sy-vline 
WA_RNF09_STR-AUFDAUER sy-vline 
WA_RNF09_STR-AUFPHYS sy-vline 
WA_RNF09_STR-AUFPHYSNNAM sy-vline 
WA_RNF09_STR-AUFPHYSVNAM sy-vline 
WA_RNF09_STR-AUFPHYSNNAM3 sy-vline 
WA_RNF09_STR-AUFPHYSCONC sy-vline 
WA_RNF09_STR-UNFKZ sy-vline 
WA_RNF09_STR-UNFNR sy-vline 
WA_RNF09_STR-UNFTXT sy-vline 
WA_RNF09_STR-UNFORT sy-vline 
WA_RNF09_STR-UNFDT sy-vline 
WA_RNF09_STR-UNFZT sy-vline 
WA_RNF09_STR-RETTNR sy-vline 
WA_RNF09_STR-UNFVS sy-vline 
WA_RNF09_STR-AUFBEM sy-vline 
WA_RNF09_STR-AUFPLANP sy-vline 
WA_RNF09_STR-AUFLFDNR sy-vline 
WA_RNF09_STR-AKTBEWTYP sy-vline 
WA_RNF09_STR-AKTBEWART sy-vline 
WA_RNF09_STR-BEWARTTXT sy-vline 
WA_RNF09_STR-AKTBEWDATE sy-vline 
WA_RNF09_STR-AKTBEWTIME sy-vline 
WA_RNF09_STR-AKTOFA sy-vline 
WA_RNF09_STR-AKTOFAKB sy-vline 
WA_RNF09_STR-AKTOFAFACH sy-vline 
WA_RNF09_STR-AKTOPF sy-vline 
WA_RNF09_STR-AKTOPFKB sy-vline 
WA_RNF09_STR-AKTZIM sy-vline 
WA_RNF09_STR-AKTZIMKB sy-vline 
WA_RNF09_STR-AKTBET sy-vline 
WA_RNF09_STR-AKTBETKB sy-vline 
WA_RNF09_STR-AKTPLANP sy-vline 
WA_RNF09_STR-AKTLFDNR sy-vline 
WA_RNF09_STR-AKTPHYS sy-vline 
WA_RNF09_STR-AKTPHYSNNAM sy-vline 
WA_RNF09_STR-AKTPHYSVNAM sy-vline 
WA_RNF09_STR-AKTPHYSNNAM3 sy-vline 
WA_RNF09_STR-AKTPHYSCONC sy-vline 
WA_RNF09_STR-DAUERDAT sy-vline 
WA_RNF09_STR-AUFGRUND12 sy-vline 
WA_RNF09_STR-AUFGRTXT12 sy-vline 
WA_RNF09_STR-AUFGRUND34 sy-vline 
WA_RNF09_STR-AUFGRTXT34 sy-vline 
WA_RNF09_STR-BBEKAT sy-vline 
WA_RNF09_STR-BBEKATTXT sy-vline 
WA_RNF09_STR-AUFCLASS sy-vline 
WA_RNF09_STR-AKTCLASS sy-vline 
WA_RNF09_STR-AKTBEKAT sy-vline 
WA_RNF09_STR-AKTBEKATXT sy-vline 
WA_RNF09_STR-VSTATDATE sy-vline 
WA_RNF09_STR-VSTATTIME sy-vline 
WA_RNF09_STR-VSTATART sy-vline 
WA_RNF09_STR-AKTBWEDT sy-vline 
WA_RNF09_STR-AKTBWEZT sy-vline 
WA_RNF09_STR-AKTFACHRI sy-vline 
WA_RNF09_STR-AKTFACHRITX sy-vline 
WA_RNF09_STR-ACCNOTE sy-vline 
WA_RNF09_STR-POSTDISPHYS sy-vline 
WA_RNF09_STR-POSTDISPHYSNNAM sy-vline 
WA_RNF09_STR-POSTDISPHYSVNAM sy-vline 
WA_RNF09_STR-POSTDISPHYSNNAM3 sy-vline 
WA_RNF09_STR-POSTDISPHYSCONC sy-vline 
WA_RNF09_STR-P115SFAPHYS sy-vline 
WA_RNF09_STR-P115SFAPHYSNNAM sy-vline 
WA_RNF09_STR-P115SFAPHYSVNAM sy-vline 
WA_RNF09_STR-P115SFAPHYSNNAM3 sy-vline 
WA_RNF09_STR-P115SFAPHYSCONC sy-vline 
WA_RNF09_STR-P115SFAPHYS2 sy-vline 
WA_RNF09_STR-P115SFAPHYS2NNAM sy-vline 
WA_RNF09_STR-P115SFAPHYS2VNAM sy-vline 
WA_RNF09_STR-P115SFAPHYS2NNAM3 sy-vline 
WA_RNF09_STR-P115SFAPHYS2CONC sy-vline 
WA_RNF09_STR-P115EXTPHYS sy-vline 
WA_RNF09_STR-P115EXTPHYSNNAM sy-vline 
WA_RNF09_STR-P115EXTPHYSVNAM sy-vline 
WA_RNF09_STR-P115EXTPHYSNNAM3 sy-vline 
WA_RNF09_STR-P115EXTPHYSCONC sy-vline 
WA_RNF09_STR-P115EXTPHYS2 sy-vline 
WA_RNF09_STR-P115EXTPHYS2NNAM sy-vline 
WA_RNF09_STR-P115EXTPHYS2VNAM sy-vline 
WA_RNF09_STR-P115EXTPHYS2NNAM3 sy-vline 
WA_RNF09_STR-P115EXTPHYS2CONC sy-vline      INTO ld_text SEPARATED BY SPACE.

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