ABAP Select data from SAP table J_3R_PTAX_DECL_S1 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 J_3R_PTAX_DECL_S1 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 J_3R_PTAX_DECL_S1. 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 J_3R_PTAX_DECL_S1 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_J_3R_PTAX_DECL_S1 TYPE STANDARD TABLE OF J_3R_PTAX_DECL_S1,
      WA_J_3R_PTAX_DECL_S1 TYPE J_3R_PTAX_DECL_S1,
      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: <J_3R_PTAX_DECL_S1> TYPE J_3R_PTAX_DECL_S1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3R_PTAX_DECL_S1
*  INTO TABLE @DATA(IT_J_3R_PTAX_DECL_S12).
*--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_J_3R_PTAX_DECL_S1 INDEX 1 INTO DATA(WA_J_3R_PTAX_DECL_S12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3R_PTAX_DECL_S1>-COUNTER = 1.
<J_3R_PTAX_DECL_S1>-SECTION_NUM = 1.
<J_3R_PTAX_DECL_S1>-WAERS = 1.
<J_3R_PTAX_DECL_S1>-000010001000 = 1.
<J_3R_PTAX_DECL_S1>-000010002000 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3R_PTAX_DECL_S1-000010003000, sy-vline,
  WA_J_3R_PTAX_DECL_S1-000010004000, sy-vline,
  WA_J_3R_PTAX_DECL_S1-000020001003, sy-vline,
  WA_J_3R_PTAX_DECL_S1-000020001004, sy-vline,
  WA_J_3R_PTAX_DECL_S1-000020002003, sy-vline,
  WA_J_3R_PTAX_DECL_S1-000020002004, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3R_PTAX_DECL_S1 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_J_3R_PTAX_DECL_S1 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_J_3R_PTAX_DECL_S1 INTO WA_J_3R_PTAX_DECL_S1.


*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 AC132, internal->external for field N140_REALEST_AVRG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-N140_REALEST_AVRG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-N140_REALEST_AVRG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field CAD_VALUE
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-CAD_VALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-CAD_VALUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field CAD_NON_TAX_VAL
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-CAD_NON_TAX_VAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-CAD_NON_TAX_VAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field TAX_AMOUNT_TOTAL
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-TAX_AMOUNT_TOTAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-TAX_AMOUNT_TOTAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field TAX_AMOUNT_OKTMO_TOTAL
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-TAX_AMOUNT_OKTMO_TOTAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-TAX_AMOUNT_OKTMO_TOTAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field DOWN_PAYM_AMOUNT_Q1
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field DOWN_PAYM_AMOUNT_Q2
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field DOWN_PAYM_AMOUNT_Q3
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_S1-DOWN_PAYM_AMOUNT_Q3.
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_J_3R_PTAX_DECL_S1_STR, 
COUNTER TYPE STRING,
SECTION_NUM TYPE STRING,
WAERS TYPE STRING,
000010001000 TYPE STRING,
000010002000 TYPE STRING,
000010003000 TYPE STRING,
000010004000 TYPE STRING,
000020001003 TYPE STRING,
000020001004 TYPE STRING,
000020002003 TYPE STRING,
000020002004 TYPE STRING,
000020003003 TYPE STRING,
000020003004 TYPE STRING,
000020004003 TYPE STRING,
000020004004 TYPE STRING,
000020005003 TYPE STRING,
000020005004 TYPE STRING,
000020006003 TYPE STRING,
000020006004 TYPE STRING,
000020007003 TYPE STRING,
000020007004 TYPE STRING,
000020008003 TYPE STRING,
000020008004 TYPE STRING,
000020009003 TYPE STRING,
000020009004 TYPE STRING,
000020010003 TYPE STRING,
000020010004 TYPE STRING,
000020011003 TYPE STRING,
000020011004 TYPE STRING,
000020012003 TYPE STRING,
000020012004 TYPE STRING,
000020013003 TYPE STRING,
000020013004 TYPE STRING,
000020014003 TYPE STRING,
000020015003 TYPE STRING,
000020016003 TYPE STRING,
000020017003 TYPE STRING,
000020018003 TYPE STRING,
000020019003 TYPE STRING,
000020020003 TYPE STRING,
000020021003 TYPE STRING,
000020022003 TYPE STRING,
000020023003 TYPE STRING,
000020024003 TYPE STRING,
000040001000 TYPE STRING,
000040002003 TYPE STRING,
000040003003 TYPE STRING,
000040004003 TYPE STRING,
000040005003 TYPE STRING,
000040006003 TYPE STRING,
000040007003 TYPE STRING,
000040008003 TYPE STRING,
000040009003 TYPE STRING,
000040010003 TYPE STRING,
000040011003 TYPE STRING,
000040012003 TYPE STRING,
000040013003 TYPE STRING,
000040014003 TYPE STRING,
000040015003 TYPE STRING,
000040016003 TYPE STRING,
000040017003 TYPE STRING,
000040018003 TYPE STRING,
000040019003 TYPE STRING,
000040020003 TYPE STRING,
000040021003 TYPE STRING,
000040022003 TYPE STRING,
000040023003 TYPE STRING,
000040024003 TYPE STRING,
000040025003 TYPE STRING,
000040026003 TYPE STRING,
000050001000 TYPE STRING,
000050002000 TYPE STRING,
000050003003 TYPE STRING,
000050004003 TYPE STRING,
000050005003 TYPE STRING,
000050006003 TYPE STRING,
000050007003 TYPE STRING,
000050008003 TYPE STRING,
000050009003 TYPE STRING,
000050010003 TYPE STRING,
000050011003 TYPE STRING,
000050012003 TYPE STRING,
000050013003 TYPE STRING,
000050014003 TYPE STRING,
000050015003 TYPE STRING,
000050016003 TYPE STRING,
000050017003 TYPE STRING,
000050018003 TYPE STRING,
N130_PRVG TYPE STRING,
N140_REALEST_AVRG TYPE STRING,
N150_PROPPART TYPE STRING,
N150_PROPPART_1 TYPE STRING,
PROPERTY_CHAR TYPE STRING,
N160_EXEMP_LAW TYPE STRING,
N130_PRVG_LAW TYPE STRING,
N240_LAW TYPE STRING,
N141_TOTAL TYPE STRING,
N141_REAL_ESTATE TYPE STRING,
NBV_ALL TYPE STRING,
CADASTR_VAL TYPE STRING,
CADASTR_BUILD TYPE STRING,
CADASTR_LOC TYPE STRING,
CAD_VALUE TYPE STRING,
CAD_NON_TAX_VAL TYPE STRING,
PROP_PART TYPE STRING,
CAD_COEFFICIENT TYPE STRING,
CADVAL_COEFFICIENT TYPE STRING,
PROVISION_NUM TYPE STRING,
INVNR TYPE STRING,
OKOF_CODE TYPE STRING,
PROP_PART_AREA TYPE STRING,
PROP_PART_COST TYPE STRING,
PROPERTY_CHAR_N TYPE STRING,
PROP_NUMBER_TYPE TYPE STRING,
ADDRESS_GUID TYPE STRING,
POSTAL_CODE TYPE STRING,
REGION TYPE STRING,
DISTRICT_TYPE TYPE STRING,
DISTRICT_NAME TYPE STRING,
DISTRICT_TERR_TYPE TYPE STRING,
DISTRICT_TERR_NAME TYPE STRING,
LOCALITY_TYPE TYPE STRING,
LOCALITY_NAME TYPE STRING,
LOCALITY_TERR_TYPE TYPE STRING,
LOCALITY_TERR_NAME TYPE STRING,
STREET_TYPE TYPE STRING,
STREET_NAME TYPE STRING,
LAND_PLOT_NUM TYPE STRING,
BUILDING_TYPE1 TYPE STRING,
BUILDING_NUMBER1 TYPE STRING,
BUILDING_TYPE2 TYPE STRING,
BUILDING_NUMBER2 TYPE STRING,
BUILDING_TYPE3 TYPE STRING,
BUILDING_NUMBER3 TYPE STRING,
BUILDING_ROOM_TYPE TYPE STRING,
BUILDING_ROOM_NUMBER TYPE STRING,
APARTMENT_ROOM_TYPE TYPE STRING,
APARTMENT_ROOM_NUMBER TYPE STRING,
COEFF_OWNERSHIP TYPE STRING,
COEFF_CAD_VALUE TYPE STRING,
TAX_AMOUNT_TOTAL TYPE STRING,
TAX_AMOUNT_OKTMO_TOTAL TYPE STRING,
DOWN_PAYM_AMOUNT_Q1 TYPE STRING,
DOWN_PAYM_AMOUNT_Q2 TYPE STRING,
DOWN_PAYM_AMOUNT_Q3 TYPE STRING,
TAXPAYER_STATUS_INDICATOR TYPE STRING,
SZPK TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3R_PTAX_DECL_S1_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_J_3R_PTAX_DECL_S1_STR-COUNTER sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-SECTION_NUM sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-WAERS sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000010001000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000010002000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000010003000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000010004000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020001003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020001004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020002003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020002004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020003003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020003004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020004003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020004004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020005003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020005004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020006003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020006004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020007003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020007004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020008003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020008004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020009003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020009004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020010003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020010004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020011003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020011004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020012003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020012004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020013003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020013004 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020014003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020015003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020016003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020017003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020018003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020019003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020020003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020021003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020022003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020023003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000020024003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040001000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040002003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040003003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040004003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040005003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040006003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040007003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040008003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040009003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040010003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040011003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040012003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040013003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040014003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040015003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040016003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040017003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040018003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040019003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040020003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040021003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040022003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040023003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040024003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040025003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000040026003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050001000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050002000 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050003003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050004003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050005003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050006003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050007003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050008003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050009003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050010003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050011003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050012003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050013003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050014003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050015003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050016003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050017003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-000050018003 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N130_PRVG sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N140_REALEST_AVRG sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N150_PROPPART sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N150_PROPPART_1 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROPERTY_CHAR sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N160_EXEMP_LAW sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N130_PRVG_LAW sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N240_LAW sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N141_TOTAL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-N141_REAL_ESTATE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-NBV_ALL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CADASTR_VAL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CADASTR_BUILD sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CADASTR_LOC sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CAD_VALUE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CAD_NON_TAX_VAL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROP_PART sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CAD_COEFFICIENT sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-CADVAL_COEFFICIENT sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROVISION_NUM sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-INVNR sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-OKOF_CODE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROP_PART_AREA sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROP_PART_COST sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROPERTY_CHAR_N sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-PROP_NUMBER_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-ADDRESS_GUID sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-POSTAL_CODE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-REGION sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DISTRICT_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DISTRICT_NAME sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DISTRICT_TERR_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DISTRICT_TERR_NAME sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-LOCALITY_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-LOCALITY_NAME sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-LOCALITY_TERR_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-LOCALITY_TERR_NAME sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-STREET_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-STREET_NAME sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-LAND_PLOT_NUM sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_TYPE1 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_NUMBER1 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_TYPE2 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_NUMBER2 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_TYPE3 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_NUMBER3 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_ROOM_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-BUILDING_ROOM_NUMBER sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-APARTMENT_ROOM_TYPE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-APARTMENT_ROOM_NUMBER sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-COEFF_OWNERSHIP sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-COEFF_CAD_VALUE sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-TAX_AMOUNT_TOTAL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-TAX_AMOUNT_OKTMO_TOTAL sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DOWN_PAYM_AMOUNT_Q1 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DOWN_PAYM_AMOUNT_Q2 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-DOWN_PAYM_AMOUNT_Q3 sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-TAXPAYER_STATUS_INDICATOR sy-vline 
WA_J_3R_PTAX_DECL_S1_STR-SZPK sy-vline      INTO ld_text SEPARATED BY SPACE.

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