ABAP Select data from SAP table IDWTPARTNER 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 IDWTPARTNER 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 IDWTPARTNER. 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 IDWTPARTNER 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_IDWTPARTNER TYPE STANDARD TABLE OF IDWTPARTNER,
      WA_IDWTPARTNER TYPE IDWTPARTNER,
      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: <IDWTPARTNER> TYPE IDWTPARTNER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDWTPARTNER
*  INTO TABLE @DATA(IT_IDWTPARTNER2).
*--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_IDWTPARTNER INDEX 1 INTO DATA(WA_IDWTPARTNER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDWTPARTNER>-BUKRS = 1.
<IDWTPARTNER>-PARTNO_TYPE = 1.
<IDWTPARTNER>-PARTNERNO = 1.
<IDWTPARTNER>-WT_PERIOD = 1.
<IDWTPARTNER>-MONA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDWTPARTNER-WITHT, sy-vline,
  WA_IDWTPARTNER-WT_WITHCD, sy-vline,
  WA_IDWTPARTNER-QLAND, sy-vline,
  WA_IDWTPARTNER-QLTXT, sy-vline,
  WA_IDWTPARTNER-LIFNR, sy-vline,
  WA_IDWTPARTNER-KUNNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IDWTPARTNER 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_IDWTPARTNER 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_IDWTPARTNER INTO WA_IDWTPARTNER.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_IDWTPARTNER-SMTP_ADDR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDWTPARTNER-SMTP_ADDR.
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_IDWTPARTNER_STR, 
BUKRS TYPE STRING,
PARTNO_TYPE TYPE STRING,
PARTNERNO TYPE STRING,
WT_PERIOD TYPE STRING,
MONA TYPE STRING,
WITHT TYPE STRING,
WT_WITHCD TYPE STRING,
QLAND TYPE STRING,
QLTXT TYPE STRING,
LIFNR TYPE STRING,
KUNNR TYPE STRING,
PARTNER_SEQ_NB TYPE STRING,
TEXT40 TYPE STRING,
WT_TYPECODE_TEXT TYPE STRING,
QSCOD TYPE STRING,
WT_OFFWT_TEXT TYPE STRING,
TAX_REGION TYPE STRING,
TAX_REGION_NUM TYPE STRING,
TAX_REGION_TXT TYPE STRING,
CTNUMBER TYPE STRING,
WT_POSTM TYPE STRING,
WT_POSIN TYPE STRING,
FPRCD TYPE STRING,
QEKAR TYPE STRING,
EATXT TYPE STRING,
XQFOR TYPE STRING,
QPROZ TYPE STRING,
QSATZ TYPE STRING,
QSATR TYPE STRING,
SORTL TYPE STRING,
SPRAS TYPE STRING,
BRSCH TYPE STRING,
STCD1 TYPE STRING,
STCD2 TYPE STRING,
STCD3 TYPE STRING,
STCD4 TYPE STRING,
GBDAT TYPE STRING,
GBORT TYPE STRING,
SEXKZ TYPE STRING,
STKZN TYPE STRING,
STKZU TYPE STRING,
VBUND TYPE STRING,
STCEG TYPE STRING,
TXJCD TYPE STRING,
WERKS TYPE STRING,
DTAMS TYPE STRING,
ADDRNUMBER TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
TITLE TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
NAME_TXT TYPE STRING,
NAME_CO TYPE STRING,
CITY1 TYPE STRING,
CITY2 TYPE STRING,
CITY_CODE TYPE STRING,
CITYP_CODE TYPE STRING,
HOME_CITY TYPE STRING,
CITYH_CODE TYPE STRING,
CHCKSTATUS TYPE STRING,
REGIOGROUP TYPE STRING,
POST_CODE1 TYPE STRING,
POST_CODE2 TYPE STRING,
POST_CODE3 TYPE STRING,
PCODE1_EXT TYPE STRING,
PCODE2_EXT TYPE STRING,
PCODE3_EXT TYPE STRING,
PO_BOX TYPE STRING,
DONT_USE_P TYPE STRING,
PO_BOX_NUM TYPE STRING,
PO_BOX_LOC TYPE STRING,
CITY_CODE2 TYPE STRING,
PO_BOX_REG TYPE STRING,
PO_BOX_CTY TYPE STRING,
POSTALAREA TYPE STRING,
TRANSPZONE TYPE STRING,
STREET TYPE STRING,
DONT_USE_S TYPE STRING,
STREETCODE TYPE STRING,
STREETABBR TYPE STRING,
HOUSE_NUM1 TYPE STRING,
HOUSE_NUM2 TYPE STRING,
HOUSE_NUM3 TYPE STRING,
STR_SUPPL1 TYPE STRING,
STR_SUPPL2 TYPE STRING,
STR_SUPPL3 TYPE STRING,
LOCATION TYPE STRING,
BUILDING TYPE STRING,
FLOOR TYPE STRING,
ROOMNUMBER TYPE STRING,
COUNTRY TYPE STRING,
LANGU TYPE STRING,
REGION TYPE STRING,
SORT1 TYPE STRING,
SORT2 TYPE STRING,
SORT_PHN TYPE STRING,
ADDRORIGIN TYPE STRING,
EXTENSION1 TYPE STRING,
EXTENSION2 TYPE STRING,
TIME_ZONE TYPE STRING,
TAXJURCODE TYPE STRING,
ADDRESS_ID TYPE STRING,
REMARK TYPE STRING,
LANGU_CREA TYPE STRING,
PO_BOX_LOBBY TYPE STRING,
DELI_SERV_TYPE TYPE STRING,
DELI_SERV_NUMBER TYPE STRING,
COUNTY_CODE TYPE STRING,
COUNTY TYPE STRING,
TOWNSHIP_CODE TYPE STRING,
TOWNSHIP TYPE STRING,
DEFLT_COMM TYPE STRING,
XPCPT TYPE STRING,
LANDX TYPE STRING,
NATIO TYPE STRING,
BEZEI TYPE STRING,
TEL_NUMBER TYPE STRING,
VEND_TITLE_TXT TYPE STRING,
WT_SHORT_ADDR TYPE STRING,
FITYP TYPE STRING,
STCDT TYPE STRING,
KUKLA TYPE STRING,
BAHNS TYPE STRING,
J_1KFREPRE TYPE STRING,
J_1KFTBUS TYPE STRING,
J_1KFTIND TYPE STRING,
QSREC TYPE STRING,
WT_WTSTCD TYPE STRING,
WT_EXNR TYPE STRING,
WT_EXRT TYPE STRING,
WT_EXDF TYPE STRING,
WT_EXDT TYPE STRING,
WT_WTEXRS TYPE STRING,
WT_WTAGT TYPE STRING,
WT_AGTDF TYPE STRING,
WT_AGTDT TYPE STRING,
QSZNR TYPE STRING,
QSZDT TYPE STRING,
HBKID TYPE STRING,
COUNC TYPE STRING,
CITYC TYPE STRING,
RPMKR TYPE STRING,
GFORM TYPE STRING,
NIELS TYPE STRING,
HWAER TYPE STRING,
WT_GROUP1 TYPE STRING,
DMBTR TYPE STRING,
WT_QSSHH TYPE STRING,
WT_QBSHH TYPE STRING,
WT_QSFHH TYPE STRING,
WT_TAXHH TYPE STRING,
WT_AMEXCLVAT TYPE STRING,
WT_AMRBASE TYPE STRING,
WT_AMREXMP TYPE STRING,
SKNTO TYPE STRING,
PROFS TYPE STRING,
CIIU TYPE STRING,
ADDITIONAL_INFO TYPE STRING,
BUPLA TYPE STRING,
ALT_PAYEE TYPE STRING,
STCD5 TYPE STRING,
US_AGT_AMT TYPE STRING,
FRG_TAX_ID TYPE STRING,
ESCROW_PROC TYPE STRING,
US_CH4_RCODE TYPE STRING,
XCPDK TYPE STRING,
GB_CIS_SC_TRDNM TYPE STRING,
GB_CIS_SC_FSNM TYPE STRING,
GB_CIS_SC_SCNM TYPE STRING,
GB_CIS_SC_INTL TYPE STRING,
GB_CIS_SC_VFNNUM TYPE STRING,
GB_CIS_SC_UTR TYPE STRING,
GB_CIS_SC_VFNSTS TYPE STRING,
GB_CIS_SCNUM TYPE STRING,
BE_BA_5060 TYPE STRING,
BE_BA_5061 TYPE STRING,
BE_BA_5062 TYPE STRING,
BE_BA_5063 TYPE STRING,
BE_CO_TOTAL TYPE STRING,
STENR TYPE STRING,
KVERM TYPE STRING,
BE_NIHIL TYPE STRING,
KR_QSREC TYPE STRING,
IE_CONTRACT_ID TYPE STRING,
IE_AMNT_UNDECL TYPE STRING,
IE_LST_PRTNR TYPE STRING,
US_1099K_TRANS TYPE STRING,
US_1099INT_DIS TYPE STRING,
US_1099INT_BOND TYPE STRING,
US_1042_EXMCODE TYPE STRING,
US_1042_RATE TYPE STRING,
US_CHP3_RCODE TYPE STRING,
US_1099_DIRECT TYPE STRING,
US_1099INT_TAX TYPE STRING,
US_1099INT_ACT TYPE STRING,
US_1099INT_PRM TYPE STRING,
US_1099K_CARDNA TYPE STRING,
US_1099_FATCA TYPE STRING,
US_1042_AMTREP TYPE STRING,
US_1042_CHP3 TYPE STRING,
US_1042_CHP4 TYPE STRING,
US_1042_CHP3_RATE TYPE STRING,
US_1042_CHP3_EXMCODE TYPE STRING,
US_NATIVE_CTRY TYPE STRING,
US_1099INT_BOND_PRM TYPE STRING,
US_1042_LOB TYPE STRING,
US_PAYER_CHP3 TYPE STRING,
US_PAYER_CHP4 TYPE STRING,
US_TIN_NOTICE TYPE STRING,
US_PARTNERSHIP_IND TYPE STRING,
JP_NUMBER TYPE STRING,
JP_TYPE TYPE STRING,
WT_PAYDT TYPE STRING,
WT_PAMTH TYPE STRING,
WT_PAMTH_TXT TYPE STRING,
SMTP_ADDR TYPE STRING,
FR_OCCUPATION TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IDWTPARTNER_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_IDWTPARTNER_STR-BUKRS sy-vline 
WA_IDWTPARTNER_STR-PARTNO_TYPE sy-vline 
WA_IDWTPARTNER_STR-PARTNERNO sy-vline 
WA_IDWTPARTNER_STR-WT_PERIOD sy-vline 
WA_IDWTPARTNER_STR-MONA sy-vline 
WA_IDWTPARTNER_STR-WITHT sy-vline 
WA_IDWTPARTNER_STR-WT_WITHCD sy-vline 
WA_IDWTPARTNER_STR-QLAND sy-vline 
WA_IDWTPARTNER_STR-QLTXT sy-vline 
WA_IDWTPARTNER_STR-LIFNR sy-vline 
WA_IDWTPARTNER_STR-KUNNR sy-vline 
WA_IDWTPARTNER_STR-PARTNER_SEQ_NB sy-vline 
WA_IDWTPARTNER_STR-TEXT40 sy-vline 
WA_IDWTPARTNER_STR-WT_TYPECODE_TEXT sy-vline 
WA_IDWTPARTNER_STR-QSCOD sy-vline 
WA_IDWTPARTNER_STR-WT_OFFWT_TEXT sy-vline 
WA_IDWTPARTNER_STR-TAX_REGION sy-vline 
WA_IDWTPARTNER_STR-TAX_REGION_NUM sy-vline 
WA_IDWTPARTNER_STR-TAX_REGION_TXT sy-vline 
WA_IDWTPARTNER_STR-CTNUMBER sy-vline 
WA_IDWTPARTNER_STR-WT_POSTM sy-vline 
WA_IDWTPARTNER_STR-WT_POSIN sy-vline 
WA_IDWTPARTNER_STR-FPRCD sy-vline 
WA_IDWTPARTNER_STR-QEKAR sy-vline 
WA_IDWTPARTNER_STR-EATXT sy-vline 
WA_IDWTPARTNER_STR-XQFOR sy-vline 
WA_IDWTPARTNER_STR-QPROZ sy-vline 
WA_IDWTPARTNER_STR-QSATZ sy-vline 
WA_IDWTPARTNER_STR-QSATR sy-vline 
WA_IDWTPARTNER_STR-SORTL sy-vline 
WA_IDWTPARTNER_STR-SPRAS sy-vline 
WA_IDWTPARTNER_STR-BRSCH sy-vline 
WA_IDWTPARTNER_STR-STCD1 sy-vline 
WA_IDWTPARTNER_STR-STCD2 sy-vline 
WA_IDWTPARTNER_STR-STCD3 sy-vline 
WA_IDWTPARTNER_STR-STCD4 sy-vline 
WA_IDWTPARTNER_STR-GBDAT sy-vline 
WA_IDWTPARTNER_STR-GBORT sy-vline 
WA_IDWTPARTNER_STR-SEXKZ sy-vline 
WA_IDWTPARTNER_STR-STKZN sy-vline 
WA_IDWTPARTNER_STR-STKZU sy-vline 
WA_IDWTPARTNER_STR-VBUND sy-vline 
WA_IDWTPARTNER_STR-STCEG sy-vline 
WA_IDWTPARTNER_STR-TXJCD sy-vline 
WA_IDWTPARTNER_STR-WERKS sy-vline 
WA_IDWTPARTNER_STR-DTAMS sy-vline 
WA_IDWTPARTNER_STR-ADDRNUMBER sy-vline 
WA_IDWTPARTNER_STR-DATE_FROM sy-vline 
WA_IDWTPARTNER_STR-DATE_TO sy-vline 
WA_IDWTPARTNER_STR-TITLE sy-vline 
WA_IDWTPARTNER_STR-NAME1 sy-vline 
WA_IDWTPARTNER_STR-NAME2 sy-vline 
WA_IDWTPARTNER_STR-NAME3 sy-vline 
WA_IDWTPARTNER_STR-NAME4 sy-vline 
WA_IDWTPARTNER_STR-NAME_TXT sy-vline 
WA_IDWTPARTNER_STR-NAME_CO sy-vline 
WA_IDWTPARTNER_STR-CITY1 sy-vline 
WA_IDWTPARTNER_STR-CITY2 sy-vline 
WA_IDWTPARTNER_STR-CITY_CODE sy-vline 
WA_IDWTPARTNER_STR-CITYP_CODE sy-vline 
WA_IDWTPARTNER_STR-HOME_CITY sy-vline 
WA_IDWTPARTNER_STR-CITYH_CODE sy-vline 
WA_IDWTPARTNER_STR-CHCKSTATUS sy-vline 
WA_IDWTPARTNER_STR-REGIOGROUP sy-vline 
WA_IDWTPARTNER_STR-POST_CODE1 sy-vline 
WA_IDWTPARTNER_STR-POST_CODE2 sy-vline 
WA_IDWTPARTNER_STR-POST_CODE3 sy-vline 
WA_IDWTPARTNER_STR-PCODE1_EXT sy-vline 
WA_IDWTPARTNER_STR-PCODE2_EXT sy-vline 
WA_IDWTPARTNER_STR-PCODE3_EXT sy-vline 
WA_IDWTPARTNER_STR-PO_BOX sy-vline 
WA_IDWTPARTNER_STR-DONT_USE_P sy-vline 
WA_IDWTPARTNER_STR-PO_BOX_NUM sy-vline 
WA_IDWTPARTNER_STR-PO_BOX_LOC sy-vline 
WA_IDWTPARTNER_STR-CITY_CODE2 sy-vline 
WA_IDWTPARTNER_STR-PO_BOX_REG sy-vline 
WA_IDWTPARTNER_STR-PO_BOX_CTY sy-vline 
WA_IDWTPARTNER_STR-POSTALAREA sy-vline 
WA_IDWTPARTNER_STR-TRANSPZONE sy-vline 
WA_IDWTPARTNER_STR-STREET sy-vline 
WA_IDWTPARTNER_STR-DONT_USE_S sy-vline 
WA_IDWTPARTNER_STR-STREETCODE sy-vline 
WA_IDWTPARTNER_STR-STREETABBR sy-vline 
WA_IDWTPARTNER_STR-HOUSE_NUM1 sy-vline 
WA_IDWTPARTNER_STR-HOUSE_NUM2 sy-vline 
WA_IDWTPARTNER_STR-HOUSE_NUM3 sy-vline 
WA_IDWTPARTNER_STR-STR_SUPPL1 sy-vline 
WA_IDWTPARTNER_STR-STR_SUPPL2 sy-vline 
WA_IDWTPARTNER_STR-STR_SUPPL3 sy-vline 
WA_IDWTPARTNER_STR-LOCATION sy-vline 
WA_IDWTPARTNER_STR-BUILDING sy-vline 
WA_IDWTPARTNER_STR-FLOOR sy-vline 
WA_IDWTPARTNER_STR-ROOMNUMBER sy-vline 
WA_IDWTPARTNER_STR-COUNTRY sy-vline 
WA_IDWTPARTNER_STR-LANGU sy-vline 
WA_IDWTPARTNER_STR-REGION sy-vline 
WA_IDWTPARTNER_STR-SORT1 sy-vline 
WA_IDWTPARTNER_STR-SORT2 sy-vline 
WA_IDWTPARTNER_STR-SORT_PHN sy-vline 
WA_IDWTPARTNER_STR-ADDRORIGIN sy-vline 
WA_IDWTPARTNER_STR-EXTENSION1 sy-vline 
WA_IDWTPARTNER_STR-EXTENSION2 sy-vline 
WA_IDWTPARTNER_STR-TIME_ZONE sy-vline 
WA_IDWTPARTNER_STR-TAXJURCODE sy-vline 
WA_IDWTPARTNER_STR-ADDRESS_ID sy-vline 
WA_IDWTPARTNER_STR-REMARK sy-vline 
WA_IDWTPARTNER_STR-LANGU_CREA sy-vline 
WA_IDWTPARTNER_STR-PO_BOX_LOBBY sy-vline 
WA_IDWTPARTNER_STR-DELI_SERV_TYPE sy-vline 
WA_IDWTPARTNER_STR-DELI_SERV_NUMBER sy-vline 
WA_IDWTPARTNER_STR-COUNTY_CODE sy-vline 
WA_IDWTPARTNER_STR-COUNTY sy-vline 
WA_IDWTPARTNER_STR-TOWNSHIP_CODE sy-vline 
WA_IDWTPARTNER_STR-TOWNSHIP sy-vline 
WA_IDWTPARTNER_STR-DEFLT_COMM sy-vline 
WA_IDWTPARTNER_STR-XPCPT sy-vline 
WA_IDWTPARTNER_STR-LANDX sy-vline 
WA_IDWTPARTNER_STR-NATIO sy-vline 
WA_IDWTPARTNER_STR-BEZEI sy-vline 
WA_IDWTPARTNER_STR-TEL_NUMBER sy-vline 
WA_IDWTPARTNER_STR-VEND_TITLE_TXT sy-vline 
WA_IDWTPARTNER_STR-WT_SHORT_ADDR sy-vline 
WA_IDWTPARTNER_STR-FITYP sy-vline 
WA_IDWTPARTNER_STR-STCDT sy-vline 
WA_IDWTPARTNER_STR-KUKLA sy-vline 
WA_IDWTPARTNER_STR-BAHNS sy-vline 
WA_IDWTPARTNER_STR-J_1KFREPRE sy-vline 
WA_IDWTPARTNER_STR-J_1KFTBUS sy-vline 
WA_IDWTPARTNER_STR-J_1KFTIND sy-vline 
WA_IDWTPARTNER_STR-QSREC sy-vline 
WA_IDWTPARTNER_STR-WT_WTSTCD sy-vline 
WA_IDWTPARTNER_STR-WT_EXNR sy-vline 
WA_IDWTPARTNER_STR-WT_EXRT sy-vline 
WA_IDWTPARTNER_STR-WT_EXDF sy-vline 
WA_IDWTPARTNER_STR-WT_EXDT sy-vline 
WA_IDWTPARTNER_STR-WT_WTEXRS sy-vline 
WA_IDWTPARTNER_STR-WT_WTAGT sy-vline 
WA_IDWTPARTNER_STR-WT_AGTDF sy-vline 
WA_IDWTPARTNER_STR-WT_AGTDT sy-vline 
WA_IDWTPARTNER_STR-QSZNR sy-vline 
WA_IDWTPARTNER_STR-QSZDT sy-vline 
WA_IDWTPARTNER_STR-HBKID sy-vline 
WA_IDWTPARTNER_STR-COUNC sy-vline 
WA_IDWTPARTNER_STR-CITYC sy-vline 
WA_IDWTPARTNER_STR-RPMKR sy-vline 
WA_IDWTPARTNER_STR-GFORM sy-vline 
WA_IDWTPARTNER_STR-NIELS sy-vline 
WA_IDWTPARTNER_STR-HWAER sy-vline 
WA_IDWTPARTNER_STR-WT_GROUP1 sy-vline 
WA_IDWTPARTNER_STR-DMBTR sy-vline 
WA_IDWTPARTNER_STR-WT_QSSHH sy-vline 
WA_IDWTPARTNER_STR-WT_QBSHH sy-vline 
WA_IDWTPARTNER_STR-WT_QSFHH sy-vline 
WA_IDWTPARTNER_STR-WT_TAXHH sy-vline 
WA_IDWTPARTNER_STR-WT_AMEXCLVAT sy-vline 
WA_IDWTPARTNER_STR-WT_AMRBASE sy-vline 
WA_IDWTPARTNER_STR-WT_AMREXMP sy-vline 
WA_IDWTPARTNER_STR-SKNTO sy-vline 
WA_IDWTPARTNER_STR-PROFS sy-vline 
WA_IDWTPARTNER_STR-CIIU sy-vline 
WA_IDWTPARTNER_STR-ADDITIONAL_INFO sy-vline 
WA_IDWTPARTNER_STR-BUPLA sy-vline 
WA_IDWTPARTNER_STR-ALT_PAYEE sy-vline 
WA_IDWTPARTNER_STR-STCD5 sy-vline 
WA_IDWTPARTNER_STR-US_AGT_AMT sy-vline 
WA_IDWTPARTNER_STR-FRG_TAX_ID sy-vline 
WA_IDWTPARTNER_STR-ESCROW_PROC sy-vline 
WA_IDWTPARTNER_STR-US_CH4_RCODE sy-vline 
WA_IDWTPARTNER_STR-XCPDK sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_TRDNM sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_FSNM sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_SCNM sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_INTL sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_VFNNUM sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_UTR sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SC_VFNSTS sy-vline 
WA_IDWTPARTNER_STR-GB_CIS_SCNUM sy-vline 
WA_IDWTPARTNER_STR-BE_BA_5060 sy-vline 
WA_IDWTPARTNER_STR-BE_BA_5061 sy-vline 
WA_IDWTPARTNER_STR-BE_BA_5062 sy-vline 
WA_IDWTPARTNER_STR-BE_BA_5063 sy-vline 
WA_IDWTPARTNER_STR-BE_CO_TOTAL sy-vline 
WA_IDWTPARTNER_STR-STENR sy-vline 
WA_IDWTPARTNER_STR-KVERM sy-vline 
WA_IDWTPARTNER_STR-BE_NIHIL sy-vline 
WA_IDWTPARTNER_STR-KR_QSREC sy-vline 
WA_IDWTPARTNER_STR-IE_CONTRACT_ID sy-vline 
WA_IDWTPARTNER_STR-IE_AMNT_UNDECL sy-vline 
WA_IDWTPARTNER_STR-IE_LST_PRTNR sy-vline 
WA_IDWTPARTNER_STR-US_1099K_TRANS sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_DIS sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_BOND sy-vline 
WA_IDWTPARTNER_STR-US_1042_EXMCODE sy-vline 
WA_IDWTPARTNER_STR-US_1042_RATE sy-vline 
WA_IDWTPARTNER_STR-US_CHP3_RCODE sy-vline 
WA_IDWTPARTNER_STR-US_1099_DIRECT sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_TAX sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_ACT sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_PRM sy-vline 
WA_IDWTPARTNER_STR-US_1099K_CARDNA sy-vline 
WA_IDWTPARTNER_STR-US_1099_FATCA sy-vline 
WA_IDWTPARTNER_STR-US_1042_AMTREP sy-vline 
WA_IDWTPARTNER_STR-US_1042_CHP3 sy-vline 
WA_IDWTPARTNER_STR-US_1042_CHP4 sy-vline 
WA_IDWTPARTNER_STR-US_1042_CHP3_RATE sy-vline 
WA_IDWTPARTNER_STR-US_1042_CHP3_EXMCODE sy-vline 
WA_IDWTPARTNER_STR-US_NATIVE_CTRY sy-vline 
WA_IDWTPARTNER_STR-US_1099INT_BOND_PRM sy-vline 
WA_IDWTPARTNER_STR-US_1042_LOB sy-vline 
WA_IDWTPARTNER_STR-US_PAYER_CHP3 sy-vline 
WA_IDWTPARTNER_STR-US_PAYER_CHP4 sy-vline 
WA_IDWTPARTNER_STR-US_TIN_NOTICE sy-vline 
WA_IDWTPARTNER_STR-US_PARTNERSHIP_IND sy-vline 
WA_IDWTPARTNER_STR-JP_NUMBER sy-vline 
WA_IDWTPARTNER_STR-JP_TYPE sy-vline 
WA_IDWTPARTNER_STR-WT_PAYDT sy-vline 
WA_IDWTPARTNER_STR-WT_PAMTH sy-vline 
WA_IDWTPARTNER_STR-WT_PAMTH_TXT sy-vline 
WA_IDWTPARTNER_STR-SMTP_ADDR sy-vline 
WA_IDWTPARTNER_STR-FR_OCCUPATION sy-vline      INTO ld_text SEPARATED BY SPACE.

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