ABAP Select data from SAP table YTEL01_S_DOCREM_CORR 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 YTEL01_S_DOCREM_CORR 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 YTEL01_S_DOCREM_CORR. 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 YTEL01_S_DOCREM_CORR 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_YTEL01_S_DOCREM_CORR TYPE STANDARD TABLE OF YTEL01_S_DOCREM_CORR,
      WA_YTEL01_S_DOCREM_CORR TYPE YTEL01_S_DOCREM_CORR,
      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: <YTEL01_S_DOCREM_CORR> TYPE YTEL01_S_DOCREM_CORR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM YTEL01_S_DOCREM_CORR
*  INTO TABLE @DATA(IT_YTEL01_S_DOCREM_CORR2).
*--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_YTEL01_S_DOCREM_CORR INDEX 1 INTO DATA(WA_YTEL01_S_DOCREM_CORR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<YTEL01_S_DOCREM_CORR>-ZZMODELL = 1.
<YTEL01_S_DOCREM_CORR>-ZZANZ = 1.
<YTEL01_S_DOCREM_CORR>-ZZME = 1.
<YTEL01_S_DOCREM_CORR>-ZZSPARTE = 1.
<YTEL01_S_DOCREM_CORR>-ZZSTOPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_YTEL01_S_DOCREM_CORR-ZZAUFMENG, sy-vline,
  WA_YTEL01_S_DOCREM_CORR-ZZLASTKZ, sy-vline,
  WA_YTEL01_S_DOCREM_CORR-ZZVERTTYP, sy-vline,
  WA_YTEL01_S_DOCREM_CORR-ZZUMSATZ, sy-vline,
  WA_YTEL01_S_DOCREM_CORR-ZZWAERS, sy-vline,
  WA_YTEL01_S_DOCREM_CORR-ZZYTEL01_MODELL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_YTEL01_S_DOCREM_CORR 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_YTEL01_S_DOCREM_CORR 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_YTEL01_S_DOCREM_CORR INTO WA_YTEL01_S_DOCREM_CORR.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit TSTPS, internal->external for field RESP_RUPT_BEGIN
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCREM_CORR-RESP_RUPT_BEGIN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCREM_CORR-RESP_RUPT_BEGIN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field RESP_RUPT_END
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCREM_CORR-RESP_RUPT_END
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCREM_CORR-RESP_RUPT_END.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit TSTPS, internal->external for field P_VERSION
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCREM_CORR-P_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCREM_CORR-P_VERSION.
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_YTEL01_S_DOCREM_CORR_STR, 
ZZMODELL TYPE STRING,
ZZANZ TYPE STRING,
ZZME TYPE STRING,
ZZSPARTE TYPE STRING,
ZZSTOPS TYPE STRING,
ZZAUFMENG TYPE STRING,
ZZLASTKZ TYPE STRING,
ZZVERTTYP TYPE STRING,
ZZUMSATZ TYPE STRING,
ZZWAERS TYPE STRING,
ZZYTEL01_MODELL TYPE STRING,
ZZYTEL01_CLASS TYPE STRING,
ZZYTEL01_PIECES TYPE STRING,
ZZYTEL01_ROAMIN TYPE STRING,
ZZYTEL01_ADDSER TYPE STRING,
ZZYTEL01_UNIT TYPE STRING,
ZZYTEL01_RATEPL TYPE STRING,
ZTS_PRODUCT TYPE STRING,
ZTS_CLIENT TYPE STRING,
ZTS_MANAGER_R TYPE STRING,
ZTS_SUPPORT_R TYPE STRING,
ZTS_PERFORM TYPE STRING,
ZTS_EPP_L3 TYPE STRING,
ZTS_ADJVALTOT TYPE STRING,
ZTS_TATAR_MTL TYPE STRING,
ZTS_INCTAR_MTL TYPE STRING,
ZTS_REP_R TYPE STRING,
MANDT TYPE STRING,
POST_YEAR TYPE STRING,
DOC_ID TYPE STRING,
REMUN_POS TYPE STRING,
FLG_COMPL TYPE STRING,
FLG_REVERSED TYPE STRING,
STATUS_POS TYPE STRING,
STATUS_WORK TYPE STRING,
PART_POS TYPE STRING,
INV_POS TYPE STRING,
CTRTBU_ID TYPE STRING,
BUCAGR_ID TYPE STRING,
CLAIM_OBJTYPE TYPE STRING,
CLAIM_OBJID TYPE STRING,
REM_IMP_YEAR TYPE STRING,
REM_CASE_ID TYPE STRING,
REM_CASE_VERS TYPE STRING,
POW_OBJ_TYPE TYPE STRING,
POW_OBJ_ID TYPE STRING,
ACTIVITY TYPE STRING,
ACT_POS TYPE STRING,
ACTGRP TYPE STRING,
REM_OBJ_TYPE TYPE STRING,
REM_OBJ_ID TYPE STRING,
VALUE TYPE STRING,
VALUE_TYPE TYPE STRING,
VALUE_POS TYPE STRING,
REMVAL_LEDAMNT TYPE STRING,
REMVAL_QUAN TYPE STRING,
VALUE_UNIT TYPE STRING,
ROLE TYPE STRING,
ROLE_REMUSHAR TYPE STRING,
CONSTELL TYPE STRING,
DIST_TYPE TYPE STRING,
CON_CURR TYPE STRING,
LED_CURR TYPE STRING,
ALLOCATION TYPE STRING,
REMUNERATION TYPE STRING,
REM_VERSION TYPE STRING,
REM_RATE TYPE STRING,
REM_CONAMNT TYPE STRING,
DUE_CONAMNT TYPE STRING,
REM_LEDAMNT TYPE STRING,
DUE_LEDAMNT TYPE STRING,
REM_UNIT TYPE STRING,
REM_QUAN TYPE STRING,
DUE_QUAN TYPE STRING,
OFFSET_END_DATE TYPE STRING,
OFFSET_RULE_ID TYPE STRING,
OFFSET_CONAMNT TYPE STRING,
OFFSET_LEDAMNT TYPE STRING,
OFFSET_QUAN TYPE STRING,
RESP_BEGIN_DATE TYPE STRING,
RESP_END_DATE TYPE STRING,
RESP_RULE_ID TYPE STRING,
RESP_CONAMNT TYPE STRING,
RESP_LEDAMNT TYPE STRING,
RESP_QUAN TYPE STRING,
RESPVAL_LEDAMNT TYPE STRING,
RESPVAL_QUAN TYPE STRING,
STATUS_RESP TYPE STRING,
RESP_RUPT_BEGIN TYPE STRING,
RESP_RUPT_END TYPE STRING,
CORRBY_DOC_ID TYPE STRING,
CORRBY_PST_YEAR TYPE STRING,
CORRBY_PST_DATE TYPE STRING,
CORRTO_DOC_ID TYPE STRING,
CORRTO_PST_YEAR TYPE STRING,
CORRTO_REMUN_POS TYPE STRING,
FLG_CORR TYPE STRING,
SETTLE_GROUP TYPE STRING,
GPART_CTRT TYPE STRING,
CTRTST_ID TYPE STRING,
CTRT_TYPE TYPE STRING,
AGR_TYP TYPE STRING,
STCAGR_ID TYPE STRING,
GPART TYPE STRING,
QUALIFICATION TYPE STRING,
DISTRIBUTE TYPE STRING,
FLG_INDIV_COND TYPE STRING,
POST_DATE TYPE STRING,
POST_MONTH TYPE STRING,
TRI_OBJ_TYPE TYPE STRING,
TRI_OBJ_ID TYPE STRING,
TRI_OBJ_ID_EXT TYPE STRING,
STATUS_VAL TYPE STRING,
RESP_DATE TYPE STRING,
VALUE_AMNT_RUPT TYPE STRING,
VALUE_QUAN_RUPT TYPE STRING,
EARNED_LEDAMNT TYPE STRING,
EARNED_QUAN TYPE STRING,
EACLIAB TYPE STRING,
ROBJTYPE TYPE STRING,
ROBJID TYPE STRING,
LOG_SERVICE TYPE STRING,
SERVICETOOL TYPE STRING,
SERVICE_ID TYPE STRING,
SERVICE_PARAM1 TYPE STRING,
SERVICE_PARAM2 TYPE STRING,
SERVICE_PARAM3 TYPE STRING,
SERVICE_PARAM4 TYPE STRING,
SERVICE_PARAM5 TYPE STRING,
CACSDUMMY TYPE STRING,
P_VERSION TYPE STRING,
P_CTRT_XL TYPE STRING,
P_CACSAPPL TYPE STRING,
P_STATE TYPE STRING,
P_NUM1 TYPE STRING,
P_NUM2 TYPE STRING,
P_AMNT1 TYPE STRING,
P_AMNT2 TYPE STRING,
P_CURR1 TYPE STRING,
P_CURR2 TYPE STRING,
P_TEXT1 TYPE STRING,
P_TEXT2 TYPE STRING,
FLG_TEMP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_YTEL01_S_DOCREM_CORR_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_YTEL01_S_DOCREM_CORR_STR-ZZMODELL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZANZ sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZME sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZSPARTE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZSTOPS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZAUFMENG sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZLASTKZ sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZVERTTYP sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZUMSATZ sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZWAERS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_MODELL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_CLASS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_PIECES sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_ROAMIN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_ADDSER sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_UNIT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZZYTEL01_RATEPL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_PRODUCT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_CLIENT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_MANAGER_R sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_SUPPORT_R sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_PERFORM sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_EPP_L3 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_ADJVALTOT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_TATAR_MTL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_INCTAR_MTL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ZTS_REP_R sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-MANDT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-POST_YEAR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DOC_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REMUN_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-FLG_COMPL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-FLG_REVERSED sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-STATUS_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-STATUS_WORK sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-PART_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-INV_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CTRTBU_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-BUCAGR_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CLAIM_OBJTYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CLAIM_OBJID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_IMP_YEAR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_CASE_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_CASE_VERS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-POW_OBJ_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-POW_OBJ_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ACTIVITY sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ACT_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ACTGRP sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_OBJ_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_OBJ_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REMVAL_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REMVAL_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE_UNIT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ROLE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ROLE_REMUSHAR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CONSTELL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DIST_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CON_CURR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-LED_CURR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ALLOCATION sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REMUNERATION sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_VERSION sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_RATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_CONAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DUE_CONAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DUE_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_UNIT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-REM_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DUE_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-OFFSET_END_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-OFFSET_RULE_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-OFFSET_CONAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-OFFSET_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-OFFSET_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_BEGIN_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_END_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_RULE_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_CONAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESPVAL_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESPVAL_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-STATUS_RESP sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_RUPT_BEGIN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_RUPT_END sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRBY_DOC_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRBY_PST_YEAR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRBY_PST_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRTO_DOC_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRTO_PST_YEAR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CORRTO_REMUN_POS sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-FLG_CORR sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SETTLE_GROUP sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-GPART_CTRT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CTRTST_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CTRT_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-AGR_TYP sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-STCAGR_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-GPART sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-QUALIFICATION sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-DISTRIBUTE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-FLG_INDIV_COND sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-POST_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-POST_MONTH sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-TRI_OBJ_TYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-TRI_OBJ_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-TRI_OBJ_ID_EXT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-STATUS_VAL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-RESP_DATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE_AMNT_RUPT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-VALUE_QUAN_RUPT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-EARNED_LEDAMNT sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-EARNED_QUAN sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-EACLIAB sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ROBJTYPE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-ROBJID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-LOG_SERVICE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICETOOL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_ID sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_PARAM1 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_PARAM2 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_PARAM3 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_PARAM4 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-SERVICE_PARAM5 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-CACSDUMMY sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_VERSION sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_CTRT_XL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_CACSAPPL sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_STATE sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_NUM1 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_NUM2 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_AMNT1 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_AMNT2 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_CURR1 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_CURR2 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_TEXT1 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-P_TEXT2 sy-vline 
WA_YTEL01_S_DOCREM_CORR_STR-FLG_TEMP sy-vline      INTO ld_text SEPARATED BY SPACE.

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