ABAP Select data from SAP table RNTRTCRT 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 RNTRTCRT 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 RNTRTCRT. 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 RNTRTCRT 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_RNTRTCRT TYPE STANDARD TABLE OF RNTRTCRT,
      WA_RNTRTCRT TYPE RNTRTCRT,
      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: <RNTRTCRT> TYPE RNTRTCRT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNTRTCRT
*  INTO TABLE @DATA(IT_RNTRTCRT2).
*--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_RNTRTCRT INDEX 1 INTO DATA(WA_RNTRTCRT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNTRTCRT>-ASTDT = 1.
<RNTRTCRT>-BELEG = 1.
<RNTRTCRT>-ABRGT = 1.
<RNTRTCRT>-AUNKZ = 1.
<RNTRTCRT>-SUNKZ = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNTRTCRT-ENTBT, sy-vline,
  WA_RNTRTCRT-INITIATOR, sy-vline,
  WA_RNTRTCRT-BEHAR, sy-vline,
  WA_RNTRTCRT-FACHG, sy-vline,
  WA_RNTRTCRT-KURAT, sy-vline,
  WA_RNTRTCRT-PRAEV, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNTRTCRT 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_RNTRTCRT 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_RNTRTCRT INTO WA_RNTRTCRT.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PERIOD
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNTRTCRT-PERIOD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNTRTCRT-PERIOD.
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_RNTRTCRT_STR, 
ASTDT TYPE STRING,
BELEG TYPE STRING,
ABRGT TYPE STRING,
AUNKZ TYPE STRING,
SUNKZ TYPE STRING,
ENTBT TYPE STRING,
INITIATOR TYPE STRING,
BEHAR TYPE STRING,
FACHG TYPE STRING,
KURAT TYPE STRING,
PRAEV TYPE STRING,
EXCEPTINDIC TYPE STRING,
PSYKZ TYPE STRING,
PSYDT TYPE STRING,
PSYDT1 TYPE STRING,
PSYDT2 TYPE STRING,
SOURS TYPE STRING,
VERBS TYPE STRING,
VERAR TYPE STRING,
WARZT TYPE STRING,
ALT_PLZ TYPE STRING,
INDICATION TYPE STRING,
ABRKZ TYPE STRING,
VORLD TYPE STRING,
GENERATED TYPE STRING,
PERKR TYPE STRING,
SKTTX TYPE STRING,
GLTVN TYPE STRING,
GLTBS TYPE STRING,
HILFE TYPE STRING,
UADAT TYPE STRING,
VSLKZ TYPE STRING,
CARETYPE TYPE STRING,
AUFLS TYPE STRING,
LG1KZ TYPE STRING,
KONSU TYPE STRING,
LG2KZ TYPE STRING,
MWBEH TYPE STRING,
LG3KZ TYPE STRING,
SKTCMNT TYPE STRING,
LG5KZ TYPE STRING,
DIATXT TYPE STRING,
LG6KZ TYPE STRING,
FIND_MED TYPE STRING,
LG7KZ TYPE STRING,
SERVICEGRA11 TYPE STRING,
QUANTGRA11 TYPE STRING,
QUANTBIL11 TYPE STRING,
STARTTREAT11 TYPE STRING,
SERVICEGRA12 TYPE STRING,
QUANTGRA12 TYPE STRING,
QUANTBIL12 TYPE STRING,
STARTTREAT12 TYPE STRING,
SERVICEGRA13 TYPE STRING,
QUANTGRA13 TYPE STRING,
QUANTBIL13 TYPE STRING,
STARTTREAT13 TYPE STRING,
SERVICEGRA14 TYPE STRING,
QUANTGRA14 TYPE STRING,
QUANTBIL14 TYPE STRING,
STARTTREAT14 TYPE STRING,
SERVICEGRA21 TYPE STRING,
QUANTGRA21 TYPE STRING,
QUANTBIL21 TYPE STRING,
STARTTREAT21 TYPE STRING,
SERVICEGRA22 TYPE STRING,
QUANTGRA22 TYPE STRING,
QUANTBIL22 TYPE STRING,
STARTTREAT22 TYPE STRING,
SERVICEGRA23 TYPE STRING,
QUANTGRA23 TYPE STRING,
QUANTBIL23 TYPE STRING,
STARTTREAT23 TYPE STRING,
SERVICEGRA24 TYPE STRING,
QUANTGRA24 TYPE STRING,
QUANTBIL24 TYPE STRING,
STARTTREAT24 TYPE STRING,
SERVICEGRA31 TYPE STRING,
QUANTGRA31 TYPE STRING,
QUANTBIL31 TYPE STRING,
STARTTREAT31 TYPE STRING,
SERVICEGRA32 TYPE STRING,
QUANTGRA32 TYPE STRING,
QUANTBIL32 TYPE STRING,
STARTTREAT32 TYPE STRING,
SERVICEGRA33 TYPE STRING,
QUANTGRA33 TYPE STRING,
QUANTBIL33 TYPE STRING,
STARTTREAT33 TYPE STRING,
SERVICEGRA34 TYPE STRING,
QUANTGRA34 TYPE STRING,
QUANTBIL34 TYPE STRING,
STARTTREAT34 TYPE STRING,
PSYAPPLDT1 TYPE STRING,
PSYAPPLDT2 TYPE STRING,
PSYAPPLDT3 TYPE STRING,
UEXID TYPE STRING,
EXCAT TYPE STRING,
EXCOD TYPE STRING,
PFDAT TYPE STRING,
TCPRI TYPE STRING,
PFMOD TYPE STRING,
TCLAS TYPE STRING,
RETRI TYPE STRING,
EXPID TYPE STRING,
APSTATE TYPE STRING,
EDIPROC TYPE STRING,
BOKDT TYPE STRING,
COPAYIND TYPE STRING,
LANRINITIATOR TYPE STRING,
ESSKZ TYPE STRING,
KSTYP TYPE STRING,
KSART TYPE STRING,
KSTYI TYPE STRING,
KOSTR TYPE STRING,
LFDNR TYPE STRING,
BSTAT TYPE STRING,
ABGDT TYPE STRING,
BEGDT TYPE STRING,
ENDDT TYPE STRING,
UEBAB TYPE STRING,
ERSDT TYPE STRING,
STORN TYPE STRING,
KTEXT TYPE STRING,
LGTXT TYPE STRING,
ORGAB TYPE STRING,
ORGSP TYPE STRING,
BEHST TYPE STRING,
MSPER TYPE STRING,
MAANZ TYPE STRING,
MADAT TYPE STRING,
DRUKZ TYPE STRING,
DRUDT TYPE STRING,
BEARB TYPE STRING,
TCODE TYPE STRING,
EBZEI TYPE STRING,
MARK TYPE STRING,
ZUOBK TYPE STRING,
TYTXT TYPE STRING,
ARTXT TYPE STRING,
BSTTX TYPE STRING,
NUMKR TYPE STRING,
KNAME TYPE STRING,
SOLFD TYPE STRING,
SORT TYPE STRING,
ZUOLK TYPE STRING,
ECOTX TYPE STRING,
ABRKZ_SYM TYPE STRING,
ABRKZ_TXT TYPE STRING,
BEHAR_TXT TYPE STRING,
WARZT_TXT TYPE STRING,
BELNR TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
FATXT TYPE STRING,
ORGABTEXT TYPE STRING,
ORGSPTEXT TYPE STRING,
PERIOD TYPE STRING,
FAL_BEGDT TYPE STRING,
FAL_ENDDT TYPE STRING,
SUM_SERASS TYPE STRING,
SUM_MOVASS TYPE STRING,
NO_TRTCRT TYPE STRING,
SHOW_CANCEL TYPE STRING,
CTGTXT_LG TYPE STRING,
TYTXT_LG TYPE STRING,
MOVASS_INDIC TYPE STRING,
AUFDV TYPE STRING,
LGDKZ TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNTRTCRT_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_RNTRTCRT_STR-ASTDT sy-vline 
WA_RNTRTCRT_STR-BELEG sy-vline 
WA_RNTRTCRT_STR-ABRGT sy-vline 
WA_RNTRTCRT_STR-AUNKZ sy-vline 
WA_RNTRTCRT_STR-SUNKZ sy-vline 
WA_RNTRTCRT_STR-ENTBT sy-vline 
WA_RNTRTCRT_STR-INITIATOR sy-vline 
WA_RNTRTCRT_STR-BEHAR sy-vline 
WA_RNTRTCRT_STR-FACHG sy-vline 
WA_RNTRTCRT_STR-KURAT sy-vline 
WA_RNTRTCRT_STR-PRAEV sy-vline 
WA_RNTRTCRT_STR-EXCEPTINDIC sy-vline 
WA_RNTRTCRT_STR-PSYKZ sy-vline 
WA_RNTRTCRT_STR-PSYDT sy-vline 
WA_RNTRTCRT_STR-PSYDT1 sy-vline 
WA_RNTRTCRT_STR-PSYDT2 sy-vline 
WA_RNTRTCRT_STR-SOURS sy-vline 
WA_RNTRTCRT_STR-VERBS sy-vline 
WA_RNTRTCRT_STR-VERAR sy-vline 
WA_RNTRTCRT_STR-WARZT sy-vline 
WA_RNTRTCRT_STR-ALT_PLZ sy-vline 
WA_RNTRTCRT_STR-INDICATION sy-vline 
WA_RNTRTCRT_STR-ABRKZ sy-vline 
WA_RNTRTCRT_STR-VORLD sy-vline 
WA_RNTRTCRT_STR-GENERATED sy-vline 
WA_RNTRTCRT_STR-PERKR sy-vline 
WA_RNTRTCRT_STR-SKTTX sy-vline 
WA_RNTRTCRT_STR-GLTVN sy-vline 
WA_RNTRTCRT_STR-GLTBS sy-vline 
WA_RNTRTCRT_STR-HILFE sy-vline 
WA_RNTRTCRT_STR-UADAT sy-vline 
WA_RNTRTCRT_STR-VSLKZ sy-vline 
WA_RNTRTCRT_STR-CARETYPE sy-vline 
WA_RNTRTCRT_STR-AUFLS sy-vline 
WA_RNTRTCRT_STR-LG1KZ sy-vline 
WA_RNTRTCRT_STR-KONSU sy-vline 
WA_RNTRTCRT_STR-LG2KZ sy-vline 
WA_RNTRTCRT_STR-MWBEH sy-vline 
WA_RNTRTCRT_STR-LG3KZ sy-vline 
WA_RNTRTCRT_STR-SKTCMNT sy-vline 
WA_RNTRTCRT_STR-LG5KZ sy-vline 
WA_RNTRTCRT_STR-DIATXT sy-vline 
WA_RNTRTCRT_STR-LG6KZ sy-vline 
WA_RNTRTCRT_STR-FIND_MED sy-vline 
WA_RNTRTCRT_STR-LG7KZ sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA11 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA11 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL11 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT11 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA12 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA12 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL12 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT12 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA13 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA13 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL13 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT13 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA14 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA14 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL14 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT14 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA21 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA21 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL21 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT21 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA22 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA22 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL22 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT22 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA23 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA23 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL23 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT23 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA24 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA24 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL24 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT24 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA31 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA31 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL31 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT31 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA32 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA32 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL32 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT32 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA33 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA33 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL33 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT33 sy-vline 
WA_RNTRTCRT_STR-SERVICEGRA34 sy-vline 
WA_RNTRTCRT_STR-QUANTGRA34 sy-vline 
WA_RNTRTCRT_STR-QUANTBIL34 sy-vline 
WA_RNTRTCRT_STR-STARTTREAT34 sy-vline 
WA_RNTRTCRT_STR-PSYAPPLDT1 sy-vline 
WA_RNTRTCRT_STR-PSYAPPLDT2 sy-vline 
WA_RNTRTCRT_STR-PSYAPPLDT3 sy-vline 
WA_RNTRTCRT_STR-UEXID sy-vline 
WA_RNTRTCRT_STR-EXCAT sy-vline 
WA_RNTRTCRT_STR-EXCOD sy-vline 
WA_RNTRTCRT_STR-PFDAT sy-vline 
WA_RNTRTCRT_STR-TCPRI sy-vline 
WA_RNTRTCRT_STR-PFMOD sy-vline 
WA_RNTRTCRT_STR-TCLAS sy-vline 
WA_RNTRTCRT_STR-RETRI sy-vline 
WA_RNTRTCRT_STR-EXPID sy-vline 
WA_RNTRTCRT_STR-APSTATE sy-vline 
WA_RNTRTCRT_STR-EDIPROC sy-vline 
WA_RNTRTCRT_STR-BOKDT sy-vline 
WA_RNTRTCRT_STR-COPAYIND sy-vline 
WA_RNTRTCRT_STR-LANRINITIATOR sy-vline 
WA_RNTRTCRT_STR-ESSKZ sy-vline 
WA_RNTRTCRT_STR-KSTYP sy-vline 
WA_RNTRTCRT_STR-KSART sy-vline 
WA_RNTRTCRT_STR-KSTYI sy-vline 
WA_RNTRTCRT_STR-KOSTR sy-vline 
WA_RNTRTCRT_STR-LFDNR sy-vline 
WA_RNTRTCRT_STR-BSTAT sy-vline 
WA_RNTRTCRT_STR-ABGDT sy-vline 
WA_RNTRTCRT_STR-BEGDT sy-vline 
WA_RNTRTCRT_STR-ENDDT sy-vline 
WA_RNTRTCRT_STR-UEBAB sy-vline 
WA_RNTRTCRT_STR-ERSDT sy-vline 
WA_RNTRTCRT_STR-STORN sy-vline 
WA_RNTRTCRT_STR-KTEXT sy-vline 
WA_RNTRTCRT_STR-LGTXT sy-vline 
WA_RNTRTCRT_STR-ORGAB sy-vline 
WA_RNTRTCRT_STR-ORGSP sy-vline 
WA_RNTRTCRT_STR-BEHST sy-vline 
WA_RNTRTCRT_STR-MSPER sy-vline 
WA_RNTRTCRT_STR-MAANZ sy-vline 
WA_RNTRTCRT_STR-MADAT sy-vline 
WA_RNTRTCRT_STR-DRUKZ sy-vline 
WA_RNTRTCRT_STR-DRUDT sy-vline 
WA_RNTRTCRT_STR-BEARB sy-vline 
WA_RNTRTCRT_STR-TCODE sy-vline 
WA_RNTRTCRT_STR-EBZEI sy-vline 
WA_RNTRTCRT_STR-MARK sy-vline 
WA_RNTRTCRT_STR-ZUOBK sy-vline 
WA_RNTRTCRT_STR-TYTXT sy-vline 
WA_RNTRTCRT_STR-ARTXT sy-vline 
WA_RNTRTCRT_STR-BSTTX sy-vline 
WA_RNTRTCRT_STR-NUMKR sy-vline 
WA_RNTRTCRT_STR-KNAME sy-vline 
WA_RNTRTCRT_STR-SOLFD sy-vline 
WA_RNTRTCRT_STR-SORT sy-vline 
WA_RNTRTCRT_STR-ZUOLK sy-vline 
WA_RNTRTCRT_STR-ECOTX sy-vline 
WA_RNTRTCRT_STR-ABRKZ_SYM sy-vline 
WA_RNTRTCRT_STR-ABRKZ_TXT sy-vline 
WA_RNTRTCRT_STR-BEHAR_TXT sy-vline 
WA_RNTRTCRT_STR-WARZT_TXT sy-vline 
WA_RNTRTCRT_STR-BELNR sy-vline 
WA_RNTRTCRT_STR-EINRI sy-vline 
WA_RNTRTCRT_STR-FALNR sy-vline 
WA_RNTRTCRT_STR-FATXT sy-vline 
WA_RNTRTCRT_STR-ORGABTEXT sy-vline 
WA_RNTRTCRT_STR-ORGSPTEXT sy-vline 
WA_RNTRTCRT_STR-PERIOD sy-vline 
WA_RNTRTCRT_STR-FAL_BEGDT sy-vline 
WA_RNTRTCRT_STR-FAL_ENDDT sy-vline 
WA_RNTRTCRT_STR-SUM_SERASS sy-vline 
WA_RNTRTCRT_STR-SUM_MOVASS sy-vline 
WA_RNTRTCRT_STR-NO_TRTCRT sy-vline 
WA_RNTRTCRT_STR-SHOW_CANCEL sy-vline 
WA_RNTRTCRT_STR-CTGTXT_LG sy-vline 
WA_RNTRTCRT_STR-TYTXT_LG sy-vline 
WA_RNTRTCRT_STR-MOVASS_INDIC sy-vline 
WA_RNTRTCRT_STR-AUFDV sy-vline 
WA_RNTRTCRT_STR-LGDKZ sy-vline      INTO ld_text SEPARATED BY SPACE.

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