ABAP Select data from SAP table RNADRPAT 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 RNADRPAT 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 RNADRPAT. 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 RNADRPAT 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_RNADRPAT TYPE STANDARD TABLE OF RNADRPAT,
      WA_RNADRPAT TYPE RNADRPAT,
      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: <RNADRPAT> TYPE RNADRPAT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNADRPAT
*  INTO TABLE @DATA(IT_RNADRPAT2).
*--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_RNADRPAT INDEX 1 INTO DATA(WA_RNADRPAT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNADRPAT>-MANDT = 1.
<RNADRPAT>-PATNR = 1.
<RNADRPAT>-EINRI = 1.
<RNADRPAT>-GSCHL = 1.
<RNADRPAT>-NNAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNADRPAT-NNAMS, sy-vline,
  WA_RNADRPAT-VNAME, sy-vline,
  WA_RNADRPAT-VNAMS, sy-vline,
  WA_RNADRPAT-TITEL, sy-vline,
  WA_RNADRPAT-NAMZU, sy-vline,
  WA_RNADRPAT-VORSW, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNADRPAT 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_RNADRPAT 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_RNADRPAT INTO WA_RNADRPAT.


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

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RNADRPAT-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNADRPAT-SPRAS.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit NLJUS, internal->external for field PASSNR
CALL FUNCTION 'CONVERSION_EXIT_NLJUS_OUTPUT'
  EXPORTING
    input =                      WA_RNADRPAT-PASSNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNADRPAT-PASSNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit SXIDN, internal->external for field EMAILADR
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RNADRPAT-EMAILADR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNADRPAT-EMAILADR.
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_RNADRPAT_STR, 
MANDT TYPE STRING,
PATNR TYPE STRING,
EINRI TYPE STRING,
GSCHL TYPE STRING,
NNAME TYPE STRING,
NNAMS TYPE STRING,
VNAME TYPE STRING,
VNAMS TYPE STRING,
TITEL TYPE STRING,
NAMZU TYPE STRING,
VORSW TYPE STRING,
NAME2 TYPE STRING,
GBDAT TYPE STRING,
GBNAM TYPE STRING,
GBNAS TYPE STRING,
GLAND TYPE STRING,
TODKZ TYPE STRING,
TODDT TYPE STRING,
TODZT TYPE STRING,
TODDB TYPE STRING,
TODZB TYPE STRING,
TODUR TYPE STRING,
ANRED TYPE STRING,
FAMST TYPE STRING,
KONFE TYPE STRING,
NATIO TYPE STRING,
SPRAS TYPE STRING,
LAND TYPE STRING,
PSTLZ TYPE STRING,
ORT TYPE STRING,
ORT2 TYPE STRING,
STRAS TYPE STRING,
BLAND TYPE STRING,
GEBIE TYPE STRING,
TELF1 TYPE STRING,
SPEND TYPE STRING,
SPENT TYPE STRING,
SPELT TYPE STRING,
VIPKZ TYPE STRING,
ARCHV TYPE STRING,
STATU TYPE STRING,
EXTNR TYPE STRING,
NOTAN TYPE STRING,
KRZAN TYPE STRING,
RFPAT TYPE STRING,
RFZIF TYPE STRING,
BERUF TYPE STRING,
AGNUM TYPE STRING,
AGNAM TYPE STRING,
AGLAN TYPE STRING,
AGPLZ TYPE STRING,
AGORT TYPE STRING,
AGSTR TYPE STRING,
AGTEL TYPE STRING,
RVNUM TYPE STRING,
ANNA1 TYPE STRING,
ANVN1 TYPE STRING,
ANLA1 TYPE STRING,
ANPL1 TYPE STRING,
ANOR1 TYPE STRING,
ANST1 TYPE STRING,
ANTE1 TYPE STRING,
ANVV1 TYPE STRING,
VMKZ1 TYPE STRING,
ANNA2 TYPE STRING,
ANVN2 TYPE STRING,
ANLA2 TYPE STRING,
ANPL2 TYPE STRING,
ANOR2 TYPE STRING,
ANST2 TYPE STRING,
ANTE2 TYPE STRING,
ANVV2 TYPE STRING,
VMKZ2 TYPE STRING,
KZTXT TYPE STRING,
LGTXT TYPE STRING,
BEGDT TYPE STRING,
ENDDT TYPE STRING,
HISTK TYPE STRING,
RISKF TYPE STRING,
TESTP TYPE STRING,
PZIFF TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
STORN TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
GBORT TYPE STRING,
HARNR TYPE STRING,
EARNR TYPE STRING,
UARNR TYPE STRING,
RACE TYPE STRING,
RESID TYPE STRING,
PASSTY TYPE STRING,
PASSNR TYPE STRING,
ADRNR TYPE STRING,
ADROB TYPE STRING,
ADNAG TYPE STRING,
ADOAG TYPE STRING,
ADNN1 TYPE STRING,
ADON1 TYPE STRING,
ADNN2 TYPE STRING,
ADON2 TYPE STRING,
ANEX1 TYPE STRING,
ANEX2 TYPE STRING,
ADRN2 TYPE STRING,
ADRO2 TYPE STRING,
INACT TYPE STRING,
USER1 TYPE STRING,
USER2 TYPE STRING,
USER3 TYPE STRING,
USER4 TYPE STRING,
USER5 TYPE STRING,
USER6 TYPE STRING,
EXTAUFG TYPE STRING,
EXTAUFGA TYPE STRING,
EMPSC TYPE STRING,
UNKNOWN_GBDAT TYPE STRING,
MIG_DONE TYPE STRING,
INSID TYPE STRING,
ISTAT_BPL TYPE STRING,
TAXNUM TYPE STRING,
TAXNUM_IND TYPE STRING,
STP TYPE STRING,
STP_ENDDT TYPE STRING,
CONS_PERSDATA TYPE STRING,
/ISHFR/BIRTHRK TYPE STRING,
DTH_LOC TYPE STRING,
OCCUP TYPE STRING,
NARNR_S TYPE STRING,
NARNR_A TYPE STRING,
MANDTADR TYPE STRING,
ADRNRADR TYPE STRING,
ADROBADR TYPE STRING,
PSTLZADR TYPE STRING,
LANDADR TYPE STRING,
REGIOADR TYPE STRING,
ORTADR TYPE STRING,
ORT2ADR TYPE STRING,
STRASADR TYPE STRING,
STRAZADR TYPE STRING,
EINZGADR TYPE STRING,
PSTLPADR TYPE STRING,
PFACHADR TYPE STRING,
LANPFADR TYPE STRING,
ORTPFADR TYPE STRING,
PSTLFADR TYPE STRING,
TELNRADR TYPE STRING,
TELXTADR TYPE STRING,
FAXNRADR TYPE STRING,
FAXXTADR TYPE STRING,
TEXNRADR TYPE STRING,
BUILDADR TYPE STRING,
FLOORADR TYPE STRING,
ROOMADR TYPE STRING,
STORTADR TYPE STRING,
STOTTADR TYPE STRING,
STSTRADR TYPE STRING,
STSTZADR TYPE STRING,
STORPADR TYPE STRING,
TELKZADR TYPE STRING,
EMAILADR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNADRPAT_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_RNADRPAT_STR-MANDT sy-vline 
WA_RNADRPAT_STR-PATNR sy-vline 
WA_RNADRPAT_STR-EINRI sy-vline 
WA_RNADRPAT_STR-GSCHL sy-vline 
WA_RNADRPAT_STR-NNAME sy-vline 
WA_RNADRPAT_STR-NNAMS sy-vline 
WA_RNADRPAT_STR-VNAME sy-vline 
WA_RNADRPAT_STR-VNAMS sy-vline 
WA_RNADRPAT_STR-TITEL sy-vline 
WA_RNADRPAT_STR-NAMZU sy-vline 
WA_RNADRPAT_STR-VORSW sy-vline 
WA_RNADRPAT_STR-NAME2 sy-vline 
WA_RNADRPAT_STR-GBDAT sy-vline 
WA_RNADRPAT_STR-GBNAM sy-vline 
WA_RNADRPAT_STR-GBNAS sy-vline 
WA_RNADRPAT_STR-GLAND sy-vline 
WA_RNADRPAT_STR-TODKZ sy-vline 
WA_RNADRPAT_STR-TODDT sy-vline 
WA_RNADRPAT_STR-TODZT sy-vline 
WA_RNADRPAT_STR-TODDB sy-vline 
WA_RNADRPAT_STR-TODZB sy-vline 
WA_RNADRPAT_STR-TODUR sy-vline 
WA_RNADRPAT_STR-ANRED sy-vline 
WA_RNADRPAT_STR-FAMST sy-vline 
WA_RNADRPAT_STR-KONFE sy-vline 
WA_RNADRPAT_STR-NATIO sy-vline 
WA_RNADRPAT_STR-SPRAS sy-vline 
WA_RNADRPAT_STR-LAND sy-vline 
WA_RNADRPAT_STR-PSTLZ sy-vline 
WA_RNADRPAT_STR-ORT sy-vline 
WA_RNADRPAT_STR-ORT2 sy-vline 
WA_RNADRPAT_STR-STRAS sy-vline 
WA_RNADRPAT_STR-BLAND sy-vline 
WA_RNADRPAT_STR-GEBIE sy-vline 
WA_RNADRPAT_STR-TELF1 sy-vline 
WA_RNADRPAT_STR-SPEND sy-vline 
WA_RNADRPAT_STR-SPENT sy-vline 
WA_RNADRPAT_STR-SPELT sy-vline 
WA_RNADRPAT_STR-VIPKZ sy-vline 
WA_RNADRPAT_STR-ARCHV sy-vline 
WA_RNADRPAT_STR-STATU sy-vline 
WA_RNADRPAT_STR-EXTNR sy-vline 
WA_RNADRPAT_STR-NOTAN sy-vline 
WA_RNADRPAT_STR-KRZAN sy-vline 
WA_RNADRPAT_STR-RFPAT sy-vline 
WA_RNADRPAT_STR-RFZIF sy-vline 
WA_RNADRPAT_STR-BERUF sy-vline 
WA_RNADRPAT_STR-AGNUM sy-vline 
WA_RNADRPAT_STR-AGNAM sy-vline 
WA_RNADRPAT_STR-AGLAN sy-vline 
WA_RNADRPAT_STR-AGPLZ sy-vline 
WA_RNADRPAT_STR-AGORT sy-vline 
WA_RNADRPAT_STR-AGSTR sy-vline 
WA_RNADRPAT_STR-AGTEL sy-vline 
WA_RNADRPAT_STR-RVNUM sy-vline 
WA_RNADRPAT_STR-ANNA1 sy-vline 
WA_RNADRPAT_STR-ANVN1 sy-vline 
WA_RNADRPAT_STR-ANLA1 sy-vline 
WA_RNADRPAT_STR-ANPL1 sy-vline 
WA_RNADRPAT_STR-ANOR1 sy-vline 
WA_RNADRPAT_STR-ANST1 sy-vline 
WA_RNADRPAT_STR-ANTE1 sy-vline 
WA_RNADRPAT_STR-ANVV1 sy-vline 
WA_RNADRPAT_STR-VMKZ1 sy-vline 
WA_RNADRPAT_STR-ANNA2 sy-vline 
WA_RNADRPAT_STR-ANVN2 sy-vline 
WA_RNADRPAT_STR-ANLA2 sy-vline 
WA_RNADRPAT_STR-ANPL2 sy-vline 
WA_RNADRPAT_STR-ANOR2 sy-vline 
WA_RNADRPAT_STR-ANST2 sy-vline 
WA_RNADRPAT_STR-ANTE2 sy-vline 
WA_RNADRPAT_STR-ANVV2 sy-vline 
WA_RNADRPAT_STR-VMKZ2 sy-vline 
WA_RNADRPAT_STR-KZTXT sy-vline 
WA_RNADRPAT_STR-LGTXT sy-vline 
WA_RNADRPAT_STR-BEGDT sy-vline 
WA_RNADRPAT_STR-ENDDT sy-vline 
WA_RNADRPAT_STR-HISTK sy-vline 
WA_RNADRPAT_STR-RISKF sy-vline 
WA_RNADRPAT_STR-TESTP sy-vline 
WA_RNADRPAT_STR-PZIFF sy-vline 
WA_RNADRPAT_STR-ERDAT sy-vline 
WA_RNADRPAT_STR-ERUSR sy-vline 
WA_RNADRPAT_STR-UPDAT sy-vline 
WA_RNADRPAT_STR-UPUSR sy-vline 
WA_RNADRPAT_STR-STORN sy-vline 
WA_RNADRPAT_STR-STUSR sy-vline 
WA_RNADRPAT_STR-STDAT sy-vline 
WA_RNADRPAT_STR-GBORT sy-vline 
WA_RNADRPAT_STR-HARNR sy-vline 
WA_RNADRPAT_STR-EARNR sy-vline 
WA_RNADRPAT_STR-UARNR sy-vline 
WA_RNADRPAT_STR-RACE sy-vline 
WA_RNADRPAT_STR-RESID sy-vline 
WA_RNADRPAT_STR-PASSTY sy-vline 
WA_RNADRPAT_STR-PASSNR sy-vline 
WA_RNADRPAT_STR-ADRNR sy-vline 
WA_RNADRPAT_STR-ADROB sy-vline 
WA_RNADRPAT_STR-ADNAG sy-vline 
WA_RNADRPAT_STR-ADOAG sy-vline 
WA_RNADRPAT_STR-ADNN1 sy-vline 
WA_RNADRPAT_STR-ADON1 sy-vline 
WA_RNADRPAT_STR-ADNN2 sy-vline 
WA_RNADRPAT_STR-ADON2 sy-vline 
WA_RNADRPAT_STR-ANEX1 sy-vline 
WA_RNADRPAT_STR-ANEX2 sy-vline 
WA_RNADRPAT_STR-ADRN2 sy-vline 
WA_RNADRPAT_STR-ADRO2 sy-vline 
WA_RNADRPAT_STR-INACT sy-vline 
WA_RNADRPAT_STR-USER1 sy-vline 
WA_RNADRPAT_STR-USER2 sy-vline 
WA_RNADRPAT_STR-USER3 sy-vline 
WA_RNADRPAT_STR-USER4 sy-vline 
WA_RNADRPAT_STR-USER5 sy-vline 
WA_RNADRPAT_STR-USER6 sy-vline 
WA_RNADRPAT_STR-EXTAUFG sy-vline 
WA_RNADRPAT_STR-EXTAUFGA sy-vline 
WA_RNADRPAT_STR-EMPSC sy-vline 
WA_RNADRPAT_STR-UNKNOWN_GBDAT sy-vline 
WA_RNADRPAT_STR-MIG_DONE sy-vline 
WA_RNADRPAT_STR-INSID sy-vline 
WA_RNADRPAT_STR-ISTAT_BPL sy-vline 
WA_RNADRPAT_STR-TAXNUM sy-vline 
WA_RNADRPAT_STR-TAXNUM_IND sy-vline 
WA_RNADRPAT_STR-STP sy-vline 
WA_RNADRPAT_STR-STP_ENDDT sy-vline 
WA_RNADRPAT_STR-CONS_PERSDATA sy-vline 
WA_RNADRPAT_STR-/ISHFR/BIRTHRK sy-vline 
WA_RNADRPAT_STR-DTH_LOC sy-vline 
WA_RNADRPAT_STR-OCCUP sy-vline 
WA_RNADRPAT_STR-NARNR_S sy-vline 
WA_RNADRPAT_STR-NARNR_A sy-vline 
WA_RNADRPAT_STR-MANDTADR sy-vline 
WA_RNADRPAT_STR-ADRNRADR sy-vline 
WA_RNADRPAT_STR-ADROBADR sy-vline 
WA_RNADRPAT_STR-PSTLZADR sy-vline 
WA_RNADRPAT_STR-LANDADR sy-vline 
WA_RNADRPAT_STR-REGIOADR sy-vline 
WA_RNADRPAT_STR-ORTADR sy-vline 
WA_RNADRPAT_STR-ORT2ADR sy-vline 
WA_RNADRPAT_STR-STRASADR sy-vline 
WA_RNADRPAT_STR-STRAZADR sy-vline 
WA_RNADRPAT_STR-EINZGADR sy-vline 
WA_RNADRPAT_STR-PSTLPADR sy-vline 
WA_RNADRPAT_STR-PFACHADR sy-vline 
WA_RNADRPAT_STR-LANPFADR sy-vline 
WA_RNADRPAT_STR-ORTPFADR sy-vline 
WA_RNADRPAT_STR-PSTLFADR sy-vline 
WA_RNADRPAT_STR-TELNRADR sy-vline 
WA_RNADRPAT_STR-TELXTADR sy-vline 
WA_RNADRPAT_STR-FAXNRADR sy-vline 
WA_RNADRPAT_STR-FAXXTADR sy-vline 
WA_RNADRPAT_STR-TEXNRADR sy-vline 
WA_RNADRPAT_STR-BUILDADR sy-vline 
WA_RNADRPAT_STR-FLOORADR sy-vline 
WA_RNADRPAT_STR-ROOMADR sy-vline 
WA_RNADRPAT_STR-STORTADR sy-vline 
WA_RNADRPAT_STR-STOTTADR sy-vline 
WA_RNADRPAT_STR-STSTRADR sy-vline 
WA_RNADRPAT_STR-STSTZADR sy-vline 
WA_RNADRPAT_STR-STORPADR sy-vline 
WA_RNADRPAT_STR-TELKZADR sy-vline 
WA_RNADRPAT_STR-EMAILADR sy-vline      INTO ld_text SEPARATED BY SPACE.

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