ABAP Select data from SAP table RNTPKX 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 RNTPKX 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 RNTPKX. 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 RNTPKX 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_RNTPKX TYPE STANDARD TABLE OF RNTPKX,
      WA_RNTPKX TYPE RNTPKX,
      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: <RNTPKX> TYPE RNTPKX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNTPKX
*  INTO TABLE @DATA(IT_RNTPKX2).
*--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_RNTPKX INDEX 1 INTO DATA(WA_RNTPKX2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNTPKX>-MANDT = 1.
<RNTPKX>-EINRI = 1.
<RNTPKX>-TARIF = 1.
<RNTPKX>-TALST = 1.
<RNTPKX>-ENDDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNTPKX-ENDDT_X, sy-vline,
  WA_RNTPKX-BEGDT, sy-vline,
  WA_RNTPKX-BEGDT_X, sy-vline,
  WA_RNTPKX-EXTNR, sy-vline,
  WA_RNTPKX-EXTNR_X, sy-vline,
  WA_RNTPKX-TGRKZ, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNTPKX 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_RNTPKX 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_RNTPKX INTO WA_RNTPKX.


*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_RNTPKX-EINRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNTPKX-EINRI.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit MATN1, internal->external for field VMATR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_RNTPKX-VMATR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNTPKX-VMATR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field USERUNIT1
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RNTPKX-USERUNIT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNTPKX-USERUNIT1.
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_RNTPKX_STR, 
MANDT TYPE STRING,
EINRI TYPE STRING,
TARIF TYPE STRING,
TALST TYPE STRING,
ENDDT TYPE STRING,
ENDDT_X TYPE STRING,
BEGDT TYPE STRING,
BEGDT_X TYPE STRING,
EXTNR TYPE STRING,
EXTNR_X TYPE STRING,
TGRKZ TYPE STRING,
TGRKZ_X TYPE STRING,
TAGRU TYPE STRING,
TAGRU_X TYPE STRING,
BFORM TYPE STRING,
BFORM_X TYPE STRING,
ABRKZ TYPE STRING,
ABRKZ_X TYPE STRING,
ABGKZ TYPE STRING,
ABGKZ_X TYPE STRING,
ZUZKZ TYPE STRING,
ZUZKZ_X TYPE STRING,
LEINH TYPE STRING,
LEINH_X TYPE STRING,
VLEIA TYPE STRING,
VLEIA_X TYPE STRING,
VMATR TYPE STRING,
VMATR_X TYPE STRING,
ABTXT TYPE STRING,
ABTXT_X TYPE STRING,
ZEITR TYPE STRING,
ZEITR_X TYPE STRING,
TAXKL TYPE STRING,
TAXKL_X TYPE STRING,
MECHA TYPE STRING,
MECHA_X TYPE STRING,
ABREL TYPE STRING,
ABREL_X TYPE STRING,
LOEKZ TYPE STRING,
LOEKZ_X TYPE STRING,
LOUSR TYPE STRING,
LOUSR_X TYPE STRING,
LODAT TYPE STRING,
LODAT_X TYPE STRING,
ERDAT TYPE STRING,
ERDAT_X TYPE STRING,
ERUSR TYPE STRING,
ERUSR_X TYPE STRING,
UPDAT TYPE STRING,
UPDAT_X TYPE STRING,
UPUSR TYPE STRING,
UPUSR_X TYPE STRING,
N1ADMLEI TYPE STRING,
N1ADMLEI_X TYPE STRING,
N1ANFOR TYPE STRING,
N1ANFOR_X TYPE STRING,
N1DAUER TYPE STRING,
N1DAUER_X TYPE STRING,
N1ERBRI TYPE STRING,
N1ERBRI_X TYPE STRING,
N1EXTER TYPE STRING,
N1EXTER_X TYPE STRING,
N1MEDLEI TYPE STRING,
N1MEDLEI_X TYPE STRING,
N1PFLLEI TYPE STRING,
N1PFLLEI_X TYPE STRING,
GRVER TYPE STRING,
GRVER_X TYPE STRING,
ENTGA TYPE STRING,
ENTGA_X TYPE STRING,
MWSTU TYPE STRING,
MWSTU_X TYPE STRING,
HCOKZ TYPE STRING,
HCOKZ_X TYPE STRING,
OTYPL TYPE STRING,
OTYPL_X TYPE STRING,
ABRAM TYPE STRING,
ABRAM_X TYPE STRING,
ENTKY TYPE STRING,
ENTKY_X TYPE STRING,
ENZKY TYPE STRING,
ENZKY_X TYPE STRING,
ENTG2 TYPE STRING,
ENTG2_X TYPE STRING,
KTRKZ TYPE STRING,
KTRKZ_X TYPE STRING,
ABWRL TYPE STRING,
ABWRL_X TYPE STRING,
GSCHL TYPE STRING,
GSCHL_X TYPE STRING,
AGELO TYPE STRING,
AGELO_X TYPE STRING,
AGEHI TYPE STRING,
AGEHI_X TYPE STRING,
GVDIN TYPE STRING,
GVDIN_X TYPE STRING,
FPTYP TYPE STRING,
FPTYP_X TYPE STRING,
NOERF TYPE STRING,
NOERF_X TYPE STRING,
EXPGR TYPE STRING,
EXPGR_X TYPE STRING,
OPTAB TYPE STRING,
OPTAB_X TYPE STRING,
PRICHG TYPE STRING,
PRICHG_X TYPE STRING,
PRADM TYPE STRING,
PRADM_X TYPE STRING,
EXCAT TYPE STRING,
EXCAT_X TYPE STRING,
TAKAT TYPE STRING,
TAKAT_X TYPE STRING,
LDRCD TYPE STRING,
LDRCD_X TYPE STRING,
TARTYP TYPE STRING,
TARTYP_X TYPE STRING,
TAGR2 TYPE STRING,
TAGR2_X TYPE STRING,
OPSAAL TYPE STRING,
OPSAAL_X TYPE STRING,
OPEBKZ TYPE STRING,
OPEBKZ_X TYPE STRING,
OPSPPS TYPE STRING,
OPSPPS_X TYPE STRING,
HONREL TYPE STRING,
HONREL_X TYPE STRING,
HONART TYPE STRING,
HONART_X TYPE STRING,
HONUGR TYPE STRING,
HONUGR_X TYPE STRING,
DKAT TYPE STRING,
DKAT_X TYPE STRING,
DKEY TYPE STRING,
DKEY_X TYPE STRING,
SIGN TYPE STRING,
PICTURE TYPE STRING,
PICTURE_X TYPE STRING,
PRFVI TYPE STRING,
PRFVI_X TYPE STRING,
DRG_PARTITION TYPE STRING,
DRG_PARTITION_X TYPE STRING,
OPLOC TYPE STRING,
OPLOC_X TYPE STRING,
CHGUNIT TYPE STRING,
CHGUNIT_X TYPE STRING,
EZV TYPE STRING,
EZV_X TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN1_X TYPE STRING,
USERSIGN2 TYPE STRING,
USERSIGN2_X TYPE STRING,
USERAMOUNT1 TYPE STRING,
USERAMOUNT1_X TYPE STRING,
USERUNIT1 TYPE STRING,
USERUNIT1_X TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE1_X TYPE STRING,
USERDATE2 TYPE STRING,
USERDATE2_X TYPE STRING,
USER1 TYPE STRING,
USER1_X TYPE STRING,
USER2 TYPE STRING,
USER2_X TYPE STRING,
USER3 TYPE STRING,
USER3_X TYPE STRING,
USER4 TYPE STRING,
USER4_X TYPE STRING,
ABRBLOC TYPE STRING,
ABRBLOC_X TYPE STRING,
DURSRVBAS TYPE STRING,
DURSRVBAS_X TYPE STRING,
ENTGAMB TYPE STRING,
ENTGAMB_X TYPE STRING,
USER0 TYPE STRING,
USER0_X TYPE STRING,
TUAEND TYPE STRING,
TUAEND_X TYPE STRING,
LAAMB TYPE STRING,
LAAMB_X TYPE STRING,
LSCHL TYPE STRING,
LSCHL_X TYPE STRING,
OPLEBSPEN TYPE STRING,
OPLEBSPEN_X TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNTPKX_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_RNTPKX_STR-MANDT sy-vline 
WA_RNTPKX_STR-EINRI sy-vline 
WA_RNTPKX_STR-TARIF sy-vline 
WA_RNTPKX_STR-TALST sy-vline 
WA_RNTPKX_STR-ENDDT sy-vline 
WA_RNTPKX_STR-ENDDT_X sy-vline 
WA_RNTPKX_STR-BEGDT sy-vline 
WA_RNTPKX_STR-BEGDT_X sy-vline 
WA_RNTPKX_STR-EXTNR sy-vline 
WA_RNTPKX_STR-EXTNR_X sy-vline 
WA_RNTPKX_STR-TGRKZ sy-vline 
WA_RNTPKX_STR-TGRKZ_X sy-vline 
WA_RNTPKX_STR-TAGRU sy-vline 
WA_RNTPKX_STR-TAGRU_X sy-vline 
WA_RNTPKX_STR-BFORM sy-vline 
WA_RNTPKX_STR-BFORM_X sy-vline 
WA_RNTPKX_STR-ABRKZ sy-vline 
WA_RNTPKX_STR-ABRKZ_X sy-vline 
WA_RNTPKX_STR-ABGKZ sy-vline 
WA_RNTPKX_STR-ABGKZ_X sy-vline 
WA_RNTPKX_STR-ZUZKZ sy-vline 
WA_RNTPKX_STR-ZUZKZ_X sy-vline 
WA_RNTPKX_STR-LEINH sy-vline 
WA_RNTPKX_STR-LEINH_X sy-vline 
WA_RNTPKX_STR-VLEIA sy-vline 
WA_RNTPKX_STR-VLEIA_X sy-vline 
WA_RNTPKX_STR-VMATR sy-vline 
WA_RNTPKX_STR-VMATR_X sy-vline 
WA_RNTPKX_STR-ABTXT sy-vline 
WA_RNTPKX_STR-ABTXT_X sy-vline 
WA_RNTPKX_STR-ZEITR sy-vline 
WA_RNTPKX_STR-ZEITR_X sy-vline 
WA_RNTPKX_STR-TAXKL sy-vline 
WA_RNTPKX_STR-TAXKL_X sy-vline 
WA_RNTPKX_STR-MECHA sy-vline 
WA_RNTPKX_STR-MECHA_X sy-vline 
WA_RNTPKX_STR-ABREL sy-vline 
WA_RNTPKX_STR-ABREL_X sy-vline 
WA_RNTPKX_STR-LOEKZ sy-vline 
WA_RNTPKX_STR-LOEKZ_X sy-vline 
WA_RNTPKX_STR-LOUSR sy-vline 
WA_RNTPKX_STR-LOUSR_X sy-vline 
WA_RNTPKX_STR-LODAT sy-vline 
WA_RNTPKX_STR-LODAT_X sy-vline 
WA_RNTPKX_STR-ERDAT sy-vline 
WA_RNTPKX_STR-ERDAT_X sy-vline 
WA_RNTPKX_STR-ERUSR sy-vline 
WA_RNTPKX_STR-ERUSR_X sy-vline 
WA_RNTPKX_STR-UPDAT sy-vline 
WA_RNTPKX_STR-UPDAT_X sy-vline 
WA_RNTPKX_STR-UPUSR sy-vline 
WA_RNTPKX_STR-UPUSR_X sy-vline 
WA_RNTPKX_STR-N1ADMLEI sy-vline 
WA_RNTPKX_STR-N1ADMLEI_X sy-vline 
WA_RNTPKX_STR-N1ANFOR sy-vline 
WA_RNTPKX_STR-N1ANFOR_X sy-vline 
WA_RNTPKX_STR-N1DAUER sy-vline 
WA_RNTPKX_STR-N1DAUER_X sy-vline 
WA_RNTPKX_STR-N1ERBRI sy-vline 
WA_RNTPKX_STR-N1ERBRI_X sy-vline 
WA_RNTPKX_STR-N1EXTER sy-vline 
WA_RNTPKX_STR-N1EXTER_X sy-vline 
WA_RNTPKX_STR-N1MEDLEI sy-vline 
WA_RNTPKX_STR-N1MEDLEI_X sy-vline 
WA_RNTPKX_STR-N1PFLLEI sy-vline 
WA_RNTPKX_STR-N1PFLLEI_X sy-vline 
WA_RNTPKX_STR-GRVER sy-vline 
WA_RNTPKX_STR-GRVER_X sy-vline 
WA_RNTPKX_STR-ENTGA sy-vline 
WA_RNTPKX_STR-ENTGA_X sy-vline 
WA_RNTPKX_STR-MWSTU sy-vline 
WA_RNTPKX_STR-MWSTU_X sy-vline 
WA_RNTPKX_STR-HCOKZ sy-vline 
WA_RNTPKX_STR-HCOKZ_X sy-vline 
WA_RNTPKX_STR-OTYPL sy-vline 
WA_RNTPKX_STR-OTYPL_X sy-vline 
WA_RNTPKX_STR-ABRAM sy-vline 
WA_RNTPKX_STR-ABRAM_X sy-vline 
WA_RNTPKX_STR-ENTKY sy-vline 
WA_RNTPKX_STR-ENTKY_X sy-vline 
WA_RNTPKX_STR-ENZKY sy-vline 
WA_RNTPKX_STR-ENZKY_X sy-vline 
WA_RNTPKX_STR-ENTG2 sy-vline 
WA_RNTPKX_STR-ENTG2_X sy-vline 
WA_RNTPKX_STR-KTRKZ sy-vline 
WA_RNTPKX_STR-KTRKZ_X sy-vline 
WA_RNTPKX_STR-ABWRL sy-vline 
WA_RNTPKX_STR-ABWRL_X sy-vline 
WA_RNTPKX_STR-GSCHL sy-vline 
WA_RNTPKX_STR-GSCHL_X sy-vline 
WA_RNTPKX_STR-AGELO sy-vline 
WA_RNTPKX_STR-AGELO_X sy-vline 
WA_RNTPKX_STR-AGEHI sy-vline 
WA_RNTPKX_STR-AGEHI_X sy-vline 
WA_RNTPKX_STR-GVDIN sy-vline 
WA_RNTPKX_STR-GVDIN_X sy-vline 
WA_RNTPKX_STR-FPTYP sy-vline 
WA_RNTPKX_STR-FPTYP_X sy-vline 
WA_RNTPKX_STR-NOERF sy-vline 
WA_RNTPKX_STR-NOERF_X sy-vline 
WA_RNTPKX_STR-EXPGR sy-vline 
WA_RNTPKX_STR-EXPGR_X sy-vline 
WA_RNTPKX_STR-OPTAB sy-vline 
WA_RNTPKX_STR-OPTAB_X sy-vline 
WA_RNTPKX_STR-PRICHG sy-vline 
WA_RNTPKX_STR-PRICHG_X sy-vline 
WA_RNTPKX_STR-PRADM sy-vline 
WA_RNTPKX_STR-PRADM_X sy-vline 
WA_RNTPKX_STR-EXCAT sy-vline 
WA_RNTPKX_STR-EXCAT_X sy-vline 
WA_RNTPKX_STR-TAKAT sy-vline 
WA_RNTPKX_STR-TAKAT_X sy-vline 
WA_RNTPKX_STR-LDRCD sy-vline 
WA_RNTPKX_STR-LDRCD_X sy-vline 
WA_RNTPKX_STR-TARTYP sy-vline 
WA_RNTPKX_STR-TARTYP_X sy-vline 
WA_RNTPKX_STR-TAGR2 sy-vline 
WA_RNTPKX_STR-TAGR2_X sy-vline 
WA_RNTPKX_STR-OPSAAL sy-vline 
WA_RNTPKX_STR-OPSAAL_X sy-vline 
WA_RNTPKX_STR-OPEBKZ sy-vline 
WA_RNTPKX_STR-OPEBKZ_X sy-vline 
WA_RNTPKX_STR-OPSPPS sy-vline 
WA_RNTPKX_STR-OPSPPS_X sy-vline 
WA_RNTPKX_STR-HONREL sy-vline 
WA_RNTPKX_STR-HONREL_X sy-vline 
WA_RNTPKX_STR-HONART sy-vline 
WA_RNTPKX_STR-HONART_X sy-vline 
WA_RNTPKX_STR-HONUGR sy-vline 
WA_RNTPKX_STR-HONUGR_X sy-vline 
WA_RNTPKX_STR-DKAT sy-vline 
WA_RNTPKX_STR-DKAT_X sy-vline 
WA_RNTPKX_STR-DKEY sy-vline 
WA_RNTPKX_STR-DKEY_X sy-vline 
WA_RNTPKX_STR-SIGN sy-vline 
WA_RNTPKX_STR-PICTURE sy-vline 
WA_RNTPKX_STR-PICTURE_X sy-vline 
WA_RNTPKX_STR-PRFVI sy-vline 
WA_RNTPKX_STR-PRFVI_X sy-vline 
WA_RNTPKX_STR-DRG_PARTITION sy-vline 
WA_RNTPKX_STR-DRG_PARTITION_X sy-vline 
WA_RNTPKX_STR-OPLOC sy-vline 
WA_RNTPKX_STR-OPLOC_X sy-vline 
WA_RNTPKX_STR-CHGUNIT sy-vline 
WA_RNTPKX_STR-CHGUNIT_X sy-vline 
WA_RNTPKX_STR-EZV sy-vline 
WA_RNTPKX_STR-EZV_X sy-vline 
WA_RNTPKX_STR-USERSIGN1 sy-vline 
WA_RNTPKX_STR-USERSIGN1_X sy-vline 
WA_RNTPKX_STR-USERSIGN2 sy-vline 
WA_RNTPKX_STR-USERSIGN2_X sy-vline 
WA_RNTPKX_STR-USERAMOUNT1 sy-vline 
WA_RNTPKX_STR-USERAMOUNT1_X sy-vline 
WA_RNTPKX_STR-USERUNIT1 sy-vline 
WA_RNTPKX_STR-USERUNIT1_X sy-vline 
WA_RNTPKX_STR-USERDATE1 sy-vline 
WA_RNTPKX_STR-USERDATE1_X sy-vline 
WA_RNTPKX_STR-USERDATE2 sy-vline 
WA_RNTPKX_STR-USERDATE2_X sy-vline 
WA_RNTPKX_STR-USER1 sy-vline 
WA_RNTPKX_STR-USER1_X sy-vline 
WA_RNTPKX_STR-USER2 sy-vline 
WA_RNTPKX_STR-USER2_X sy-vline 
WA_RNTPKX_STR-USER3 sy-vline 
WA_RNTPKX_STR-USER3_X sy-vline 
WA_RNTPKX_STR-USER4 sy-vline 
WA_RNTPKX_STR-USER4_X sy-vline 
WA_RNTPKX_STR-ABRBLOC sy-vline 
WA_RNTPKX_STR-ABRBLOC_X sy-vline 
WA_RNTPKX_STR-DURSRVBAS sy-vline 
WA_RNTPKX_STR-DURSRVBAS_X sy-vline 
WA_RNTPKX_STR-ENTGAMB sy-vline 
WA_RNTPKX_STR-ENTGAMB_X sy-vline 
WA_RNTPKX_STR-USER0 sy-vline 
WA_RNTPKX_STR-USER0_X sy-vline 
WA_RNTPKX_STR-TUAEND sy-vline 
WA_RNTPKX_STR-TUAEND_X sy-vline 
WA_RNTPKX_STR-LAAMB sy-vline 
WA_RNTPKX_STR-LAAMB_X sy-vline 
WA_RNTPKX_STR-LSCHL sy-vline 
WA_RNTPKX_STR-LSCHL_X sy-vline 
WA_RNTPKX_STR-OPLEBSPEN sy-vline 
WA_RNTPKX_STR-OPLEBSPEN_X sy-vline      INTO ld_text SEPARATED BY SPACE.

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