ABAP Select data from SAP table IDS_J_1H_DOM_02 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 IDS_J_1H_DOM_02 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 IDS_J_1H_DOM_02. 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 IDS_J_1H_DOM_02 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_IDS_J_1H_DOM_02 TYPE STANDARD TABLE OF IDS_J_1H_DOM_02,
      WA_IDS_J_1H_DOM_02 TYPE IDS_J_1H_DOM_02,
      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: <IDS_J_1H_DOM_02> TYPE IDS_J_1H_DOM_02.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDS_J_1H_DOM_02
*  INTO TABLE @DATA(IT_IDS_J_1H_DOM_022).
*--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_IDS_J_1H_DOM_02 INDEX 1 INTO DATA(WA_IDS_J_1H_DOM_022).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDS_J_1H_DOM_02>-BUKRS = 1.
<IDS_J_1H_DOM_02>-BUPLA = 1.
<IDS_J_1H_DOM_02>-PARTNERNO = 1.
<IDS_J_1H_DOM_02>-CERTNO = 1.
<IDS_J_1H_DOM_02>-SEQNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDS_J_1H_DOM_02-QSREC, sy-vline,
  WA_IDS_J_1H_DOM_02-PR_HOUSE_NUM1, sy-vline,
  WA_IDS_J_1H_DOM_02-PR_HOUSE_NUM2, sy-vline,
  WA_IDS_J_1H_DOM_02-PR_STREET, sy-vline,
  WA_IDS_J_1H_DOM_02-PR_STR_SUPPL1, sy-vline,
  WA_IDS_J_1H_DOM_02-PR_STR_SUPPL2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IDS_J_1H_DOM_02 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_IDS_J_1H_DOM_02 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_IDS_J_1H_DOM_02 INTO WA_IDS_J_1H_DOM_02.


