ABAP Select data from SAP table J_3R_PTAX_DECL_DATA 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_DATA 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_DATA. 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_DATA 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_DATA TYPE STANDARD TABLE OF J_3R_PTAX_DECL_DATA,
      WA_J_3R_PTAX_DECL_DATA TYPE J_3R_PTAX_DECL_DATA,
      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_DATA> TYPE J_3R_PTAX_DECL_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3R_PTAX_DECL_DATA
*  INTO TABLE @DATA(IT_J_3R_PTAX_DECL_DATA2).
*--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_DATA INDEX 1 INTO DATA(WA_J_3R_PTAX_DECL_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3R_PTAX_DECL_DATA>-MANDT = 1.
<J_3R_PTAX_DECL_DATA>-TAX_TYPE = 1.
<J_3R_PTAX_DECL_DATA>-BUKRS = 1.
<J_3R_PTAX_DECL_DATA>-OKATO = 1.
<J_3R_PTAX_DECL_DATA>-STRUCT_DIV = 1.

ENDLOOP.

LOOP AT IT_J_3R_PTAX_DECL_DATA INTO WA_J_3R_PTAX_DECL_DATA.
*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_DATA-ANLN1, sy-vline,
  WA_J_3R_PTAX_DECL_DATA-ANLN2, sy-vline,
  WA_J_3R_PTAX_DECL_DATA-GJAHR, sy-vline,
  WA_J_3R_PTAX_DECL_DATA-VERSION, sy-vline,
  WA_J_3R_PTAX_DECL_DATA-LIGHT, sy-vline,
  WA_J_3R_PTAX_DECL_DATA-TAX01, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3R_PTAX_DECL_DATA 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_DATA 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_DATA INTO WA_J_3R_PTAX_DECL_DATA.


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

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

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

*Conversion exit AU175, internal->external for field TAX01
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX02
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX02
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX03
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX04
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX05
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX06
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX07
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX07
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX08
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX08
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX09
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX09
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX10
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX10
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX11
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX12
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX12
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV01
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV02
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV02
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV03
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV04
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV05
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV06
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV07
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV07
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV08
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV08
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV09
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV09
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV10
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV10
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV11
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV12
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV12
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV13
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV13
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV13.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX01_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX01_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX01_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX02_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX02_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX02_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX03_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX03_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX03_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX04_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX04_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX04_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX05_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX05_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX05_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX06_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX06_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX06_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX07_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX07_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX07_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX08_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX08_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX08_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX09_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX09_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX09_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX10_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX10_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX10_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX11_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX11_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX11_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX12_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TTAX12_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TTAX12_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX_SUM
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX_SUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX_SUM.
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_DATA-CAD_VALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-CAD_VALUE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AU175, internal->external for field TAX_TO_PAY
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-TAX_TO_PAY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-TAX_TO_PAY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field PTAX_YEAR
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-PTAX_YEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-PTAX_YEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field GLO_RUS_MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-GLO_RUS_MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-GLO_RUS_MATNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AU175, internal->external for field AVGNBV
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-AVGNBV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-AVGNBV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV01_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV01_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV01_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV02_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV02_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV02_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV03_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV03_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV03_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV04_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV04_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV04_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV05_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV05_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV05_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV06_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV06_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV06_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV07_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV07_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV07_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV08_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV08_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV08_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV09_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV09_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV09_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV10_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV10_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV10_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV11_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV11_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV11_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV12_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV12_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV12_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV13_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-NBV13_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-NBV13_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field CAD_VAL_ORIG
CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT'
  EXPORTING
    input =                      WA_J_3R_PTAX_DECL_DATA-CAD_VAL_ORIG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3R_PTAX_DECL_DATA-CAD_VAL_ORIG.
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_DATA_STR, 
MANDT TYPE STRING,
TAX_TYPE TYPE STRING,
BUKRS TYPE STRING,
OKATO TYPE STRING,
STRUCT_DIV TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
GJAHR TYPE STRING,
VERSION TYPE STRING,
LIGHT TYPE STRING,
TAX01 TYPE STRING,
TAX02 TYPE STRING,
TAX03 TYPE STRING,
TAX04 TYPE STRING,
TAX05 TYPE STRING,
TAX06 TYPE STRING,
TAX07 TYPE STRING,
TAX08 TYPE STRING,
TAX09 TYPE STRING,
TAX10 TYPE STRING,
TAX11 TYPE STRING,
TAX12 TYPE STRING,
WAERS TYPE STRING,
STATUS TYPE STRING,
LAST_DECLARED TYPE STRING,
CREATED_ON TYPE STRING,
CALC_ID TYPE STRING,
DECL_01 TYPE STRING,
DECL_NUM1 TYPE STRING,
DECL_02 TYPE STRING,
DECL_NUM2 TYPE STRING,
DECL_03 TYPE STRING,
DECL_NUM3 TYPE STRING,
DECL_04 TYPE STRING,
DECL_NUM4 TYPE STRING,
NBV01 TYPE STRING,
NBV02 TYPE STRING,
NBV03 TYPE STRING,
NBV04 TYPE STRING,
NBV05 TYPE STRING,
NBV06 TYPE STRING,
NBV07 TYPE STRING,
NBV08 TYPE STRING,
NBV09 TYPE STRING,
NBV10 TYPE STRING,
NBV11 TYPE STRING,
NBV12 TYPE STRING,
NBV13 TYPE STRING,
VALID_MONTH TYPE STRING,
ASSETNAME TYPE STRING,
TTAX01_ORIG TYPE STRING,
TTAX02_ORIG TYPE STRING,
TTAX03_ORIG TYPE STRING,
TTAX04_ORIG TYPE STRING,
TTAX05_ORIG TYPE STRING,
TTAX06_ORIG TYPE STRING,
TTAX07_ORIG TYPE STRING,
TTAX08_ORIG TYPE STRING,
TTAX09_ORIG TYPE STRING,
TTAX10_ORIG TYPE STRING,
TTAX11_ORIG TYPE STRING,
TTAX12_ORIG TYPE STRING,
TTAX_RATE TYPE STRING,
BRAND TYPE STRING,
TAX_SUM TYPE STRING,
PRIVILEGE TYPE STRING,
AMOUNTRED TYPE STRING,
EXEMPTION TYPE STRING,
CNOTX TYPE STRING,
CPRTX TYPE STRING,
USAGE_YEARS TYPE STRING,
TAX_COEFF TYPE STRING,
PROPTYPE TYPE STRING,
CAD_VALUE TYPE STRING,
EXEMP_REASON TYPE STRING,
EXP_COEFF TYPE STRING,
PLATON_AMNT TYPE STRING,
TAX_TO_PAY TYPE STRING,
PROPTYPE_TMDPND TYPE STRING,
SPEC_TAX_CAT TYPE STRING,
REP_PERIOD TYPE STRING,
PTAX_YEAR TYPE STRING,
GLO_RUS_DEPGR TYPE STRING,
GLO_RUS_OKOF TYPE STRING,
GLO_RUS_SERNR TYPE STRING,
GLO_RUS_PRECCT TYPE STRING,
GLO_RUS_PRECQ TYPE STRING,
GLO_RUS_PRECW TYPE STRING,
GLO_RUS_MATNR TYPE STRING,
GLO_RUS_TTX_TYPE TYPE STRING,
GLO_RUS_TTX_VIN TYPE STRING,
GLO_RUS_TTX_MNFD TYPE STRING,
GLO_RUS_TTX_ECOCLASS TYPE STRING,
GLO_RUS_ECOCLASS TYPE STRING,
GLO_RUS_ECO_CLS TYPE STRING,
GLO_RUS_PRT_TYPE TYPE STRING,
GLO_RUS_PRT_ADDR TYPE STRING,
ADATU TYPE STRING,
BDATU TYPE STRING,
AIMMO TYPE STRING,
OFPRIV1 TYPE STRING,
OFPRIV2 TYPE STRING,
RATE TYPE STRING,
KBK TYPE STRING,
REGION TYPE STRING,
DISTRICT TYPE STRING,
AVGNBV TYPE STRING,
INVNR TYPE STRING,
DECL_NUM TYPE STRING,
CORR_NUM TYPE STRING,
HERST TYPE STRING,
TAX_AUTH_CODE TYPE STRING,
KPP TYPE STRING,
NBV01_ORIG TYPE STRING,
NBV02_ORIG TYPE STRING,
NBV03_ORIG TYPE STRING,
NBV04_ORIG TYPE STRING,
NBV05_ORIG TYPE STRING,
NBV06_ORIG TYPE STRING,
NBV07_ORIG TYPE STRING,
NBV08_ORIG TYPE STRING,
NBV09_ORIG TYPE STRING,
NBV10_ORIG TYPE STRING,
NBV11_ORIG TYPE STRING,
NBV12_ORIG TYPE STRING,
NBV13_ORIG TYPE STRING,
CAD_VAL_ORIG TYPE STRING,
EXEMP_LAW TYPE STRING,
PRVG_LAW TYPE STRING,
AMTR_LAW TYPE STRING,
SZPK TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3R_PTAX_DECL_DATA_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_DATA_STR-MANDT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX_TYPE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-BUKRS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-OKATO sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-STRUCT_DIV sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-ANLN1 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-ANLN2 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GJAHR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-VERSION sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-LIGHT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX01 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX02 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX03 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX04 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX05 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX06 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX07 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX08 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX09 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX10 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX11 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX12 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-WAERS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-STATUS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-LAST_DECLARED sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CREATED_ON sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CALC_ID sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_01 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_NUM1 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_02 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_NUM2 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_03 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_NUM3 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_04 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_NUM4 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV01 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV02 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV03 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV04 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV05 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV06 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV07 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV08 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV09 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV10 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV11 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV12 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV13 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-VALID_MONTH sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-ASSETNAME sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX01_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX02_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX03_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX04_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX05_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX06_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX07_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX08_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX09_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX10_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX11_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX12_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TTAX_RATE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-BRAND sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX_SUM sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PRIVILEGE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-AMOUNTRED sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-EXEMPTION sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CNOTX sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CPRTX sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-USAGE_YEARS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX_COEFF sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PROPTYPE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CAD_VALUE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-EXEMP_REASON sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-EXP_COEFF sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PLATON_AMNT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX_TO_PAY sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PROPTYPE_TMDPND sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-SPEC_TAX_CAT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-REP_PERIOD sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PTAX_YEAR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_DEPGR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_OKOF sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_SERNR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_PRECCT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_PRECQ sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_PRECW sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_MATNR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_TTX_TYPE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_TTX_VIN sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_TTX_MNFD sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_TTX_ECOCLASS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_ECOCLASS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_ECO_CLS sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_PRT_TYPE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-GLO_RUS_PRT_ADDR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-ADATU sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-BDATU sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-AIMMO sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-OFPRIV1 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-OFPRIV2 sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-RATE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-KBK sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-REGION sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DISTRICT sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-AVGNBV sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-INVNR sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-DECL_NUM sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CORR_NUM sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-HERST sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-TAX_AUTH_CODE sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-KPP sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV01_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV02_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV03_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV04_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV05_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV06_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV07_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV08_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV09_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV10_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV11_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV12_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-NBV13_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-CAD_VAL_ORIG sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-EXEMP_LAW sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-PRVG_LAW sy-vline 
WA_J_3R_PTAX_DECL_DATA_STR-AMTR_LAW sy-vline 
WA_J_3R_PTAX_DECL_DATA_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.