ABAP Select data from SAP table IDWTADD 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 IDWTADD 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 IDWTADD. 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 IDWTADD 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_IDWTADD TYPE STANDARD TABLE OF IDWTADD,
      WA_IDWTADD TYPE IDWTADD,
      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: <IDWTADD> TYPE IDWTADD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDWTADD
*  INTO TABLE @DATA(IT_IDWTADD2).
*--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_IDWTADD INDEX 1 INTO DATA(WA_IDWTADD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDWTADD>-US_INFO_1042_00 = 1.
<IDWTADD>-US_REPORT_YEAR = 1.
<IDWTADD>-US_INFO_1042_10 = 1.
<IDWTADD>-US_CONT_NAME = 1.
<IDWTADD>-US_CONT_TELNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDWTADD-US_INFO_1042_20, sy-vline,
  WA_IDWTADD-US_PAYER_NAME, sy-vline,
  WA_IDWTADD-US_PAYER_TAXNO, sy-vline,
  WA_IDWTADD-US_INFO_1042_30, sy-vline,
  WA_IDWTADD-US_TRANS_TEST, sy-vline,
  WA_IDWTADD-US_TRANS_AGENT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IDWTADD 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_IDWTADD 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_IDWTADD INTO WA_IDWTADD.


*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 GJAHR, internal->external for field US_REPORT_YEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_REPORT_YEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_REPORT_YEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_FED
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_FED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_FED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_ROYAL
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_ROYAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_ROYAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_DIVID
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_DIVID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_DIVID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_DIRECT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_DIRECT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_DIRECT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_INT_GEN
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_INT_GEN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_INT_GEN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_INT_BUS
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_INT_BUS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_INT_BUS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_G_UNEMPLOY
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_G_UNEMPLOY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_G_UNEMPLOY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_G_TAX_REFUND
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_G_TAX_REFUND
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_G_TAX_REFUND.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_G_OTH_GRANT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_G_OTH_GRANT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_G_OTH_GRANT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_G_ATAA_PYMNT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_G_ATAA_PYMNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_G_ATAA_PYMNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field US_MIN_AMT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-US_MIN_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-US_MIN_AMT.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit GJAHR, internal->external for field IT_RF07_GJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-IT_RF07_GJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-IT_RF07_GJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AC152, internal->external for field KR_WT_QBSHH
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-KR_WT_QBSHH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-KR_WT_QBSHH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field VE_TAXHB
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-VE_TAXHB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-VE_TAXHB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field VE_TAXHH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-VE_TAXHH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-VE_TAXHH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ID_WT_GROSSAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-ID_WT_GROSSAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-ID_WT_GROSSAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field BE_MINBASE
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BE_MINBASE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BE_MINBASE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASAMT1
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BASAMT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BASAMT1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field BSAMTN_C1
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BSAMTN_C1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BSAMTN_C1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WHT_TAMT1
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHT_TAMT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHT_TAMT1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field WHTN_C1
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHTN_C1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHTN_C1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASAMT2
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BASAMT2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BASAMT2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field BSAMTN_C2
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BSAMTN_C2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BSAMTN_C2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WHT_TAMT2
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHT_TAMT2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHT_TAMT2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field WHTN_C2
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHTN_C2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHTN_C2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASAMT3
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BASAMT3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BASAMT3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field BSAMTN_C3
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BSAMTN_C3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BSAMTN_C3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WHT_TAMT3
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHT_TAMT3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHT_TAMT3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field WHTN_C3
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHTN_C3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHTN_C3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASAMT4
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BASAMT4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BASAMT4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field BSAMTN_C4
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BSAMTN_C4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BSAMTN_C4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WHT_TAMT4
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHT_TAMT4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHT_TAMT4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field WHTN_C4
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHTN_C4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHTN_C4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASAMT5
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BASAMT5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BASAMT5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field BSAMTN_C5
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-BSAMTN_C5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-BSAMTN_C5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WHT_TAMT5
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHT_TAMT5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHT_TAMT5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field WHTN_C5
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_IDWTADD-WHTN_C5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTADD-WHTN_C5.
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_IDWTADD_STR, 
US_INFO_1042_00 TYPE STRING,
US_REPORT_YEAR TYPE STRING,
US_INFO_1042_10 TYPE STRING,
US_CONT_NAME TYPE STRING,
US_CONT_TELNO TYPE STRING,
US_INFO_1042_20 TYPE STRING,
US_PAYER_NAME TYPE STRING,
US_PAYER_TAXNO TYPE STRING,
US_INFO_1042_30 TYPE STRING,
US_TRANS_TEST TYPE STRING,
US_TRANS_AGENT TYPE STRING,
US_TRANS_NAME TYPE STRING,
US_TRANS_STRAS TYPE STRING,
US_TRANS_CITY TYPE STRING,
US_TRANS_REGIO TYPE STRING,
US_TRANS_PSTLZ TYPE STRING,
US_TRANS_TAXNO TYPE STRING,
US_TCC TYPE STRING,
US_INFO_1099_10 TYPE STRING,
US_VENDOR_STCD1 TYPE STRING,
US_VENDOR_STCD2 TYPE STRING,
US_VENDOR_REGIO TYPE STRING,
US_INFO_1099_20 TYPE STRING,
US_HWAER TYPE STRING,
US_MIN_FED TYPE STRING,
US_MIN_ROYAL TYPE STRING,
US_MIN_DIVID TYPE STRING,
US_MIN_DIRECT TYPE STRING,
US_MIN_COMBINE TYPE STRING,
US_MIN_INT_GEN TYPE STRING,
US_MIN_INT_BUS TYPE STRING,
US_MIN_G_UNEMPLOY TYPE STRING,
US_MIN_G_TAX_REFUND TYPE STRING,
US_MIN_G_OTH_GRANT TYPE STRING,
US_MIN_G_ATAA_PYMNT TYPE STRING,
US_INFO_1099_30 TYPE STRING,
US_TRANS_NAME1 TYPE STRING,
US_TRANS_NAME2 TYPE STRING,
US_TRANS_TCC TYPE STRING,
US_TRANS_TIN TYPE STRING,
US_CONTACT_PERS TYPE STRING,
US_CONTACT_TELNO TYPE STRING,
US_CONTACT_EMAIL TYPE STRING,
US_COMP_NAME1 TYPE STRING,
US_COMP_NAME2 TYPE STRING,
US_COMP_STRAS TYPE STRING,
US_COMP_CITY TYPE STRING,
US_COMP_STATE TYPE STRING,
US_TRANS_POST TYPE STRING,
US_INFO_1099_40 TYPE STRING,
US_PAYER_AGENT TYPE STRING,
US_PAYER_NAME1 TYPE STRING,
US_PAYER_NAME2 TYPE STRING,
US_PAYER_CTRL TYPE STRING,
US_PAYER_STRAS TYPE STRING,
US_PAYER_CITY TYPE STRING,
US_PAYER_REGIO TYPE STRING,
US_PAYER_CTRY TYPE STRING,
US_PAYER_POST TYPE STRING,
US_PAYER_TELNO TYPE STRING,
US_PAYER_TIN TYPE STRING,
US_INFO_1099_50 TYPE STRING,
US_FILE_COMBINE TYPE STRING,
US_FILE_TEST TYPE STRING,
US_FILE_TAPE TYPE STRING,
US_FILE_CORR_IND TYPE STRING,
US_FILE_TM_NO TYPE STRING,
US_ALPHA_REPLACE TYPE STRING,
US_IRS_FNAME TYPE STRING,
US_APPL_FILE TYPE STRING,
US_APPL_FNAME TYPE STRING,
US_LOCAL_FILE TYPE STRING,
US_LOCAL_FNAME TYPE STRING,
US_AGENT_NAME TYPE STRING,
US_DEPT_TITLE TYPE STRING,
US_INFO_MULTI TYPE STRING,
US_CONT_MULTI TYPE STRING,
US_CONT_COMPANY TYPE STRING,
US_REC_TRUNC TYPE STRING,
US_MIN_CHECK TYPE STRING,
US_INFO_FILLER TYPE STRING,
US_FILLER_PSE TYPE STRING,
US_FILLER_EPF TYPE STRING,
US_FILLER_TPP TYPE STRING,
US_PSE_NAME TYPE STRING,
US_PSE_PHONE TYPE STRING,
US_MIN_TRANS TYPE STRING,
US_MIN_AMT TYPE STRING,
US_POS_PERIOD TYPE STRING,
US_TRANS_PAYMT TYPE STRING,
US_TRANS_TPN TYPE STRING,
US_PAYER_GIIN TYPE STRING,
US_INT_ID TYPE STRING,
US_CODEPAGE TYPE STRING,
US_AMEN_NO TYPE STRING,
US_AMEN_CHECK TYPE STRING,
IT_KANTIVA TYPE STRING,
IT_ENASARCO TYPE STRING,
IT_TAX_NO_SUBJ TYPE STRING,
IT_RF07_BUKRS TYPE STRING,
IT_RF07_GJAHR TYPE STRING,
IT_RF07_LIFNR TYPE STRING,
IT_RF07_CAUS TYPE STRING,
IT_RF07_NASSC TYPE STRING,
IT_RF07_CDINAIL TYPE STRING,
IT_RF07_DTINIZ TYPE STRING,
IT_RF07_DTFINE TYPE STRING,
IT_RF07_CDCOMU TYPE STRING,
IT_REP_LIFNR TYPE STRING,
IT_REP_LAND1 TYPE STRING,
IT_REP_SEXKZ TYPE STRING,
IT_REP_NAME1 TYPE STRING,
IT_REP_NAME2 TYPE STRING,
IT_REP_GBDAT TYPE STRING,
IT_REP_GBORT TYPE STRING,
IT_REP_CMDOM TYPE STRING,
IT_REP_PRDOM TYPE STRING,
IT_REP_INDOM TYPE STRING,
ES_FILL_DME TYPE STRING,
ES_INV_DATE TYPE STRING,
ES_PYMT_DATE TYPE STRING,
ES_QSTRE_DATE TYPE STRING,
ES_OUTPUT TYPE STRING,
ES_DECL TYPE STRING,
ES_ID_DECL TYPE STRING,
ES_ID_PRV_DEC TYPE STRING,
ES_NIF_WH_AG TYPE STRING,
ES_NAME_WH_AG TYPE STRING,
ES_TEL TYPE STRING,
ES_CONTACT_PERS TYPE STRING,
ES_TAX_DEPT TYPE STRING,
KR_WT_TYPE1 TYPE STRING,
KR_WT_TYPE2 TYPE STRING,
KR_WT_CODE1 TYPE STRING,
KR_WT_CODE2 TYPE STRING,
KR_WT_DATE TYPE STRING,
KR_WT_PYDT1 TYPE STRING,
KR_WT_PYDT2 TYPE STRING,
KR_WT_SECCO1 TYPE STRING,
KR_WT_SECCO2 TYPE STRING,
KR_WT_QBSHH TYPE STRING,
VE_L_BLART TYPE STRING,
VE_U_BLART TYPE STRING,
VE_CERTNUMBER TYPE STRING,
VE_CPUDT TYPE STRING,
VE_CPUTM TYPE STRING,
VE_TAXHB TYPE STRING,
VE_TAXHH TYPE STRING,
VE_CERT_RGN_FLG TYPE STRING,
VE_DM_HDR TYPE STRING,
VE_CERT_HDR TYPE STRING,
VE_STCD1 TYPE STRING,
VE_CNUM TYPE STRING,
VE_WT_RATE TYPE STRING,
GB_PERIOD_END_DATE TYPE STRING,
GB_NIL_RETURN_INDICATOR TYPE STRING,
GB_EMPSTAT_VFD_DCLRTN TYPE STRING,
GB_SC_VFD_DCLRTN TYPE STRING,
GB_INFO_CRCT_DCLRTN TYPE STRING,
GB_INACTIVITY_INDICATOR TYPE STRING,
GB_RETURN_HDR TYPE STRING,
GB_DCLRTN_HDR TYPE STRING,
GB_CIS_RTN_PSWRD TYPE STRING,
GB_CIS_GFF_SNDRID TYPE STRING,
GB_CIS_GFF_RCVRID TYPE STRING,
GB_FILE_HDR TYPE STRING,
GB_CIS_ICR TYPE STRING,
GB_CIS_TEST_TRNS TYPE STRING,
ID_WT_PERIOD TYPE STRING,
ID_WT_YEAR TYPE STRING,
ID_WT_CORRECTION TYPE STRING,
ID_WT_FORMCODE TYPE STRING,
ID_WT_RATE TYPE STRING,
ID_WT_ADDRESS TYPE STRING,
ID_WT_SERVICE1 TYPE STRING,
ID_WT_SERVICE2 TYPE STRING,
ID_WT_SERVICE3 TYPE STRING,
ID_WT_SERVICE4 TYPE STRING,
ID_WT_SERVICE5 TYPE STRING,
ID_WT_SERVICE6 TYPE STRING,
ID_WT_ESTPERC TYPE STRING,
ID_WT_GROSSAMT TYPE STRING,
BE_CONTACT_ID TYPE STRING,
BE_CONTACT_EM TYPE STRING,
BE_MINBASE TYPE STRING,
BE_REPORTYEAR TYPE STRING,
BE_REPORTDATE TYPE STRING,
BE_SEQ_NUM TYPE STRING,
BE_CORR_INDICATOR TYPE STRING,
BE_TEST_RUN TYPE STRING,
BE_CORR_REFERENCE TYPE STRING,
BE_NIHIL TYPE STRING,
BE_HWAER TYPE STRING,
BE_INFO_MULTI TYPE STRING,
BE_CONT_MULTI TYPE STRING,
BE_CONT_COMPANY TYPE STRING,
TH_PAYER TYPE STRING,
J_1TPBUPL TYPE STRING,
QEKAR TYPE STRING,
CLASSIF1 TYPE STRING,
TIMEE1 TYPE STRING,
DESCRIPTION1 TYPE STRING,
DEATISL1 TYPE STRING,
BASAMT1 TYPE STRING,
BSAMTN_C1 TYPE STRING,
WHT_TAMT1 TYPE STRING,
WHTN_C1 TYPE STRING,
CLASSIF2 TYPE STRING,
TIMEE2 TYPE STRING,
DESCRIPTION2 TYPE STRING,
DEATISL2 TYPE STRING,
BASAMT2 TYPE STRING,
BSAMTN_C2 TYPE STRING,
WHT_TAMT2 TYPE STRING,
WHTN_C2 TYPE STRING,
CLASSIF3 TYPE STRING,
TIMEE3 TYPE STRING,
DESCRIPTION3 TYPE STRING,
DEATISL3 TYPE STRING,
BASAMT3 TYPE STRING,
BSAMTN_C3 TYPE STRING,
WHT_TAMT3 TYPE STRING,
WHTN_C3 TYPE STRING,
CLASSIF4 TYPE STRING,
TIMEE4 TYPE STRING,
DESCRIPTION4 TYPE STRING,
DEATISL4 TYPE STRING,
BASAMT4 TYPE STRING,
BSAMTN_C4 TYPE STRING,
WHT_TAMT4 TYPE STRING,
WHTN_C4 TYPE STRING,
CLASSIF5 TYPE STRING,
TIMEE5 TYPE STRING,
DESCRIPTION5 TYPE STRING,
DEATISL5 TYPE STRING,
BASAMT5 TYPE STRING,
BSAMTN_C5 TYPE STRING,
WHT_TAMT5 TYPE STRING,
WHTN_C5 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IDWTADD_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_IDWTADD_STR-US_INFO_1042_00 sy-vline 
WA_IDWTADD_STR-US_REPORT_YEAR sy-vline 
WA_IDWTADD_STR-US_INFO_1042_10 sy-vline 
WA_IDWTADD_STR-US_CONT_NAME sy-vline 
WA_IDWTADD_STR-US_CONT_TELNO sy-vline 
WA_IDWTADD_STR-US_INFO_1042_20 sy-vline 
WA_IDWTADD_STR-US_PAYER_NAME sy-vline 
WA_IDWTADD_STR-US_PAYER_TAXNO sy-vline 
WA_IDWTADD_STR-US_INFO_1042_30 sy-vline 
WA_IDWTADD_STR-US_TRANS_TEST sy-vline 
WA_IDWTADD_STR-US_TRANS_AGENT sy-vline 
WA_IDWTADD_STR-US_TRANS_NAME sy-vline 
WA_IDWTADD_STR-US_TRANS_STRAS sy-vline 
WA_IDWTADD_STR-US_TRANS_CITY sy-vline 
WA_IDWTADD_STR-US_TRANS_REGIO sy-vline 
WA_IDWTADD_STR-US_TRANS_PSTLZ sy-vline 
WA_IDWTADD_STR-US_TRANS_TAXNO sy-vline 
WA_IDWTADD_STR-US_TCC sy-vline 
WA_IDWTADD_STR-US_INFO_1099_10 sy-vline 
WA_IDWTADD_STR-US_VENDOR_STCD1 sy-vline 
WA_IDWTADD_STR-US_VENDOR_STCD2 sy-vline 
WA_IDWTADD_STR-US_VENDOR_REGIO sy-vline 
WA_IDWTADD_STR-US_INFO_1099_20 sy-vline 
WA_IDWTADD_STR-US_HWAER sy-vline 
WA_IDWTADD_STR-US_MIN_FED sy-vline 
WA_IDWTADD_STR-US_MIN_ROYAL sy-vline 
WA_IDWTADD_STR-US_MIN_DIVID sy-vline 
WA_IDWTADD_STR-US_MIN_DIRECT sy-vline 
WA_IDWTADD_STR-US_MIN_COMBINE sy-vline 
WA_IDWTADD_STR-US_MIN_INT_GEN sy-vline 
WA_IDWTADD_STR-US_MIN_INT_BUS sy-vline 
WA_IDWTADD_STR-US_MIN_G_UNEMPLOY sy-vline 
WA_IDWTADD_STR-US_MIN_G_TAX_REFUND sy-vline 
WA_IDWTADD_STR-US_MIN_G_OTH_GRANT sy-vline 
WA_IDWTADD_STR-US_MIN_G_ATAA_PYMNT sy-vline 
WA_IDWTADD_STR-US_INFO_1099_30 sy-vline 
WA_IDWTADD_STR-US_TRANS_NAME1 sy-vline 
WA_IDWTADD_STR-US_TRANS_NAME2 sy-vline 
WA_IDWTADD_STR-US_TRANS_TCC sy-vline 
WA_IDWTADD_STR-US_TRANS_TIN sy-vline 
WA_IDWTADD_STR-US_CONTACT_PERS sy-vline 
WA_IDWTADD_STR-US_CONTACT_TELNO sy-vline 
WA_IDWTADD_STR-US_CONTACT_EMAIL sy-vline 
WA_IDWTADD_STR-US_COMP_NAME1 sy-vline 
WA_IDWTADD_STR-US_COMP_NAME2 sy-vline 
WA_IDWTADD_STR-US_COMP_STRAS sy-vline 
WA_IDWTADD_STR-US_COMP_CITY sy-vline 
WA_IDWTADD_STR-US_COMP_STATE sy-vline 
WA_IDWTADD_STR-US_TRANS_POST sy-vline 
WA_IDWTADD_STR-US_INFO_1099_40 sy-vline 
WA_IDWTADD_STR-US_PAYER_AGENT sy-vline 
WA_IDWTADD_STR-US_PAYER_NAME1 sy-vline 
WA_IDWTADD_STR-US_PAYER_NAME2 sy-vline 
WA_IDWTADD_STR-US_PAYER_CTRL sy-vline 
WA_IDWTADD_STR-US_PAYER_STRAS sy-vline 
WA_IDWTADD_STR-US_PAYER_CITY sy-vline 
WA_IDWTADD_STR-US_PAYER_REGIO sy-vline 
WA_IDWTADD_STR-US_PAYER_CTRY sy-vline 
WA_IDWTADD_STR-US_PAYER_POST sy-vline 
WA_IDWTADD_STR-US_PAYER_TELNO sy-vline 
WA_IDWTADD_STR-US_PAYER_TIN sy-vline 
WA_IDWTADD_STR-US_INFO_1099_50 sy-vline 
WA_IDWTADD_STR-US_FILE_COMBINE sy-vline 
WA_IDWTADD_STR-US_FILE_TEST sy-vline 
WA_IDWTADD_STR-US_FILE_TAPE sy-vline 
WA_IDWTADD_STR-US_FILE_CORR_IND sy-vline 
WA_IDWTADD_STR-US_FILE_TM_NO sy-vline 
WA_IDWTADD_STR-US_ALPHA_REPLACE sy-vline 
WA_IDWTADD_STR-US_IRS_FNAME sy-vline 
WA_IDWTADD_STR-US_APPL_FILE sy-vline 
WA_IDWTADD_STR-US_APPL_FNAME sy-vline 
WA_IDWTADD_STR-US_LOCAL_FILE sy-vline 
WA_IDWTADD_STR-US_LOCAL_FNAME sy-vline 
WA_IDWTADD_STR-US_AGENT_NAME sy-vline 
WA_IDWTADD_STR-US_DEPT_TITLE sy-vline 
WA_IDWTADD_STR-US_INFO_MULTI sy-vline 
WA_IDWTADD_STR-US_CONT_MULTI sy-vline 
WA_IDWTADD_STR-US_CONT_COMPANY sy-vline 
WA_IDWTADD_STR-US_REC_TRUNC sy-vline 
WA_IDWTADD_STR-US_MIN_CHECK sy-vline 
WA_IDWTADD_STR-US_INFO_FILLER sy-vline 
WA_IDWTADD_STR-US_FILLER_PSE sy-vline 
WA_IDWTADD_STR-US_FILLER_EPF sy-vline 
WA_IDWTADD_STR-US_FILLER_TPP sy-vline 
WA_IDWTADD_STR-US_PSE_NAME sy-vline 
WA_IDWTADD_STR-US_PSE_PHONE sy-vline 
WA_IDWTADD_STR-US_MIN_TRANS sy-vline 
WA_IDWTADD_STR-US_MIN_AMT sy-vline 
WA_IDWTADD_STR-US_POS_PERIOD sy-vline 
WA_IDWTADD_STR-US_TRANS_PAYMT sy-vline 
WA_IDWTADD_STR-US_TRANS_TPN sy-vline 
WA_IDWTADD_STR-US_PAYER_GIIN sy-vline 
WA_IDWTADD_STR-US_INT_ID sy-vline 
WA_IDWTADD_STR-US_CODEPAGE sy-vline 
WA_IDWTADD_STR-US_AMEN_NO sy-vline 
WA_IDWTADD_STR-US_AMEN_CHECK sy-vline 
WA_IDWTADD_STR-IT_KANTIVA sy-vline 
WA_IDWTADD_STR-IT_ENASARCO sy-vline 
WA_IDWTADD_STR-IT_TAX_NO_SUBJ sy-vline 
WA_IDWTADD_STR-IT_RF07_BUKRS sy-vline 
WA_IDWTADD_STR-IT_RF07_GJAHR sy-vline 
WA_IDWTADD_STR-IT_RF07_LIFNR sy-vline 
WA_IDWTADD_STR-IT_RF07_CAUS sy-vline 
WA_IDWTADD_STR-IT_RF07_NASSC sy-vline 
WA_IDWTADD_STR-IT_RF07_CDINAIL sy-vline 
WA_IDWTADD_STR-IT_RF07_DTINIZ sy-vline 
WA_IDWTADD_STR-IT_RF07_DTFINE sy-vline 
WA_IDWTADD_STR-IT_RF07_CDCOMU sy-vline 
WA_IDWTADD_STR-IT_REP_LIFNR sy-vline 
WA_IDWTADD_STR-IT_REP_LAND1 sy-vline 
WA_IDWTADD_STR-IT_REP_SEXKZ sy-vline 
WA_IDWTADD_STR-IT_REP_NAME1 sy-vline 
WA_IDWTADD_STR-IT_REP_NAME2 sy-vline 
WA_IDWTADD_STR-IT_REP_GBDAT sy-vline 
WA_IDWTADD_STR-IT_REP_GBORT sy-vline 
WA_IDWTADD_STR-IT_REP_CMDOM sy-vline 
WA_IDWTADD_STR-IT_REP_PRDOM sy-vline 
WA_IDWTADD_STR-IT_REP_INDOM sy-vline 
WA_IDWTADD_STR-ES_FILL_DME sy-vline 
WA_IDWTADD_STR-ES_INV_DATE sy-vline 
WA_IDWTADD_STR-ES_PYMT_DATE sy-vline 
WA_IDWTADD_STR-ES_QSTRE_DATE sy-vline 
WA_IDWTADD_STR-ES_OUTPUT sy-vline 
WA_IDWTADD_STR-ES_DECL sy-vline 
WA_IDWTADD_STR-ES_ID_DECL sy-vline 
WA_IDWTADD_STR-ES_ID_PRV_DEC sy-vline 
WA_IDWTADD_STR-ES_NIF_WH_AG sy-vline 
WA_IDWTADD_STR-ES_NAME_WH_AG sy-vline 
WA_IDWTADD_STR-ES_TEL sy-vline 
WA_IDWTADD_STR-ES_CONTACT_PERS sy-vline 
WA_IDWTADD_STR-ES_TAX_DEPT sy-vline 
WA_IDWTADD_STR-KR_WT_TYPE1 sy-vline 
WA_IDWTADD_STR-KR_WT_TYPE2 sy-vline 
WA_IDWTADD_STR-KR_WT_CODE1 sy-vline 
WA_IDWTADD_STR-KR_WT_CODE2 sy-vline 
WA_IDWTADD_STR-KR_WT_DATE sy-vline 
WA_IDWTADD_STR-KR_WT_PYDT1 sy-vline 
WA_IDWTADD_STR-KR_WT_PYDT2 sy-vline 
WA_IDWTADD_STR-KR_WT_SECCO1 sy-vline 
WA_IDWTADD_STR-KR_WT_SECCO2 sy-vline 
WA_IDWTADD_STR-KR_WT_QBSHH sy-vline 
WA_IDWTADD_STR-VE_L_BLART sy-vline 
WA_IDWTADD_STR-VE_U_BLART sy-vline 
WA_IDWTADD_STR-VE_CERTNUMBER sy-vline 
WA_IDWTADD_STR-VE_CPUDT sy-vline 
WA_IDWTADD_STR-VE_CPUTM sy-vline 
WA_IDWTADD_STR-VE_TAXHB sy-vline 
WA_IDWTADD_STR-VE_TAXHH sy-vline 
WA_IDWTADD_STR-VE_CERT_RGN_FLG sy-vline 
WA_IDWTADD_STR-VE_DM_HDR sy-vline 
WA_IDWTADD_STR-VE_CERT_HDR sy-vline 
WA_IDWTADD_STR-VE_STCD1 sy-vline 
WA_IDWTADD_STR-VE_CNUM sy-vline 
WA_IDWTADD_STR-VE_WT_RATE sy-vline 
WA_IDWTADD_STR-GB_PERIOD_END_DATE sy-vline 
WA_IDWTADD_STR-GB_NIL_RETURN_INDICATOR sy-vline 
WA_IDWTADD_STR-GB_EMPSTAT_VFD_DCLRTN sy-vline 
WA_IDWTADD_STR-GB_SC_VFD_DCLRTN sy-vline 
WA_IDWTADD_STR-GB_INFO_CRCT_DCLRTN sy-vline 
WA_IDWTADD_STR-GB_INACTIVITY_INDICATOR sy-vline 
WA_IDWTADD_STR-GB_RETURN_HDR sy-vline 
WA_IDWTADD_STR-GB_DCLRTN_HDR sy-vline 
WA_IDWTADD_STR-GB_CIS_RTN_PSWRD sy-vline 
WA_IDWTADD_STR-GB_CIS_GFF_SNDRID sy-vline 
WA_IDWTADD_STR-GB_CIS_GFF_RCVRID sy-vline 
WA_IDWTADD_STR-GB_FILE_HDR sy-vline 
WA_IDWTADD_STR-GB_CIS_ICR sy-vline 
WA_IDWTADD_STR-GB_CIS_TEST_TRNS sy-vline 
WA_IDWTADD_STR-ID_WT_PERIOD sy-vline 
WA_IDWTADD_STR-ID_WT_YEAR sy-vline 
WA_IDWTADD_STR-ID_WT_CORRECTION sy-vline 
WA_IDWTADD_STR-ID_WT_FORMCODE sy-vline 
WA_IDWTADD_STR-ID_WT_RATE sy-vline 
WA_IDWTADD_STR-ID_WT_ADDRESS sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE1 sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE2 sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE3 sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE4 sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE5 sy-vline 
WA_IDWTADD_STR-ID_WT_SERVICE6 sy-vline 
WA_IDWTADD_STR-ID_WT_ESTPERC sy-vline 
WA_IDWTADD_STR-ID_WT_GROSSAMT sy-vline 
WA_IDWTADD_STR-BE_CONTACT_ID sy-vline 
WA_IDWTADD_STR-BE_CONTACT_EM sy-vline 
WA_IDWTADD_STR-BE_MINBASE sy-vline 
WA_IDWTADD_STR-BE_REPORTYEAR sy-vline 
WA_IDWTADD_STR-BE_REPORTDATE sy-vline 
WA_IDWTADD_STR-BE_SEQ_NUM sy-vline 
WA_IDWTADD_STR-BE_CORR_INDICATOR sy-vline 
WA_IDWTADD_STR-BE_TEST_RUN sy-vline 
WA_IDWTADD_STR-BE_CORR_REFERENCE sy-vline 
WA_IDWTADD_STR-BE_NIHIL sy-vline 
WA_IDWTADD_STR-BE_HWAER sy-vline 
WA_IDWTADD_STR-BE_INFO_MULTI sy-vline 
WA_IDWTADD_STR-BE_CONT_MULTI sy-vline 
WA_IDWTADD_STR-BE_CONT_COMPANY sy-vline 
WA_IDWTADD_STR-TH_PAYER sy-vline 
WA_IDWTADD_STR-J_1TPBUPL sy-vline 
WA_IDWTADD_STR-QEKAR sy-vline 
WA_IDWTADD_STR-CLASSIF1 sy-vline 
WA_IDWTADD_STR-TIMEE1 sy-vline 
WA_IDWTADD_STR-DESCRIPTION1 sy-vline 
WA_IDWTADD_STR-DEATISL1 sy-vline 
WA_IDWTADD_STR-BASAMT1 sy-vline 
WA_IDWTADD_STR-BSAMTN_C1 sy-vline 
WA_IDWTADD_STR-WHT_TAMT1 sy-vline 
WA_IDWTADD_STR-WHTN_C1 sy-vline 
WA_IDWTADD_STR-CLASSIF2 sy-vline 
WA_IDWTADD_STR-TIMEE2 sy-vline 
WA_IDWTADD_STR-DESCRIPTION2 sy-vline 
WA_IDWTADD_STR-DEATISL2 sy-vline 
WA_IDWTADD_STR-BASAMT2 sy-vline 
WA_IDWTADD_STR-BSAMTN_C2 sy-vline 
WA_IDWTADD_STR-WHT_TAMT2 sy-vline 
WA_IDWTADD_STR-WHTN_C2 sy-vline 
WA_IDWTADD_STR-CLASSIF3 sy-vline 
WA_IDWTADD_STR-TIMEE3 sy-vline 
WA_IDWTADD_STR-DESCRIPTION3 sy-vline 
WA_IDWTADD_STR-DEATISL3 sy-vline 
WA_IDWTADD_STR-BASAMT3 sy-vline 
WA_IDWTADD_STR-BSAMTN_C3 sy-vline 
WA_IDWTADD_STR-WHT_TAMT3 sy-vline 
WA_IDWTADD_STR-WHTN_C3 sy-vline 
WA_IDWTADD_STR-CLASSIF4 sy-vline 
WA_IDWTADD_STR-TIMEE4 sy-vline 
WA_IDWTADD_STR-DESCRIPTION4 sy-vline 
WA_IDWTADD_STR-DEATISL4 sy-vline 
WA_IDWTADD_STR-BASAMT4 sy-vline 
WA_IDWTADD_STR-BSAMTN_C4 sy-vline 
WA_IDWTADD_STR-WHT_TAMT4 sy-vline 
WA_IDWTADD_STR-WHTN_C4 sy-vline 
WA_IDWTADD_STR-CLASSIF5 sy-vline 
WA_IDWTADD_STR-TIMEE5 sy-vline 
WA_IDWTADD_STR-DESCRIPTION5 sy-vline 
WA_IDWTADD_STR-DEATISL5 sy-vline 
WA_IDWTADD_STR-BASAMT5 sy-vline 
WA_IDWTADD_STR-BSAMTN_C5 sy-vline 
WA_IDWTADD_STR-WHT_TAMT5 sy-vline 
WA_IDWTADD_STR-WHTN_C5 sy-vline      INTO ld_text SEPARATED BY SPACE.

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