*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 AC152, internal->external for field QSSHH1
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDS_J_1H_DOM_02-QSSHH1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDS_J_1H_DOM_02-QSSHH1.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AC152, internal->external for field WT_QSSHH
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDS_J_1H_DOM_02-WT_QSSHH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDS_J_1H_DOM_02-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_IDS_J_1H_DOM_02-WT_QBSHH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDS_J_1H_DOM_02-WT_QBSHH.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit AC152, internal->external for field ABSTOTAL7
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_IDS_J_1H_DOM_02-ABSTOTAL7
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDS_J_1H_DOM_02-ABSTOTAL7.
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_IDS_J_1H_DOM_02_STR, 
BUKRS TYPE STRING,
BUPLA TYPE STRING,
PARTNERNO TYPE STRING,
CERTNO TYPE STRING,
SEQNO TYPE STRING,
QSREC TYPE STRING,
PR_HOUSE_NUM1 TYPE STRING,
PR_HOUSE_NUM2 TYPE STRING,
PR_STREET TYPE STRING,
PR_STR_SUPPL1 TYPE STRING,
PR_STR_SUPPL2 TYPE STRING,
PR_CITY1 TYPE STRING,
PR_CITY2 TYPE STRING,
PR_COUNTRY TYPE STRING,
PR_LANDX TYPE STRING,
PR_POST_CODE1 TYPE STRING,
PR_POST_CODE2 TYPE STRING,
PR_NAME1 TYPE STRING,
PR_NAME2 TYPE STRING,
PR_NAME3 TYPE STRING,
PR_NAME4 TYPE STRING,
PE_STCD1 TYPE STRING,
PE_STCD2 TYPE STRING,
PE_NAME1 TYPE STRING,
PE_NAME2 TYPE STRING,
PE_NAME3 TYPE STRING,
PE_NAME4 TYPE STRING,
TEL_NUMBER TYPE STRING,
PE_HOUSE_NUM1 TYPE STRING,
PE_HOUSE_NUM2 TYPE STRING,
PE_HOUSE_NUM3 TYPE STRING,
PE_STREET TYPE STRING,
PE_BUILDING TYPE STRING,
PE_FLOOR TYPE STRING,
PE_ROOMNUMBER TYPE STRING,
PE_STR_SUPPL1 TYPE STRING,
PE_STR_SUPPL2 TYPE STRING,
PE_CITY1 TYPE STRING,
PE_CITY2 TYPE STRING,
PE_COUNTRY TYPE STRING,
PE_POST_CODE1 TYPE STRING,
PE_POST_CODE2 TYPE STRING,
STCEG TYPE STRING,
LTX TYPE STRING,
SIGN_DT TYPE STRING,
SIGN_YEAR TYPE STRING,
SIGN_DATE TYPE STRING,
ST_TIME TYPE STRING,
PAIDCN TYPE STRING,
PAIDCN1 TYPE STRING,
PAIDCN2 TYPE STRING,
PAIDCN3 TYPE STRING,
PAIDCN4 TYPE STRING,
DECWORD TYPE STRING,
WORD TYPE STRING,
EATXT TYPE STRING,
BUDAT_DAY TYPE STRING,
BUDAT_MONTH TYPE STRING,
BUDAT_YEAR TYPE STRING,
SGTXT TYPE STRING,
QSSHH1 TYPE STRING,
QBSHH1 TYPE STRING,
BUDAT1 TYPE STRING,
QSSHH2 TYPE STRING,
QBSHH2 TYPE STRING,
BUDAT2 TYPE STRING,
QBSHH3 TYPE STRING,
QSSHH3 TYPE STRING,
BUDAT3 TYPE STRING,
QSSHH4 TYPE STRING,
QBSHH4 TYPE STRING,
BUDAT4 TYPE STRING,
QSSHH5 TYPE STRING,
QBSHH5 TYPE STRING,
BUDAT5 TYPE STRING,
QSSHH6 TYPE STRING,
QBSHH6 TYPE STRING,
BUDAT6 TYPE STRING,
QSSHH7 TYPE STRING,
QBSHH7 TYPE STRING,
BUDAT7 TYPE STRING,
QSSHH8 TYPE STRING,
QBSHH8 TYPE STRING,
BUDAT8 TYPE STRING,
QSSHH9 TYPE STRING,
QBSHH9 TYPE STRING,
BUDAT9 TYPE STRING,
QSSHH10 TYPE STRING,
QBSHH10 TYPE STRING,
BUDAT10 TYPE STRING,
QSSHH11 TYPE STRING,
QBSHH11 TYPE STRING,
WAERS TYPE STRING,
PR_TAXID TYPE STRING,
ID1 TYPE STRING,
ID2 TYPE STRING,
ID3 TYPE STRING,
ID4 TYPE STRING,
ID5 TYPE STRING,
ID6 TYPE STRING,
ID7 TYPE STRING,
ID8 TYPE STRING,
ID9 TYPE STRING,
ID10 TYPE STRING,
ID11 TYPE STRING,
ID12 TYPE STRING,
ID13 TYPE STRING,
ALTPR_TAXID TYPE STRING,
ID1 TYPE STRING,
ID2 TYPE STRING,
ID3 TYPE STRING,
ID4 TYPE STRING,
ID5 TYPE STRING,
ID6 TYPE STRING,
ID7 TYPE STRING,
ID8 TYPE STRING,
ID9 TYPE STRING,
ID10 TYPE STRING,
ID11 TYPE STRING,
ID12 TYPE STRING,
ID13 TYPE STRING,
PE_IDNUM TYPE STRING,
ID1 TYPE STRING,
ID2 TYPE STRING,
ID3 TYPE STRING,
ID4 TYPE STRING,
ID5 TYPE STRING,
ID6 TYPE STRING,
ID7 TYPE STRING,
ID8 TYPE STRING,
ID9 TYPE STRING,
ID10 TYPE STRING,
ID11 TYPE STRING,
ID12 TYPE STRING,
ID13 TYPE STRING,
PE_TAXID TYPE STRING,
ID1 TYPE STRING,
ID2 TYPE STRING,
ID3 TYPE STRING,
ID4 TYPE STRING,
ID5 TYPE STRING,
ID6 TYPE STRING,
ID7 TYPE STRING,
ID8 TYPE STRING,
ID9 TYPE STRING,
ID10 TYPE STRING,
ID11 TYPE STRING,
ID12 TYPE STRING,
ID13 TYPE STRING,
FTYPE_02 TYPE STRING,
FTYPE_03 TYPE STRING,
FTYPE_53 TYPE STRING,
WT_PERIOD TYPE STRING,
WT_WITHCD TYPE STRING,
QSATZ TYPE STRING,
T_TAXREF1_VAL TYPE STRING,
ROYAL_DECREE TYPE STRING,
WT_POSIN TYPE STRING,
GJAHR TYPE STRING,
INCOME_MONTH TYPE STRING,
JAN TYPE STRING,
FEB TYPE STRING,
MAR TYPE STRING,
APR TYPE STRING,
MAY TYPE STRING,
JUN TYPE STRING,
JUL TYPE STRING,
AUG TYPE STRING,
SEP TYPE STRING,
OCT TYPE STRING,
NOV TYPE STRING,
DECEM TYPE STRING,
QEKAR TYPE STRING,
QSCOD TYPE STRING,
WT_QSSHH TYPE STRING,
WT_QBSHH TYPE STRING,
QLAND TYPE STRING,
QSCOD1 TYPE STRING,
QSATZ1 TYPE STRING,
QSATZ2 TYPE STRING,
QSATZ5 TYPE STRING,
QSATZ6 TYPE STRING,
QSATZ7 TYPE STRING,
QSCOD2 TYPE STRING,
QSCOD5 TYPE STRING,
QSCOD6 TYPE STRING,
QSCOD7 TYPE STRING,
QLAND7 TYPE STRING,
WT_OFFWT_TEXT TYPE STRING,
GBORT TYPE STRING,
WTBASE TYPE STRING,
WTAMOUNT TYPE STRING,
ABSTOTAL TYPE STRING,
ABSTOTAL1 TYPE STRING,
ABSTOTAL2 TYPE STRING,
ABSTOTAL5 TYPE STRING,
ABSTOTAL6 TYPE STRING,
ABSTOTAL7 TYPE STRING,
PE_STCD3 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IDS_J_1H_DOM_02_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_IDS_J_1H_DOM_02_STR-BUKRS sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUPLA sy-vline 
WA_IDS_J_1H_DOM_02_STR-PARTNERNO sy-vline 
WA_IDS_J_1H_DOM_02_STR-CERTNO sy-vline 
WA_IDS_J_1H_DOM_02_STR-SEQNO sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSREC sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_HOUSE_NUM1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_HOUSE_NUM2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_STREET sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_STR_SUPPL1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_STR_SUPPL2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_CITY1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_CITY2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_COUNTRY sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_LANDX sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_POST_CODE1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_POST_CODE2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_NAME1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_NAME2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_NAME3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_NAME4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STCD1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STCD2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_NAME1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_NAME2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_NAME3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_NAME4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-TEL_NUMBER sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_HOUSE_NUM1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_HOUSE_NUM2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_HOUSE_NUM3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STREET sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_BUILDING sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_FLOOR sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_ROOMNUMBER sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STR_SUPPL1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STR_SUPPL2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_CITY1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_CITY2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_COUNTRY sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_POST_CODE1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_POST_CODE2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-STCEG sy-vline 
WA_IDS_J_1H_DOM_02_STR-LTX sy-vline 
WA_IDS_J_1H_DOM_02_STR-SIGN_DT sy-vline 
WA_IDS_J_1H_DOM_02_STR-SIGN_YEAR sy-vline 
WA_IDS_J_1H_DOM_02_STR-SIGN_DATE sy-vline 
WA_IDS_J_1H_DOM_02_STR-ST_TIME sy-vline 
WA_IDS_J_1H_DOM_02_STR-PAIDCN sy-vline 
WA_IDS_J_1H_DOM_02_STR-PAIDCN1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PAIDCN2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PAIDCN3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PAIDCN4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-DECWORD sy-vline 
WA_IDS_J_1H_DOM_02_STR-WORD sy-vline 
WA_IDS_J_1H_DOM_02_STR-EATXT sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT_DAY sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT_MONTH sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT_YEAR sy-vline 
WA_IDS_J_1H_DOM_02_STR-SGTXT sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-BUDAT10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSSHH11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QBSHH11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-WAERS sy-vline 
WA_IDS_J_1H_DOM_02_STR-PR_TAXID sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID12 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID13 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ALTPR_TAXID sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID12 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID13 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_IDNUM sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID12 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID13 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_TAXID sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID3 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID4 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID8 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID9 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID10 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID11 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID12 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ID13 sy-vline 
WA_IDS_J_1H_DOM_02_STR-FTYPE_02 sy-vline 
WA_IDS_J_1H_DOM_02_STR-FTYPE_03 sy-vline 
WA_IDS_J_1H_DOM_02_STR-FTYPE_53 sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_PERIOD sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_WITHCD sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ sy-vline 
WA_IDS_J_1H_DOM_02_STR-T_TAXREF1_VAL sy-vline 
WA_IDS_J_1H_DOM_02_STR-ROYAL_DECREE sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_POSIN sy-vline 
WA_IDS_J_1H_DOM_02_STR-GJAHR sy-vline 
WA_IDS_J_1H_DOM_02_STR-INCOME_MONTH sy-vline 
WA_IDS_J_1H_DOM_02_STR-JAN sy-vline 
WA_IDS_J_1H_DOM_02_STR-FEB sy-vline 
WA_IDS_J_1H_DOM_02_STR-MAR sy-vline 
WA_IDS_J_1H_DOM_02_STR-APR sy-vline 
WA_IDS_J_1H_DOM_02_STR-MAY sy-vline 
WA_IDS_J_1H_DOM_02_STR-JUN sy-vline 
WA_IDS_J_1H_DOM_02_STR-JUL sy-vline 
WA_IDS_J_1H_DOM_02_STR-AUG sy-vline 
WA_IDS_J_1H_DOM_02_STR-SEP sy-vline 
WA_IDS_J_1H_DOM_02_STR-OCT sy-vline 
WA_IDS_J_1H_DOM_02_STR-NOV sy-vline 
WA_IDS_J_1H_DOM_02_STR-DECEM sy-vline 
WA_IDS_J_1H_DOM_02_STR-QEKAR sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_QSSHH sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_QBSHH sy-vline 
WA_IDS_J_1H_DOM_02_STR-QLAND sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSATZ7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QSCOD7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-QLAND7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-WT_OFFWT_TEXT sy-vline 
WA_IDS_J_1H_DOM_02_STR-GBORT sy-vline 
WA_IDS_J_1H_DOM_02_STR-WTBASE sy-vline 
WA_IDS_J_1H_DOM_02_STR-WTAMOUNT sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL1 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL2 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL5 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL6 sy-vline 
WA_IDS_J_1H_DOM_02_STR-ABSTOTAL7 sy-vline 
WA_IDS_J_1H_DOM_02_STR-PE_STCD3 sy-vline      INTO ld_text SEPARATED BY SPACE.

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